DT中的多行观察

Question

我需要将一行上的观察分成多行，并且仍然只有一行。

例如

source<-data.frame("MEASURE"=c("First","First","Second"),"DATE"=c("2017-11-02","2017-12-12","2017-05-15"))
source<-source[source$MEASURE=="First",]
source<-droplevels(source)

然后我得到DATES与level（）

y<-paste(levels(as.factor(cf$DATE)),collapse=",")

然后实现另一个DF：

s1<-data.frame(matrix(nrow=1, ncol=2))
s1[1,1]<-"Date"
s1[1,2] y

这使：

    X1                               X2
1 Date            2017-11-02,2017-12-12

但我需要这样的东西

    X1                               X2
1 Date                       2017-11-02
                             2017-12-12

要分割的词可以是1,2或更多。 df仅用于汇总，它将在DT :: renderdataTable（）上用于闪亮

有人可以帮帮我吗？

Answer 1

使用参数escape可能是一个解决方案。你可以在https://rstudio.github.io/DT/第2.9节了解这个论点。并用逗号代替断行：

library(dplyr)
library(stringr)
s1$X2 %>% str_replace_all(pattern = "[,]", replacement = "<br/>")
datatable(s1, escape = FALSE)