I'm currently working on a visualization project for tracking Covid-19 data, and I'm having trouble changing the text color above and below a table I've created. I've attached an image to show exactly what needs to be modified.
Additionally, I want to implement a light and dark mode for the application, but I'm struggling to find suitable code that will work with the current structure of the app. Here's the code I'm using, which includes the mentioned issues:
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 {
color: #0E334A;
background-color: #0E334A
}
thead {
color: #ffffff;
}
tbody {
color: #000000;
}
"
)
),
mainPanel(
tabsetPanel(type = "tabs",
tabPanel(title = "Table", icon = icon("table"),
tags$br(),
dataTableOutput("table"))
)
)
)
server <- function(input, output) {
output$table <- DT::renderDT({
ncov %>%
group_by(Country) %>%
arrange(Country) %>%
slice(1) %>%
ungroup() %>%
arrange(Country)
})
}
shinyApp(ui = ui, server = server)