2つの数値入力をRで行う方法Shiny

Question

以下は、numericInputオブジェクトから入力値を受け取り、Excelスプレッドシートに格納するRコードです。私は今、2つの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

まず、2番目のnumericInputの後に、そこに属していないコンマがあります。

第2に、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)