From 1a97bcbfb014a8c4906c0161c9a397efbe9420d1 Mon Sep 17 00:00:00 2001 From: Naeem Model Date: Wed, 15 May 2024 21:51:44 +0000 Subject: Change color scheme of Shiny app to black/white --- inst/app/index.html | 2 +- inst/app/scripts/data.R | 2 +- inst/app/www/styles.css | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) (limited to 'inst') diff --git a/inst/app/index.html b/inst/app/index.html index 83029c5..b0f1245 100644 --- a/inst/app/index.html +++ b/inst/app/index.html @@ -1,7 +1,7 @@ - {{ bootstrapLib(theme = bslib::bs_theme(primary = "red")) }} + {{ bootstrapLib(theme = bslib::bs_theme(primary = "black")) }} {{ headContent() }} Rnaught Web diff --git a/inst/app/scripts/data.R b/inst/app/scripts/data.R index 06cb256..eebd14f 100644 --- a/inst/app/scripts/data.R +++ b/inst/app/scripts/data.R @@ -27,7 +27,7 @@ render_plot <- function(input, output) { counts <- tokenize_counts(input$data_counts) if (length(counts) > 0 && !anyNA(counts) && all(counts >= 0)) { output$data_plot <- renderPlot( - plot(seq_along(counts) - 1, counts, type = "o", pch = 16, col = "red", + plot(seq_along(counts) - 1, counts, type = "o", pch = 16, col = "black", xlab = input$data_units, ylab = "Cases", cex.lab = 1.5, xlim = c(0, max(length(counts) - 1, 1)), ylim = c(0, max(counts, 1)) ) diff --git a/inst/app/www/styles.css b/inst/app/www/styles.css index a3533d3..f6c4407 100644 --- a/inst/app/www/styles.css +++ b/inst/app/www/styles.css @@ -21,6 +21,6 @@ noscript { } td.selected { - background-color: red; + background-color: black; color: white; } -- cgit v1.2.3