Я добавил звездочки и новый разрыв строки в элементы sampleList, чтобы создать маркированный список:
sampleList <- list(1, 2, 3)
# Create bulleted list
createPoints = function(list) {
# Pre-allocate list
setList <- vector(mode = "list", length = length(list))
# Add elements to each line
for (i in seq_along(list)) {
line = sprintf("* %s \n", list[[i]])
setList[[i]] <- line
}
return(setList)
}
finalList = createPoints(sampleList)
Вывод:
[[1]]
[1] "* 1 \n"
[[2]]
[1] "* 2 \n"
[[3]]
[1] "* 3 \n"
Как напечатать отдельные элементы в маркированном подсписке?
Это не работает:
В моем выводе есть лишние запятые и нет маркеров для подсписок:
Я бы хотел, чтобы это выглядело так: