Una forma bien sencilla usando código base es la siguiente:
# Para esta solución conviene que los valores sean vectores no data.tables
personas <- c("Luis","Pedro","Mar")
año <- "2018"
mes <-"05"
dia <- "23"
# Acá agregamos un blanco a la lista de días
dia2 <- c("lunes","martes","miercoles","jueves","Viernes", "")
cbind(do.call(paste0, expand.grid(paste0(año, mes, dia), personas, dia2, "&")))
[,1]
[1,] "20180523Luislunes&"
[2,] "20180523Pedrolunes&"
[3,] "20180523Marlunes&"
[4,] "20180523Luismartes&"
[5,] "20180523Pedromartes&"
[6,] "20180523Marmartes&"
[7,] "20180523Luismiercoles&"
[8,] "20180523Pedromiercoles&"
[9,] "20180523Marmiercoles&"
[10,] "20180523Luisjueves&"
[11,] "20180523Pedrojueves&"
[12,] "20180523Marjueves&"
[13,] "20180523LuisViernes&"
[14,] "20180523PedroViernes&"
[15,] "20180523MarViernes&"
[16,] "20180523Luis&"
[17,] "20180523Pedro&"
[18,] "20180523Mar&"
- Usamos
expand.grid()
que nos genera la combinación de todos los valores pasados como parámetros - Luego con
do.call()
ejecutamos unpaste0
de las columnas - Por último, con
cbind()
convertimos todo en una matriz de una sola columna
Nota, si aún necesitas usar los data.table
te recomiendo hacer un unlist()
de los mismos antes de pasarlos como parámetro a expand.grid()
:
cbind(do.call(paste0, expand.grid(unlist(personas), paste0(año, mes, dia), unlist(dia2), "&")))
Si es importante el Orden
Para ordenar por Fecha, Persona y Día de la semana:
personas <- c("Luis","Pedro","Mar")
año <- "2018"
mes <-"05"
dia <- "23"
dia2 <- factor(c("", "lunes","martes","miercoles","jueves","Viernes"), ordered=T)
m <- expand.grid(paste0(año, mes, dia), as.character(personas), as.character(dia2), "&")
cbind(do.call(paste0, m[order(m$Var1,m$Var2,m$Var3),]))