RShiny - selectInput + renderTable 过滤

如何解决RShiny - selectInput + renderTable 过滤

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

requests.exceptions.ProxyError: HTTPSConnectionPool(host='xxxxx.service-Now.com',port=443): Max retries exceeded with url: /api/Now/table/incident?sysparm_query=number%3DINC000008233159 (Caused by ProxyError('Cannot connect to proxy.',OSError(0,'Error')))

解决方法

你的意思是这样吗？

library(shiny)
library(dplyr)

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