Erstellen von Blindwerten in Schleifen Shiny R

Question

Ich versuche, reaktive Werte in Schleifen zu erstellen Ich möchte grundsätzlich 10 CSV-Dateien für verschiedene Länder (daher die Eingabe [[Paste0 ('Land', i)]])) wie kann ich schaffe reaktive Werte cars_i bis cars_10 Und wenn ich eine reaktive Werte hätte, würde ich die Listen in ihnen Zugriff durch Autos() aufrufen $ getcols

Aber wenn ich 10 haben, wie kann ich sie nennen. Wäre es Autos [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

können Sie versuchen, so etwas wie

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

können Sie die Daten wie dieser Zugriff

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