Блог

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

 library(shiny)
library(shinydashboard)
  

пользовательский интерфейс

 ui <- dashboardPage(
  dashboardHeader(title = "Record Linkage App"),
  dashboardSidebar(
    sidebarMenu(
      ## Tab 1 -- Specify Task
      menuItem("Select Task And Upload Files", tabName = "task", icon = 
    icon("file-text-o")),
  ## Tab 2 -- View Raw Data Files
  menuItem("View Raw Data", tabName = "raw", icon = icon("file-text-o")),
  ## Tab 3 -- View Processed Data Files
  menuItem("View Processed Data", tabName = "processed", icon = icon("file-text-o")),
  ## Tab 4 -- Select Training Set
  menuItem("Select Training Set", tabName = "mltrain", icon = icon("file-text-o")),
  ## Tab 5 -- View Weight amp; Probabilities (choose which chart to view or both?)
  menuItem("Visualize Distributions", tabName = "distributions", icon = icon("bar-chart-o")),
  ## Tab 6 -- View Results (review, match and trash files--need to be able to choose dataset)
  ## Want to be able to add checkboxes to select rows for inclusion in deletion later on
  menuItem("View Result Files", tabName = "fileview", icon = icon("file-text-o"))

)), # close dashboard sidebar

  #### Dashboard Body starts here

  dashboardBody(
    tabItems(
  ### Specify Task amp; Upload Files Tab
  tabItem(tabName = "task",
          radioButtons("task", "Select a Task:", c("Frame Deduplication", "Frame Record Linkage")),
          fileInput("selection", "Upload Files:", multiple = T, 
                    accept = c(".xls", "text/csv", "text/comma-separated-values, text/plain", ".csv")),
          helpText(paste("Please upload a file.  Supported file types are:  .txt, .csv and .xls"))

          ), # close first tabItem

  tabItem(tabName = "raw",
          helpText(paste("This tab displays the raw, unprocessed data frames selected in the previous tab.")),
          mainPanel(
            tableOutput("contents")

          )

) # close tabItems

  ) # close dashboardBody
) #close dashboardpage
  

)

сервер

 server <- function(input, output, session) {
   output$contents <- renderTable({
      req(input$file1)
      read.csv(input$file1$datapath)

  })
}

shinyApp(ui, server)
  

Я хотел бы иметь возможность отображать таблицу на вкладке «raw».

Мой вопрос: 1. Если я просто хочу отобразить таблицу, должна ли она быть reactive ?
2. Как input$file1$datapath войти в renderTable ?

Любые предложения или рекомендации будут оценены. Спасибо.

Я думаю, вы воспринимаете документацию слишком буквально: вы должны ссылаться input$selection , а не input$file1 . Я изменил ваш серверный компонент на этот, и это сработало:

 server <- function(input, output, session) {
  output$contents <- renderTable({
    req(input$selection)
    read.csv(input$selection$datapath)
  })
}
  

Кстати: хотя это и не наносит вреда, вы используете mainPanel , который обычно используется в приложении, отличном от панели мониторинга, вместе с shiny::sidebarLayout . Однако, поскольку вы используете shinydashboard , в этом нет необходимости, и вы можете уменьшить последнее tabItem до просто

       tabItem(tabName = "raw",
              helpText(paste("This tab displays the raw, unprocessed data frames selected in the previous tab.")),
              tableOutput("contents")
              )