Shiny使用循环从输入分配无功变量

问题描述：

我想根据我的输入使用循环来分配无功变量。例如，我想选择虹膜数据集中的列（从输入）。然后从该列中获取唯一值。我想在循环中做到这一点。我发现它适用于我的'玩笑'变量，但不适用于我的'Group [[paste0（'Gcol'，i）]]''变量。我一直在为这个问题寻找答案。Shiny使用循环从输入分配无功变量

非常感谢您的帮助！

library(shiny) 
data=iris 


ui <- fluidPage(

titlePanel("Old Faithful Geyser Data"), 

sidebarLayout(
    sidebarPanel(

    fluidRow(
     column(9,wellPanel(lapply(1:5, function(i) { 
     selectizeInput(paste0('GroupVar',i), paste0('Group ',i), choices = sort(colnames(data)), 
         options = list(placeholder = 'Select one', 
             onInitialize = I('function() { 
this.setValue(""); }'))) 
     }) 
     ))) 
), 

    mainPanel(
      fluidRow(column(6, wellPanel(
       lapply(1:5, function(i) { 
        uiOutput(paste0('GroupOpt', i)) 
       }) 
      ))), 
      textOutput("try4"), 
      textOutput("try2"), 
      textOutput("try21"), 
      textOutput("try3"), 
      textOutput("try") 
) 
) 
) 

server <- function(input, output) { 

Group=reactiveValues() 

for (i in 1:5){ 
Group[[paste0('Gcol',i)]]=reactive({ 
data[,which(colnames(data)== 
input[[paste0('GroupVar',i)]])]}) 
} 

joke=reactive({data[,which(colnames(data)==input[[paste0('GroupVar',1)]])]}) 

lapply(1:5, function(i) { output[[paste0('GroupOpt',i)]] = renderUI({ 
selectInput(paste0("GroupOpt",i), "Select group",multiple=TRUE, 
      sort(as.character(unique(Group[[paste0('Gcol',i)]]))) 
) 
    })}) 

output$try4 = renderText({print(paste0('it 
is',input[[paste0('GroupVar',1)]]))}) 
output$try2 = renderText({print(dim(Group[[paste0('Gcol',1)]]()))}) 
output$try21 = renderText({print(class(Group[[paste0('Gcol',1)]]()))}) 
output$try3 = 
renderText({print(which(colnames(data)==input[[paste0('GroupVar',1)]]))}) 

output$try = renderText({print(unique(as.character(joke())))}) 


} 

# Run the application 
shinyApp(ui = ui, server = server)

如果您运行代码，请在'Group1'中选择'species'，您会发现它可以找到列号，但为什么数据帧的维数为0？当我使用笑话时，它工作得很好。 – shubei

答

data[, which(colnames(data)=="Species")]不是数据帧，这是列Species，一个因素。如果你想允许一列数据帧，那么做data[, which(colnames(data)=="Species"), drop=FALSE]

替换你的循环与下面的一个，你的应用程序的作品（但可能不是你所期望的;我不知道你想要什么）。

for (i in 1:5){ 
    local({ 
     ii <- i 
     Group[[paste0('Gcol',ii)]]=reactive({ 
     data[,which(colnames(data)==input[[paste0('GroupVar',ii)]])]}) 
    }) 
    }

Shiny使用循环从输入分配无功变量

相关推荐