RShiny-选择输入+；可渲染过滤

我目前有一个应用程序在运行，它描绘了NBA球队及其绩效指标的表格。“nba”数据包含联盟中每支球队的30行以及26列不同的指标和描述，如“球队”、“会议”、“REC”和“PTS”。用户可以通过checkboxGroupInput选择这些性能指标。我正在尝试为团队会议添加一个过滤器。这将是一个selectInput函数。如果用户选择东部，我希望输出返回一个只包含东部会议团队的表。如果用户选择Western，我希望输出返回一个只有来自Western会议的团队的表。我不知道该怎么做。我尝试过用“input$conference”来代替“nba”和其他技术，但都没有效果。我希望有人能帮忙。这是我的密码：

library(shiny)
library(ggplot2)
library(jsonlite)
nba <- read.csv(file.choose())
head(nba)
Eastern = filter(nba,Conference=="Eastern")
Western = filter(nba,Conference=="Western")

ui <- fluidPage(
    tags$img(height=150, width=830,src = "NBAlogo2.png"),
    tabsetPanel(
        # General
        tabPanel(title = "General",
                 titlePanel("NBA Team Performance Metrics Analysis"),
                 sidebarLayout(
                     sidebarPanel(
                         p("This application allows you to compare and contrast several performance metrics amongst teams in the NBA."),
                         tags$img(height=100, width=100,src = "Eastern.png",align="center"),
                         tags$img(height=100, width=100,src = "Western.png"),
                         
                         # Team Filter
                         selectInput("conference", label = h3("Select Conference"),
                                     choices = list("Eastern", "Western")),

                         # Stat Filter
                         checkboxGroupInput("general", label = h3("General Metrics"), 
                                            choices = list("Winning Percentage" = "REC",
                                                           "Points" = "PTS")),
                     ),
                     mainPanel(
                         # Metric Output
                         h3("General Metrics"),
                         tableOutput("data1"),
                     ),
                 )
        )        
    )
)

server <- function(input, output) {
   
    #  General
    output$data1 <- renderTable({nba[,c("Team",input$general)]},
                                rownames = TRUE)
}

shinyApp(ui = ui, server = server)```

库（闪亮）
图书馆（GG2）
图书馆（jsonlite）
nba你是说这样吗

library(shiny)
library(dplyr)

server <- function(input, output) {
  #  General
  output$data1 <- renderTable({
    nba %>%
      filter(Conference == input$conference) %>%
      select(Team, input$general)
  })
}

库（闪亮）
图书馆（dplyr）
服务器%
选择（团队，输入$general）
})
}