Rmarkdown 中 kable 的工具提示/弹出框答案

【问题标题】：Tooltip / Popover for kable in RmarkdownRmarkdown 中 kable 的工具提示/弹出框
【发布时间】：2018-03-31 15:00:23
【问题描述】：

我为此使用 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 kable kableextra

【解决方案1】：

这是我如何让它在我的 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()
```

它会产生这个（我悬停在“故意”上）：

【讨论】：

记得点击并接受答案：）谢谢！很高兴它对你有用