Question

我的代码如下，演示网站位于：http://glimmer.rstudio.com/kdavenport/test1/

第一个输入（下拉列表）加载global.R

中定义的数据帧

第二个输入（下拉列表）通过df

的“服务”列过滤此数据帧

第三个输入（复选框）通过df

的“Round”列进一步过滤数据帧

问题是，在步骤2中通过“服务”过滤后，显示了步骤1中数据框可用的所有复选框，而不是可用的复选框。下面我有1. clientData＆gt; serviceFiltered_clientData＆gt; roundFiltered_clientData

shinyServer(function(input, output) {

  # First UI input (Service column) filter clientData 
  output$serviceControls <- renderUI({
    if (is.null(clientData()))
      return("No client selected")
    selectInput("service_select", 
                "Choose Service:", 
                choices = as.character(levels(clientData()$Service.Name)),
                selected = input$service_select
    )
  })

  # Second UI input (Rounds column) filter service-filtered clientData  
  output$roundControls <- renderUI({
    if (is.null(serviceFiltered_clientData()))
      return("No service selected")
    checkboxGroupInput("round_select", 
                       "Choose Round:", 
                       choices = as.character(levels(serviceFiltered_clientData()$Round)))
  })  

  # First data load (client data)
  clientData <- reactive({
    if (is.null(input$client_select))
      return(NULL)
    get(input$client_select)
  })

  # Second data load (filter by service column)
  serviceFiltered_clientData <- reactive({
    dat <- clientData()
    if (is.null(dat))
      return(NULL)
    if (!is.null(input$service_select)) # !
      dat <- dat[dat$Service.Name %in% input$service_select,]
    return(dat)
  })

  # Third data load (filter by round column)
  roundFiltered_clientData <- reactive({
    dat <- serviceFiltered_clientData()
    if (is.null(dat))
      return(NULL)
    if (!is.null(input$round_select)) # !
      dat <- dat[dat$Round %in% input$round_select,]
    return(dat)
  })


  # Audit count panel
  output$auditsCount <- renderText({
    if (is.null(roundFiltered_clientData()))
      return("No client selected")
    paste("Total Audits:",nrow(roundFiltered_clientData()))
  })

Answer 1

反应性雏菊链一直在工作，问题是“Round”列被加载为一个因子，并且因子在子集化后仍然作为数据帧属性。因此，我需要在对数据进行子集化之后使用droplevels（）。我在下面添加了dat <- droplevels(dat)：

  # Second data load (filter by service column)
  serviceFiltered_clientData <- reactive({
    dat <- clientData()
    if (is.null(dat))
      return(NULL)
    if (!is.null(input$service_select)) # !
      dat <- dat[dat$Service.Name %in% input$service_select,]
    dat <- droplevels(dat) # This is what fixed it
    return(dat)
  })

Answer 2

您可以通过对checkboxInputs进行分组并使用conditionalPanel进行选择性地显示和隐藏来解决此问题。

步骤：

对于每个按服务过滤的情况，请创建一个动态列表，其中包含哪些复选框。
根据您的下拉列表＃2（服务）选择创建条件。
仅显示通过条件的复选框选项。

<强>伪代码

# Only show this panel if a certain Service is selected
      conditionalPanel(
         condition = "input.service.option == 'filter2'",
         checkboxInput(inputId = "opt.col1", label = "label1", value = FALSE),
         checkboxInput(inputId = "opt.col3", label = "label3", value = FALSE),
         )

See this example由RStudio人员和accompanying code.（Esp。在UI.R中使用多个conditionalPanel的代码部分。）

ReactiveUI基于ReactiveUI问题

2 个答案: