在循环中创建反应值 Shiny R

Question

我正在尝试在循环中创建反应值，基本上我想读取不同国家/地区的 10 个 csv 文件（因此输入 [[paste0('country', i)]]）我如何创建反应值 cars_i 直到 cars_10 如果我有一个反应值，我会通过调用访问其中的列表汽车（）$getcols

但是如果我有 10 个我怎么称呼他们。会是 cars[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

在循环中创建反应值 Shiny R

Creating reactive vaues in loops Shiny R

r

shiny

lapply

reactive