R, вставить многострочный текст группы

Question

У меня есть данные, как показано ниже

> cat(interim)  
        name:Huff, 
        data: [[15,0,15],#FF0000] 
       },{ 

        name:santosh, 
        data: [[5,0,5],#FF0000] 
       },{ 
> cat(lastline) 

        name:sekhar, 
        data: [[7,0,7],0000CC] 

и окончательный вывод, что я хотел бы иметь, как показано ниже.

    name:Huff, 
        data: [[15,0,15],#FF0000] 
       },{ 

        name:santosh, 
        data: [[5,0,5],#FF0000] 
       },{ 

        name:sekhar, 
        data: [[7,0,7],0000CC] 

Я попытался

paste(interim, lastline) 
paste(interim, lastline, sep ="\n") 
paste(interim, lastline, collapse = "\n") 
paste(interim, lastline, sep ="\n", collapse = "\n") 

но ни один из них не работает.

Мне было интересно, из-за последовательности, которую я использовал для генерации данных.

(FYI, вот как я получил промежуточный набор данных и lastline набора данных.)

JV <- data.frame('poster'= c('Huff','santosh', 'sekhar', 'sekhar'), 
       'nb' = c(15,5,7,7), 
      'sum' = c(0,0,0,0), 
      'color' = c('#FF0000','#FF0000','0000CC','0000CC')) 

a <- paste("     name:", JV$poster[1:2], "," ,sep="") 
b <- paste("     data: [[",JV$nb[1:2], "," , JV$sum[1:2], "," , JV$nb[1:2]*(JV$sum[1:2]+1) , "]", ",", JV$color[1:2],"]",sep="") 
c <- "    },{" 
interim <- paste("\n",a,b,c,sep = "\n") 

A <- paste("     name:", JV$poster[4], "," ,sep="") 
B <- paste("     data: [[",JV$nb[4], "," , JV$sum[4], "," , JV$nb[4]*(JV$sum[4]+1) , "]", ",", JV$color[4],"]",sep="") 
lastline <- paste("\n", A,B,sep = "\n") 

Любые советы будут очень признателен!

Answer 1

Я не думаю, что у вас есть проблема:

> interim <- "     name:Huff, 
+      data: [[15,0,15],#FF0000] 
+     },{ 
+ 
+      name:santosh, 
+      data: [[5,0,5],#FF0000] 
+     },{ 
+ " 
> lastline <- "     name:Huff, 
+      data: [[15,0,15],#FF0000] 
+     },{ 
+ 
+      name:santosh, 
+      data: [[5,0,5],#FF0000] 
+     },{ 
+ 
+      name:sekhar, 
+      data: [[7,0,7],0000CC] 
+ " 
> result<-paste(interim, lastline) 
> cat(result) 
       name:Huff, 
       data: [[15,0,15],#FF0000] 
      },{ 

       name:santosh, 
       data: [[5,0,5],#FF0000] 
      },{ 
       name:Huff, 
       data: [[15,0,15],#FF0000] 
      },{ 

       name:santosh, 
       data: [[5,0,5],#FF0000] 
      },{ 

       name:sekhar, 
       data: [[7,0,7],0000CC] 

Я знаю, что это выглядит странно, когда вы просто спросите R, чтобы отобразить его в приглашении, но когда вы используете его, он будет расширяться \ n соответствующим символам.