我正在 Shiny 上构建一个小部件，我希望有“全部”选项来选择所有可用的数据，并且不执行过滤。
基本上，我想要以下代码（使用 dplyr）：
filt<-sample(c("All", unique(mtcars$carb)),1)
data1<- mtcars %>%
ifelse (filt=="All", select(), filter(carb==filt))
它会过滤mtcars基于的价值filt.
If 过滤==“全部”那么它不会过滤并简单地返回mtcars.
有什么优雅的解决方案吗？
像这样的东西应该可以工作（通过适当的修改以使用此反应中的输入值filt多变的）：
reactiveObject <- reactive({
filt <- sample(c("All", unique(mtcars$carb)),1)
if (filt == 'All') {
data1 <- mtcars
} else {
data1 <- filter(mtcars, carb == filt)
}
data1
})
本文内容由网友自发贡献，版权归原作者所有，本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容，请联系:hwhale#tublm.com(使用前将#替换为@)
