我正在尝试在 Flexdashboard 文档中使用 Shiny 制作反应式 selectInput。
-
我的第一次selectInput
选择海洋公园中的区域类型。
selectInput("Zone", label = "Marine Park Zoning:",
choices = c("All", levels(EoTR$MarineParkZone)), selected = "All")
-
然后,我使用此输入创建一个反应式数据框,其中仅包含步骤 1 中选择的区域。
zone.choices = reactive({
if (input$Zone=="All"){
select(EoTR, ReefName, MarineParkZone, MarineParkMgmtSection)
}else{
select(EoTR, ReefName, MarineParkZone, MarineParkMgmtSection)%>%
filter(MarineParkZone==input$Zone)}
})
-
然后我尝试使用这个反应式数据框来定义我的下一个选择selectInput
reactive({
selectInput("Reef", label = "Priority Reef:",
choices = zone.choices()$ReefName, selected = "Arlington Reef (16-064)")
})
当我运行该文档时,我的第二个输入显示一堆代码而不是选择菜单,因此基于该选择器的所有进程都会失败。
下面是一些可以重现该问题的代码
---
title: "Untitled"
output:
flexdashboard::flex_dashboard:
orientation: columns
vertical_layout: fill
runtime: shiny
---
```{r}
library(flexdashboard)
library(dplyr)
EoTR = data.frame(ReefName=c("Reef1", "Reef2", "Reef3", "Reef4"),
MarineParkZone=c("Fished", "Fished", "Un-Fished", "Un-Fished"))
selectInput("Zone", label = "Marine Park Zoning:",
choices = c("All", levels(EoTR$MarineParkZone)), selected = "All")
zone.choices = reactive({
if (input$Zone=="All"){
select(EoTR, ReefName, MarineParkZone)
}else{
select(EoTR, ReefName, MarineParkZone)%>%
filter(MarineParkZone==input$Zone)}
})
reactive({
selectInput("Reef", label = "Priority Reef:",
choices = zone.choices()$ReefName, selected = "Reef1")
})
```
我知道我定义反应性输入的方式可能有些愚蠢,但我真的很感激对此的任何帮助。
Cheers,
Sam