El objetivo final es crear un txt donde cada fila es distinta.
Para ello tengo distintas variables con distintos valores que se van a ir combinando.
La solución que aporto no me parece la mas adecuado ya que si el numero de valores es mayor el código a escribir seria muy largo, quizás un for
, la problemática que veo que la primera linea de la salida es distinta a las siguientes, y que se volvería a repetir para un nuevo valor de la variable personas.
Código
personas <- data.table(c("Luis","Pedro","Mar"))
año <- "2018"
mes <-"05"
dia <- "23"
dia2 <- data.table(c("lunes","martes","miercoles","jueves","Viernes"))
salida <-data.table(paste(año,mes,dia,personas[1],"&",sep=""),
paste(año,mes,dia,personas[1],dia2[1],"&",sep=""),
paste(año,mes,dia,personas[1],dia2[2],"&",sep=""),
paste(año,mes,dia,personas[1],dia2[3],"&",sep=""),
paste(año,mes,dia,personas[1],dia2[4],"&",sep=""),
paste(año,mes,dia,personas[1],dia2[5],"&",sep=""),
paste(año,mes,dia,personas[2],dia2[1],"&",sep=""),
paste(año,mes,dia,personas[2],dia2[2],"&",sep=""),
paste(año,mes,dia,personas[2],dia2[3],"&",sep=""),
paste(año,mes,dia,personas[2],dia2[4],"&",sep=""),
paste(año,mes,dia,personas[2],dia2[5],"&",sep=""),
paste(año,mes,dia,personas[3],dia2[1],"&",sep=""),
paste(año,mes,dia,personas[3],dia2[2],"&",sep=""),
paste(año,mes,dia,personas[3],dia2[3],"&",sep=""),
paste(año,mes,dia,personas[3],dia2[4],"&",sep=""),
paste(año,mes,dia,personas[3],dia2[5],"&",sep=""))
salida
salida2 <- t(salida)
La salida que obtengo es:
[,1]
V1 "20180524Luis&"
V2 "20180524Luislunes&"
V3 "20180524Luismartes&"
V4 "20180524Luismiercoles&"
V5 "20180524Luisjueves&"
V6 "20180524LuisViernes&"
V7 "20180524Pedrolunes&"
V8 "20180524Pedromartes&"
V9 "20180524Pedromiercoles&"
V10 "20180524Pedrojueves&"
V11 "20180524PedroViernes&"
V12 "20180524Marlunes&"
V13 "20180524Marmartes&"
V14 "20180524Marmiercoles&"
V15 "20180524Marjueves&"
V16 "20180524MarViernes&"
Faltaría la exportación a txt
donde quitaría los nombres de fila y de columna.
¿Alguien podria aportarme otra solucion mejor?
Gracias.