R-빛나는 행렬의 이항 연산자에 대한 숫자가 아닌 인수

귀하 input$file1와 input$file2파일 이름과 경로를 포함하지만, (그것은 당신과 다른 곳에서 읽은됩니다 데이터 자체가 포함되지 않습니다 read.table). 따라서 행렬 연산은 데이터를 제공하지 않으면 작동하지 않습니다.

reactivecsv 파일에서 데이터에 액세스하려면 표현식을 사용 하는 것이 좋습니다 . 많은 튜토리얼이 당신이 가지고있는 것을 정확하게 보여줄 것이지만 (에서 직접 데이터를 읽는 output renderTable것은 다른 컨텍스트에서 데이터를 사용하기에는 덜 유연 할 수 있습니다.

아래에서 반응 표현식 data1은에 저장된 csv 파일을 읽습니다 input$file1. 그런 다음 데이터에 액세스하려면 data1(). 여기에는 행렬 연산의 결과를 표시하는 것 output$table1뿐만 아니라 테이블에 데이터를 표시하기위한 것 모두 포함 output$table3됩니다. 아래 예에서는 tableOutput설명을 위해의 이름 을 "table1", "table2"및 "table3"으로 변경했습니다.

이것이 명확 해지기를 바랍니다. 질문이 있으면 알려주세요.

library(shiny)

ui <- fluidPage(
  titlePanel("Multiple file uploads"),
  sidebarLayout(
    sidebarPanel(
      fileInput("file1", label = "Upload CSV 1"),
      fileInput("file2", label = "Upload CSV 2"),
      selectInput("ops", "Select Operation",
                  choices = c("addition", "subtraction", "multiplication", "division"))
    ),
    mainPanel(
      tableOutput("table1"),
      tableOutput("table2"),
      tableOutput("table3")
    )
  )
)

server <- function(input, output) {
  
  data1 <- reactive({
    file_to_read =  input$file1
    if (is.null(file_to_read)) {
      return()
    }
    read.table(file_to_read$datapath, sep = ',', header = FALSE)
  })
  
  output$table1 <- renderTable({
    data1()
  })
  
  data2 <- reactive({
    file_to_read =  input$file2
    if (is.null(file_to_read)) {
      return()
    }
    read.table(file_to_read$datapath, sep = ',', header = FALSE)
  })
  
  output$table2 <- renderTable({
    data2()
  })
  
  output$table3 <- renderTable({
    switch(input$ops,
           "addition" = data1() + data2(),
           "subtraction" = data1() - data2(),
           "multiplication" = data1() * data2(),
           "division" = data1() / data2())
  })
}

shinyApp(ui, server)