From 683de8cb37cbcdb2af7a58ad6a52108cd263fd10 Mon Sep 17 00:00:00 2001 From: Rhett Rautsaw Date: Thu, 16 Dec 2021 11:39:35 -0500 Subject: [PATCH] updated app sdm color palette --- app.R | 18 ++++++++++++++---- 1 file changed, 14 insertions(+), 4 deletions(-) diff --git a/app.R b/app.R index 9142025..b557123 100644 --- a/app.R +++ b/app.R @@ -56,7 +56,9 @@ info<-read_xlsx("supplemental_material/SupplementalTable1.xlsx", sheet=1) source("shiny_support_material/stack_diff_extents.R") #brPal <- colorRampPalette(c('#008B00FF', '#008B0000', '#008B0000'), alpha=T) -brPal <- colorRampPalette(c('#00A600FF', '#61C500BF', '#E6E40280', '#ECB17640', '#F2F2F200'), alpha=T) +#brPal <- colorRampPalette(c('#00A600FF', '#61C500BF', '#E6E40280', '#ECB17640', '#F2F2F200'), alpha=T) +#brPal <- colorRampPalette(c("#BD0026FF", "#F03B20BF", "#FD8D3C80", "#FECC5C40", "#FFFFB200"), alpha=T) +brPal <- colorRampPalette(c("#440154FF", "#3B528BCC", "#21908C99", "#5DC86366", "#FDE72500"), alpha=T) pal <- brPal(255) species_list<-unique(sort(as.vector(info$species))) @@ -98,10 +100,11 @@ ui <- navbarPage("VenomMaps", id="nav", checkboxInput("niche", "Species Distribution Model", FALSE), + p("To view SDMs, we recommend checking the box below to remove distribution polygons and changing the basemap to \"Terrain\""), checkboxInput("nodist", "Clear Distribution", FALSE), - p("Select \"Update\" again after checking this box"), - p("Please be patient. These large files can take a while to plot."), + p("Select \"Update\" again after checking these boxes"), + p("Please be patient. SDMs are large and can take a while to plot."), h5("____________________________________"), @@ -121,7 +124,14 @@ ui <- navbarPage("VenomMaps", id="nav", h5("Acknowledgements:"), p("Distributions of Old World Viperidae were obtained from ", a(href="https://www.nature.com/articles/s41559-017-0332-2", "GARD 1.1")), p("Information on max snake lengths was obtained from ", a(href="https://onlinelibrary.wiley.com/doi/abs/10.1111/geb.12398", "Feldman et al. 2015")), - p("Information on descriptive citations, common names, and subspecies was obtained from the ", a(href="https://reptile-database.reptarium.cz/", "Reptile Database")) + p("Information on descriptive citations, common names, and subspecies was obtained from the ", a(href="https://reptile-database.reptarium.cz/", "Reptile Database")), + + #h5("____________________________________"), + + #h5("Donations:"), + #p("There is a large annual fee to maintain this server. We appreciate all the help we can get."), + #p("Donate on ", a(href="https://venmo.com/u/RhettRautsaw", "Venmo"), " with the word \"VenomMaps\"") + ) ) ),