在循环Shiny R中创建反应性vaues

Question

我试图在循环中创建反应值基本上我想读取不同国家的10个csv文件（因此输入[[paste0（＆＃39; country＆＃39;，i）]]） 如何创建反应值cars_i直到cars_10 如果我有一个反应值，我会通过调用访问它们内部的列表 汽车（）$ getcols

但如果我有10，我怎么称呼他们。它会是汽车[i] $ getcols吗？

 lapply(1:10, function(i) {

paste0('cars', i)<- reactive({    
cars<-fread(paste(input[[paste0('country', i)]],"cars.csv",sep = "")) 
list(Name=cars$Name,Category=cars$Category,getcols=names(cars))
})
})

Answer 1

您可以尝试类似

的内容

data <- reactive({ lapply(1:10, function(i) read.csv(paste0("country_", i, ".csv"))) })

您可以像这样访问

data()[[1]]  # country_1
data()[[2]]  # country_2