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()`][1] que nos genera la combinación de todos los valores pasados como parámetros
+ Luego con [`do.call()`][2] ejecutamos un `paste0` de las columnas
+ Por último, con  [`cbind()`][3] 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()`][1]:

    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),]))

  [1]: https://stat.ethz.ch/R-manual/R-devel/library/base/html/expand.grid.html
  [2]: http://stat.ethz.ch/R-manual/R-devel/library/base/html/do.call.html
  [3]: http://stat.ethz.ch/R-manual/R-devel/library/base/html/cbind.html