选择多个输入时的动态/条件筛选(selectizeInput,multiple=TRUE)
如果multiple=TRUE,在输入selectizeInput中使用动态/条件过滤的正确方法是什么 在本例中,我试图显示受祖父母过滤器限制的父过滤器any、all、none,然后显示受父过滤器限制的子过滤器 .getReactiveEnvironment$currentContext中出错:如果没有活动-反应上下文,则不允许操作。您试图做的事情只能从被动表达式或观察者内部完成 更新 以下是@heds1中解决方案的flexdashboard版本:选择多个输入时的动态/条件筛选(selectizeInput,multiple=TRUE),r,shiny,flexdashboard,shinywidgets,R,Shiny,Flexdashboard,Shinywidgets,如果multiple=TRUE,在输入selectizeInput中使用动态/条件过滤的正确方法是什么 在本例中,我试图显示受祖父母过滤器限制的父过滤器any、all、none,然后显示受父过滤器限制的子过滤器 .getReactiveEnvironment$currentContext中出错:如果没有活动-反应上下文,则不允许操作。您试图做的事情只能从被动表达式或观察者内部完成 更新 以下是@heds1中解决方案的flexdashboard版本: --- title: "Example" ru
---
title: "Example"
runtime: shiny
output:
flexdashboard::flex_dashboard:
vertical_layout: fill
---
```{r}
library(tidyverse)
library(flexdashboard)
library(shinyWidgets)
```
```{r global, include=FALSE}
filter_df <- data.frame(filter_GP = c("gpA", "gpA", "gpA", "gpB", "gpB", "gpB"),
filter_P = c("p1", "p1", "p2", "p3", "p4", "p4"),
filter_C = c("g", "h", "i", "j", "k", "l"))
data_df <- data.frame(y = seq(from=1, to=12),
filter_C = c("g", "g", "h", "h", "i", "i", "j", "j", "k", "k", "l", "l"))
data_df <-
data_df %>%
left_join(filter_df, by="filter_C")
```
Sidebar {.sidebar}
=====================================
```{r}
# grandparents
selectizeInput("GP", label = "Grandparents (multi-select):",
choices = unique(filter_df$filter_GP),
multiple = TRUE,
selected = "")
# parents
output$P <- renderUI({
df <- data_df[data_df$filter_GP %in% input$GP, ]
selectizeInput(
'P', 'Parents', choices = unique(df$filter_P), multiple = TRUE
)
})
uiOutput("P")
# children
output$C <- renderUI({
df <- data_df[data_df$filter_GP %in% input$GP, ]
df <- df[df$filter_P %in% input$P, ]
selectizeInput(
'C', 'Children', choices = unique(df$filter_C), multiple = TRUE
)
})
uiOutput("C")
```
Test
=====================================
您可以使用uiOutput和selectizeInput来实现这一点。我不知道flexdashboard和ShinyWidget,但使用shiny本身,您可以这样做:
library(shiny)
library(tidyverse)
filter_df <- data.frame(filter_GP = c("gpA", "gpA", "gpA", "gpB", "gpB", "gpB"),
filter_P = c("p1", "p1", "p2", "p3", "p4", "p4"),
filter_C = c("g", "h", "i", "j", "k", "l"))
data_df <- data.frame(y = seq(from=1, to=12),
filter_C = c("g", "g", "h", "h", "i", "i", "j", "j", "k", "k", "l", "l"))
data_df <-
data_df %>%
left_join(filter_df, by="filter_C")
ui <- {
fluidPage(
# grandparents
selectizeInput("GP", label = "Grandparents (multi-select):",
choices = unique(filter_df$filter_GP),
multiple = TRUE,
selected = ""),
uiOutput("P"),
uiOutput("C")
)
}
server <- function(input, output, session) {
output$P <- renderUI({
df <- data_df[data_df$filter_GP %in% input$GP, ]
selectizeInput(
'P', 'Parents', choices = unique(df$filter_P), multiple = TRUE
)
})
output$C <- renderUI({
df <- data_df[data_df$filter_GP %in% input$GP, ]
df <- df[df$filter_P %in% input$P, ]
selectizeInput(
'C', 'Children', choices = unique(df$filter_C), multiple = TRUE
)
})
}
shinyApp(ui, server)
太好了,@heds1!我在原始问题中添加了flexdashboard版本的解决方案。
library(shiny)
library(tidyverse)
filter_df <- data.frame(filter_GP = c("gpA", "gpA", "gpA", "gpB", "gpB", "gpB"),
filter_P = c("p1", "p1", "p2", "p3", "p4", "p4"),
filter_C = c("g", "h", "i", "j", "k", "l"))
data_df <- data.frame(y = seq(from=1, to=12),
filter_C = c("g", "g", "h", "h", "i", "i", "j", "j", "k", "k", "l", "l"))
data_df <-
data_df %>%
left_join(filter_df, by="filter_C")
ui <- {
fluidPage(
# grandparents
selectizeInput("GP", label = "Grandparents (multi-select):",
choices = unique(filter_df$filter_GP),
multiple = TRUE,
selected = ""),
uiOutput("P"),
uiOutput("C")
)
}
server <- function(input, output, session) {
output$P <- renderUI({
df <- data_df[data_df$filter_GP %in% input$GP, ]
selectizeInput(
'P', 'Parents', choices = unique(df$filter_P), multiple = TRUE
)
})
output$C <- renderUI({
df <- data_df[data_df$filter_GP %in% input$GP, ]
df <- df[df$filter_P %in% input$P, ]
selectizeInput(
'C', 'Children', choices = unique(df$filter_C), multiple = TRUE
)
})
}
shinyApp(ui, server)