X-Git-Url: https://git.nmode.ca/Rnaught/blobdiff_plain/a38d711dbf081bcc60949bd11102e6d1cf43da23..1a97bcbfb014a8c4906c0161c9a397efbe9420d1:/inst/app/scripts/data.R

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))
         )