diff options
| author | Naeem Model <me@nmode.ca> | 2024-05-15 21:51:44 +0000 |
|---|---|---|
| committer | Naeem Model <me@nmode.ca> | 2024-05-15 21:51:44 +0000 |
| commit | 1a97bcbfb014a8c4906c0161c9a397efbe9420d1 (patch) | |
| tree | 1ec8a78a6c69049817e0c6bd8330d61f0b32d57c /inst/app/scripts | |
| parent | a38d711dbf081bcc60949bd11102e6d1cf43da23 (diff) | |
Change color scheme of Shiny app to black/white
Diffstat (limited to 'inst/app/scripts')
| -rw-r--r-- | inst/app/scripts/data.R | 2 |
1 files changed, 1 insertions, 1 deletions
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)) ) |