Получение предупреждающего сообщения при печати данных на основе столбцов в блестящем приложении - PullRequest
Новая
       8

Получение предупреждающего сообщения при печати данных на основе столбцов в блестящем приложении

0 голосов
/ 03 января 2019

Я пытаюсь написать блестящее приложение для отображения данных по столбцам.Код работает, но получает предупреждение в RStudio.

Предупреждение выглядит следующим образом:

Warning: Error in [.data.frame: undefined columns selected Stack trace (innermost first): 82: [.data.frame 81: [ 80: print 79: renderTable [/media/ubuntu/C2ACA28AACA27895/Windows/work/R/Shiny_Apps/hos_performance/patsatsys.R#40] 78: func 77: origRenderFunc 76: output$tab1 1: runApp

Ниже приведен код: 

library(shiny)
library(shinydashboard)        

ui <- fluidPage(

  navbarPage(title = "PATSATSYS",
             tabPanel("DataSets", 
                      sidebarLayout(
                        sidebarPanel(
                          fileInput("file1", "Choose CSV File", accept=c('text/csv', 'text/comma-separated-values', 'text/plain', '.csv')),
                          selectInput("dcol", "Choose the Column", choices = " ", selected = " ")
                      ), 
                        mainPanel(tableOutput("tab1"))
                    )
         ),
             tabPanel("Discriptives", textOutput("sum-1")),
             tabPanel("Revenue/Cost", textOutput("text-1")),
             tabPanel("Performance", textOutput("text-2"))
         )
  )


server <- function(input, output, session) {

  data_input <- reactive({
    infile <- input$file1
    req(infile)
    data.frame(read.csv(infile$datapath)) 
  })

  observeEvent(input$file1,{
    updateSelectInput(session,
                  inputId = "dcol",
                  choices = names(data_input()))
  }
  )

  output$tab1 <- renderTable({
    df <- data_input()
    print(df[input$dcol])

  })
}

shinyApp(ui, server)

Я ожидаю, что код будет выполнен без предупреждениясообщение.Как избавиться от предупреждающего сообщения?

1 Ответ

0 голосов
/ 03 января 2019

Это должно сделать это: 

  output$tab1 <- renderTable({
    data_input()[[input$dcol]]
  })
...