Блог

Главная - Вопросы по программированию - Таблица Данных, Отображающая Блестящие Приложения

Таблица Данных, Отображающая Блестящие Приложения

#r #shiny #shinyapps

Вопрос:

Я получаю пустой экран после попытки создать реактивную таблицу. Вот мой код

 PitcherList <- unique(master2$mlb_name)
ui <- fluidPage(
  titlePanel("Position of Home Runs"),
   sidebarLayout(
      sidebarPanel(
        selectInput("Selectpitcher", h3("Select box"),
                choices = PitcherList, selected = "Aaron Nola")
  ),
    mainPanel(
       h2("Player Table"),
       DT::dataTableOutput("pitchTypes"))
   ))

server <- function(input, output) {
   SelectedTypeReactive<-reactive({
    pitch_type_chart %>% filter(mlb_name == input$Selectpitcher)})
   output$PitchTypes<-DT::renderDT({SelectedTypeReactive()})
  
}
shinyApp(ui = ui, server = server)```
Why is the table not showing up?

Комментарии:

1. В пользовательском интерфейсе у вас есть DT::dataTableOutput("pitchTypes")) , но в подаче у вас есть output$PitchTypes . Имена должны быть одинаковыми, например pitchTypes , в обоих случаях.

Метки: ,