Всплывающая подсказка / всплывающее окно для kable в Rmarkdown

Для этого я использую kableExtra. Мой набор данных:

data = data.frame(REASON_CODE = c('V312A','UW32E','R312D'), REASON_DESCRIPTION = c('MISTAKE','ACCIDENT','INTENTIONAL'))

Поскольку описание причины намного длиннее, я пытаюсь использовать его в виде всплывающей подсказки / всплывающего сообщения для каждой ячейки в коде причины. Мой текущий код:

data$REASON_CODE = text_spec(x = data$REASON_CODE,'tooltip',format = 'html', tooltip = data$REASON_DESCRIPTION) 
kable(data[,1])

Я вижу ошибку, поскольку на моем выводе печатается полный HTML-код.

<span style=" NA    TRUE" data-toggle="tooltip" data-placement="right" title="MISTAKE">V312A</span>

Я не уверен, в чем заключается ошибка, и каковы возможные варианты для чего-то подобного?


r r-markdown knitr kableextra kable
person Khiem Nguyen    schedule 31.03.2018    source источник

Ответы (1)


arrow_upward
7
arrow_downward

Вот как я заставил его работать в моем R Markdown. Он использует knitr:

```{r}
library(magrittr)
library(knitr)
data <-data.frame(REASON_CODE = c('V312A','UW32E','R312D'), REASON_DESCRIPTION = c('MISTAKE','ACCIDENT','INTENTIONAL'))
data$TIP <- c("Tip 1","Tip 2","Tip 3")
data %>%  mutate(REASON_DESCRIPTION=text_spec(REASON_DESCRIPTION, "html", tooltip=TIP)) %>% 
    select(REASON_CODE,REASON_DESCRIPTION) %>% kable("html", escape=F) %>% 
    kable_styling()
```

Он производит это (я нахожу "преднамеренно"):

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

person mysteRious    schedule 31.03.2018
comment
не забудьте нажать и принять ответ :) thx! рад, что это сработало для тебя - person mysteRious; 31.03.2018