小编teo*_*fil的帖子

我正在对 Covid-19 进行基本可视化，在其中一个选项卡中我有一张表格。我似乎无法将表格上方和下方的文字以另一种颜色显示。我添加了一张图像，突出显示了我需要更改的文字。

我还想构建一个浅色和深色模式，但我找不到任何可以以我现在拥有的应用程序的形式工作的代码。我的存在这些问题的代码目前如下

library(dplyr)
library(shiny)
library(shinythemes)

####################### READ CSV #############################
ncov <- read.csv("https://raw.githubusercontent.com/datasets/covid-19/master/data/time-series-19-covid-combined.csv")
ncov = ncov %>% rename(Country = Country.Region)
###########################################################

ui <- fluidPage(
  theme = shinytheme("slate"),
  tags$head(
    tags$style(
      "
@import url('https://fonts.googleapis.com/css?family=Pacifico&display=swap');

h2 {
    font-family: 'Pacifico', cursive;
    font-size: 48px;
    margin-bottom: 25px;
}
ul.nav li a {
    background-color: lightgrey;
}

    #To change text and background color of the `Select` box 
    .dataTables_length select {
      color: #0E334A;
        background-color: #0E334A
    }

  ##To change text and background color of the `Search` box 
  .dataTables_filter input …