Я хочу создать отчет html с таблицей со значками (стрелками), но, хотя он работает для блестящей или гибкой панели, он, похоже, не работает, когда я вяжу в формате html. Есть ли способ создать такую таблицу в выводе html?
---
title: "Leads Report"
output: html_document
---
```{r global, include=FALSE}
knitr::opts_chunk$set(echo = TRUE,fig.width = 14)
library(shiny)
library(shinydashboard)
FCB<-c(5,6,4,6,8)
TWI<-c(3,5,2,3,5)
IN<-c(2,1,1,1,1)
DF1<-data.frame(FCB,TWI,IN)
FCB<-c(0,0,1,2,4)
TWI<-c(1,2,3,4,5)
IN<-c(1,3,4,5,6)
DF2<-data.frame(FCB,TWI,IN)
DF1$direction <- ifelse(DF2$FCB-DF1$FCB > 0,
paste("<p>↑</p>"),
ifelse(DF2$FCB-DF1$FCB < 0,
paste("<p>↓</p>"),
paste("<p>⇆</p>")))
```
#### Table
```{r plot1, echo=FALSE,results='hide', message=FALSE, warning=FALSE }
knitr::kable({DF1}, sanitize.text.function = function(x) x,escape = F)
```