I have a lot of dataframes with 8208 rows and would like to split each of them into 19 dataframes each with 432 rows. I assigned the following function:
splitter <- function(x) {
a <- x[1:432,]
b <- x[433:864,]
c <- x[865:1296,]
d <- x[1297:1728,]
e<- x[1729:2160,]
f <- x[2161:2592,]
g <- x[2593:3024,]
h <- x[3025:3456,]
i <- x[3457:3888,]
j <- x[3889:4320,]
k <- x[4321:4752,]
l <- x[4753:5184,]
m <- x[5185:5616,]
n <- x[5617:6048,]
o <- x[6049:6480,]
p <- x[6481:6912,]
q <- x[6913:7344,]
r <- x[7345:7776,]
s <- x[7777:8208,]
assign(paste0('1',x), a, envir = globalenv())
assign(paste0('2',x), b, envir = globalenv())
assign(paste0('3',x), c, envir = globalenv())
assign(paste0('4',x), d, envir = globalenv())
assign(paste0('5',x), e, envir = globalenv())
assign(paste0('6',x), f, envir = globalenv())
assign(paste0('7',x), g, envir = globalenv())
assign(paste0('8',x), h, envir = globalenv())
assign(paste0('9',x), i, envir = globalenv())
assign(paste0('10',x), j, envir = globalenv())
assign(paste0('11',x), k, envir = globalenv())
assign(paste0('12',x), l, envir = globalenv())
assign(paste0('13',x), m, envir = globalenv())
assign(paste0('14',x), n, envir = globalenv())
assign(paste0('15',x), o, envir = globalenv())
assign(paste0('16',x), p, envir = globalenv())
assign(paste0('17',x), q, envir = globalenv())
assign(paste0('18',x), r, envir = globalenv())
assign(paste0('19',x), s, envir = globalenv())}
When I try the code on a dataframe, I get the error messages:
Error in assign(paste0("1", x), a, envir = globalenv()) : variable names are limited to 10000 bytes In addition: Warning message: In assign(paste0("1", x), a, envir = globalenv()) : only the first element is used as variable name