如何在R中輸入兩個數字輸入

Question

下面我有一個R代碼，它接受來自numericInput對象的輸入值並將其存儲在Excel電子表格中。我現在試圖有兩個numericInput，但我不知道該怎麼做。在代碼的下面，我試圖只複製對象作爲最後的手段，但它給了我一個錯誤。 （我並不感到驚訝）有什麼建議？

library(shiny) 
library(xlsxjars) 
library(rJava) 
library(xlsx) 

ui <- fluidPage(
    numericInput(inputId = "num", 
       label = "Choose a number", 
       min = 0, max = 1000000, value = 1), 
    actionButton(inputId = "submit", 
       label = "Submit"), 
    numericInput(inputId = "num2", 
       label = "Choose a number2", min = 0, max = 1000000, value = 1), 
) 

server <- function(input, output) { 
    options(java.parameters = "- Xmx1024m") 
    wb <- loadWorkbook(file = "F:\\RProject-Rough\\DirectEffect.xlsx") 
    sheet<-getSheets(wb) 

    observeEvent(input$submit, { 
      addDataFrame(c(input$num,input$num2), sheet$'Direct Effects', 
      col.names = FALSE, row.names = FALSE, startRow = 3,startColumn = 5) 
      saveWorkbook(wb,"F:\\RProject-Rough\\DirectEffect.xlsx") 
    }) 
} 

shinyApp(ui = ui, server = server) 

Answer 1

首先，在你的第二個numericInput之後，有一個逗號不屬於那裏。

其次，addDataFrame將data.frame作爲參數，而不是向量。

對我來說，以下工作：

library(shiny) 
library(xlsxjars) 
library(rJava) 
library(xlsx) 

ui <- fluidPage(
    numericInput(inputId = "num", 
       label = "Choose a number", 
       min = 0, max = 1000000, value = 1), 
    actionButton(inputId = "submit", 
       label = "Submit"), 
    numericInput(inputId = "num2", 
       label = "Choose a number2", min = 0, max = 1000000, value = 1) 
) 

server <- function(input, output) { 

    options(java.parameters = "- Xmx1024m") 
    wb <- loadWorkbook(file = "/PATH/TO/test.xlsx") 
    sheet <- getSheets(wb) 

    observeEvent(input$submit, { 
    addDataFrame(data.frame(c(input$num,input$num2)), sheet$`Direct Effects`, 
    col.names = FALSE, row.names = FALSE, startRow = 3, startColumn = 5) 
    saveWorkbook(wb, "/PATH/TO/test.xlsx") 
    }) 
} 

shinyApp(ui = ui, server = server)