Необходимо правильно настроить среду, поскольку данные создаются только в функции.
read_censor_data <- function(id = 1:99){
for(i in id){
assign(paste0("sensor_",i),read.csv(paste0(i,'.csv')), envir = parent.frame())
print(paste0("Sensor_",i," has been succesfully read."))
}
}
read_censor_data(12:19)
Однако обычно не рекомендуется создавать множество фреймов данных в глобальной среде из функции. Попробуйте использовать списки, которыми проще управлять.
read_censor_data <- function(id = 1:99){
lapply(paste0("sensor_", id), read.csv)
}
list_df <- read_censor_data(12:19)
Затем вы можете получить доступ к каждому отдельному кадру данных с помощью list_df[[1]]
, list_df[[2]]
et c.