Как построить график в блестящем приложении после загрузки файла

Question

У меня действительно простой CSV-файл.

> head(data)
  X Y
1 1 1
2 2 2
3 3 4
4 4 8

Я пытаюсь создать панель инструментов приложения, которая отображает эти данные после загрузки файла.

Это то, что я имею до сих пор.

library(shinydashboard)


ui <- dashboardPage(
  dashboardHeader(title = "Basic dashboard"),
  dashboardSidebar(
    fileInput("file1", "Choose CSV File",
              multiple = TRUE,
              accept = c("text/csv",
                         "text/comma-separated-values,text/plain",
                         ".csv")),
    sidebarMenu(
      menuItem("Dashboard", tabName = "dashboard", icon = icon("dashboard")),
      menuItem("Widgets", tabName = "widgets", icon = icon("th"))
    )
  ),
  dashboardBody(
    tabItems(
      # First tab content
      tabItem(tabName = "dashboard",
              fluidRow(
                box(plotOutput("plot1", height = 250))
              )
      ),

      # Second tab content
      tabItem(tabName = "widgets",
              h2("Widgets tab content")
      )
    )
  )
)

server <- function(input, output) {
  options(shiny.maxRequestSize=100*1024^2)

  inFile <- input$file1
  data <- read.csv(inFile$datapath, header = input$header, stringsAsFactors = FALSE)

  output$plot1 <- renderPlot({
    plot(data)
  })
}

shinyApp(ui, server)

Но я получаю сообщение об ошибке

Error in .getReactiveEnvironment()$currentContext() : 
  Operation not allowed without an active reactive context. (You tried to do something that can only be done from inside a reactive expression or observer.)

Из того, что я прочитал, прочитанный файл должен быть реактивным, и затем это должно быть вызвано графиком, но я не знаком с концепциями реактивного взаимодействия, любая помощь будет оценена.

Answer 1

Вы можете сделать

data <- reactive({
  inFile <- input$file1
  if(!is.null(inFile)){
    read.csv(inFile$datapath, header = input$header, stringsAsFactors = FALSE)    
  }
})

output$plot1 <- renderPlot({
  req(data())
  plot(data()$X, data()$Y)
})