R вставить html строка с заголовком

Question

Не удается найти удовлетворительное решение, возможно, очень простой проблемы.

У меня есть фрейм данных

df <- data.frame(date=c("a","a","a","a","b","b"),text=c("c","d","e","f","g","h"))

, и мне нужна такая строка:

"<h4>date a </h4><br> c <br> d <br> e <br> f <br> <h4>date b </h4> <br> g <br> h"

Любая подсказка будет высоко оценена

Answer 1

Немного неуклюже, но вы можете попробовать:

do.call(paste, list("<h4> date", unique(df$date), "</h4><br>", tapply(df$text, df$date, FUN =  paste, collapse = " <br> "), collapse = " "))

[1] "<h4> date a </h4><br> c <br> d <br> e <br> f <br> <h4> date b </h4><br> g <br> h"

Answer 2

Примерно так:

 df <- data.frame(date=c("a","a","a","a","b","b"),text=c("c","d","e","f","g","h"), stringsAsFactors = F)


 p1 <- paste("<h4>date", unique(df$date)[1], "</h4><br>", paste(df$text[df$date=="a"], collapse = " <br> "), "<br>")
 p2 <- paste("<h4>date", unique(df$date)[2], "</h4><br>", paste(df$text[df$date=="b"], collapse = " <br> "))

 paste(p1,p2)