Форматирование текста списков в Markdown Pando c - PullRequest
1 голос
/ 01 августа 2020

Я добавил звездочки и новый разрыв строки в элементы 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"

Как напечатать отдельные элементы в маркированном подсписке?

Это не работает:

  • Bullet 1
    • r finalList

В моем выводе есть лишние запятые и нет маркеров для подсписок:

  • Маркер 1

    • 1

    , * 2

    , * 3

Я бы хотел, чтобы это выглядело так:

  • Bullet 1
    • 1
    • 2
    • 3

1 Ответ

1 голос
/ 01 августа 2020

Убрать из списка ваш finalList объект и свернуть все элементы вместе, чтобы избежать запятых

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 = unlist(createPoints(sampleList))

r paste(finalList, collapse = " ")

...