我正在使用R 构建 shinyApp。目前，我正在使用 selectinput 通过放置多个= TRUE选择多个区域/列。但是由于某些不可预见的原因，它无法正常工作。 仅当我将 ALL（全部）放入选择的区域时，它才起作用。 我相信我的问题出在服务器的反应部分。我已附上我的代码，如下所示。有人可以调查一下他们，让我知道他们怎么了。捆绑感谢：）
**Updated Codes**
library(shiny)
library(tidyr)
library(dplyr)
library(readr)
library(DT)
data_table<-mtcars[,c(2,8,1,3,4,5,9,6,7, 10,11)]
data_table$disp<-NULL
names(data_table)[3:10]<- rep(x =
c('TS_lhr_Wave_1','TS_isb_Wave_2','TS_quta_Wave_1','TS_karach_Wave_2',
'NTS_lhr_Wave_1','NTS_isb_Wave_2','NTS_quta_Wave_1','NTS_karach_Wave_2'),
times=1, each=1)
# Define UI
ui <- fluidPage(
downloadButton('downLoadFilter',"Download the filtered data"),
selectInput(inputId = "cyl",
label = "cyl:",
choices = c("All",
unique(as.character(data_table$cyl))),
selected = "All",
multiple = TRUE),
checkboxGroupInput(inputId = "regions", label = "choose region",
choices =c("All", "lhr", "isb", "quta", "karach"),
inline = TRUE, selected = c("All")),
checkboxGroupInput(inputId = "waves", label = "choose wave",
choices =c("All", "Wave_1", "Wave_2"), inline = TRUE,
selected = c("All")),
DT::dataTableOutput('ex1'))
# Define Server
server <- function(input, output) {
thedata <- reactive({
if(input$cyl != 'All'){
data_table<-data_table[data_table$cyl %in% input$cyl,] }
#region
cols <- c(1, 2)
# print(input$regions)
if ('All' %in% input$regions){
cols <- 1:ncol(data_table)
}
else{
if ('lhr' %in% input$regions){
cols <- c(cols, c(3,7))
}
if ('isb' %in% input$regions){
cols <- c(cols, c(4,8))
}
if ('quta' %in% input$regions){
cols <- c(cols, c(5,9))
}
if ('karach' %in% input$regions){
cols <- c(cols, c(6,10))
}}
#else
data_table<-data_table[,cols, drop=FALSE]
#waves
colss <- c(1, 2)
# print(input$regions)
if ('All' %in% input$waves){
colss <- 1:ncol(data_table)
}
else{
if ('Wave_1' %in% input$waves){
colss <- c(colss, c(3,5,7, 9))
}
if ('Wave_2' %in% input$waves){
colss <- c(colss, c(4,6, 8, 10))
}}
#else
data_table<-data_table[,colss, drop=FALSE]
})
output$ex1 <- DT::renderDataTable(DT::datatable(filter = 'top',
escape = FALSE,
options = list(
scrollX='500px',autoWidth = TRUE),{
thedata() }))
output$downLoadFilter <- downloadHandler(
filename = function() {
paste('Filtered data-', Sys.Date(), '.csv', sep = '') },
content = function(path){
write_csv(thedata(),path) })}
shinyApp(ui = ui, server = server)
答案 0 :(得分：1)
因此您假设错误是在服务器的响应部分中实现的，我发现了两个主要问题。
当您选择多个区域时，input$regions是一个以上字符的向量，这就是为什么当R计算表达式input$regions == 'lhr'时，它仅比较{的第一个元素{1}}和input$regions，并在控制台中显示警告。
在每个if语句中，您都在重新分配'lhr'变量，例如，当选择了data_table和'lhr'时，则在第一个'isb'语句中您为if分配了4列，然后在评估第二个data_table
建议：在开发应用程序期间，您可以添加打印语句作为调试方法，并且在运行应用程序时，请密切注意控制台以查看发生的情况。如果您要取消注释，请尝试添加一条打印语句作为注释。
if关于评论中的问题，似乎我忘记了在选择thedata <- reactive({
if(input$cyl != 'All'){
data_table <- data_table[data_table$cyl %in% input$cyl,] }
#region
all_cols <- names(data_table)
region_cols <- c("cyl", "vs" )
# print(input$regions)
if ('All' %in% input$regions){
region_cols <- names(data_table)
}
else{
if ('lhr' %in% input$regions){
region_cols <- c(region_cols, all_cols[grep('lhr', all_cols)])
}
if ('isb' %in% input$regions){
region_cols <- c(region_cols, all_cols[grep('isb', all_cols)])
}
if ('quta' %in% input$regions){
region_cols <- c(region_cols, all_cols[grep('quta', all_cols)])
}
if ('karach' %in% input$regions){
region_cols <- c(region_cols, all_cols[grep('karach', all_cols)])
}}
#waves
waves_cols <- c("cyl", "vs" )
# print(input$regions)
if ('All' %in% input$waves){
waves_cols <- names(data_table)
}
else{
if ('Wave_1' %in% input$waves){
waves_cols <- c(waves_cols, all_cols[grep('Wave_1', all_cols)])
}
if ('Wave_2' %in% input$waves){
waves_cols <- c(waves_cols, all_cols[grep('Wave_2', all_cols)])
}}
# print(intersect(region_cols, waves_cols))
data_table <- data_table[,intersect(region_cols, waves_cols), drop=FALSE]
})
（：P）时添加if语句，它现在的工作方式是一旦选择了“全部”，便有无需评估另一个if语句。
现在无论是否选择了任何区域，都始终选择前两列（并且不重复）。