[英]Tooltip / Popover for kable in 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 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()
```
產生此結果(我將鼠標懸停在“故意”上):
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.