上传两个数据闪亮

Question

我想上传两个闪亮的数据表，我该怎么做？

shinyUI(pageWithSidebar(
 headerPanel("Représentation de Weibull"),
 sidebarPanel(
  fileInput("file1", "choose your first data"),
## fileinput("file2", "choose your second data"), ##but it doesn't work !

  checkboxInput("fit.weibull", label = "Ajuster une loi de Weibull", value = FALSE),
sliderInput("reg.range", label = "Zone d'ajustement", min = 0, max = 100000,
            value = c(10000, 40000))

Answer 1

你有一个错字。 fileInput而不是fileinput

require(shiny)
runApp(
  list(ui = pageWithSidebar(
    headerPanel("Représentation de Weibull"),
    sidebarPanel(
      fileInput("file1", "choose your first data"),
      fileInput("file2", "choose your second data"), ##but it doesn't work !

      checkboxInput("fit.weibull", label = "Ajuster une loi de Weibull", value = FALSE),
      sliderInput("reg.range", label = "Zone d'ajustement", min = 0, max = 100000,
                  value = c(10000, 40000))
    ),
    mainPanel(
      textOutput('filea'),
      textOutput('fileb')
    )

  ),
  server =function(input, output)({
    output$filea <- renderText({
      input$file1$datapath
    })
    output$fileb <- renderText({
      input$file2$datapath
    })

  })
  )
)