R 显示闪亮应用程序的数据表

在尝试创建一个反应表之后，我得到了一个空白屏幕。这是我的密码

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?

---

pitchrlist在UI中有
DT:：dataTableOutput（“pitchTypes”）
，但在服务中有
output$pitchTypes
。两种情况下的名称应相同，例如
pitchTypes
。