styling :如何设置“记分卡”表的样式？

Question

我正在使用kable函数来显示来自dataframe的最后一行的数据，它是有效的，但是如何做一些样式以使其看起来更像记分卡呢？意味着只更改标签并从表中输出数据行，而不是标签。例如，now显示

Confirmed
60,000,000

我想要展示的是

Total Confirmed
60,000,000

此外，样式应该更好，没有像这样的行线。

​

下面是我当前代码的一部分

 sidebarLayout(
    position='right',
    sidebarPanel(
      tableOutput("table_date"),
      tableOutput("table1")
      
    ),
    mainPanel(
      
      plotlyOutput("distPlot")
    ))
)

server <- function(input, output) {
...
date_last <- tail(conf_data[ , c("date")],1)
  conf_last <- tail(conf_data[ , c("confirmed")],1)
  
  output$table1 <- function() {
    conf_last %>% 
      knitr::kable(format = "html", row.names = FALSE, align='l') %>% 
      kable_styling()
  }
    
    output$table_date <- function() {
      date_last %>%
        knitr::kable(format = "html", row.names = FALSE) %>%
        kable_styling()
      
    }

这是我当前的工作站点http://webcovid19.online/

Answer 1

我用kable_styling (font_size)修复了这个问题