kableExtra :: text_spec - Повернуть текст - Нежелательные запятые

Использование RSTudio> Blogdown> Hugo для создания блога Вставка этого R в сообщение. При рендеринге HTML между повернутыми буквами появляются запятые. Это почему?

введите здесь описание изображения

library("knitr")
library("kableExtra")
library("dplyr")
library("formattable")
library("stringr")
library("tidyverse")

p1 <- c("R Markdown is pretty neat. You can do things like this. I wonder why more people don't")
p1 <- c("Hello World!")
p2 <- c("do this. It's so much easier to read. NOTE: Those people live here.")

p_text <- unlist(strsplit(p1, "")) # strsplit returns a list. Make it a vector.
num_char <- length(p_text)

p_angle <- seq(30, 360, 30) 
num_ang <- length(p_angle)
p_angle_long <- rep(p_angle, ceiling(num_char / num_ang))  # Repeat the angles for the length of the string
p_angle_long <- p_angle_long[1:num_char]

rtext <- text_spec(p_text, "html", bold = TRUE, angle = p_angle_long)

r html r-markdown blogdown
person ixodid    schedule 21.03.2018    source источник

Ответы (1)


arrow_upward
1
arrow_downward

Результатом text_spec является вектор, в котором каждая буква (+ сопутствующие теги HTML) является отдельным элементом. Вы можете объединить в одну строку с помощью paste0:

# Example RMarkdown chunk that produces rotated text:
```{r txt, results='asis'}
library("knitr")
library("kableExtra")
library("tidyverse")

p1 <- c("Hello World!")
p2 <- c("do this. It's so much easier to read. NOTE: Those people live here.")

p_text <- unlist(strsplit(p1, "")) # strsplit returns a list. Make it a vector.
num_char <- length(p_text)

p_angle <- seq(30, 360, 30) 
num_ang <- length(p_angle)
p_angle_long <- rep(p_angle, ceiling(num_char / num_ang))  
# Repeat the angles for the length of the string
p_angle_long <- p_angle_long[1:num_char]

rtext <- text_spec(p_text, "html", bold = TRUE, angle = p_angle_long)
cat(paste0(rtext, collapse=""))
```
person Marius    schedule 21.03.2018
comment
Спасибо за помощь! - person ixodid; 21.03.2018