diff --git a/DESCRIPTION b/DESCRIPTION index 5ffc454..8c73bbf 100644 --- a/DESCRIPTION +++ b/DESCRIPTION @@ -61,7 +61,7 @@ Imports: rnaturalearth, scales, sf, - spatialgridr (>= 0.0.2), + spatialgridr (>= 0.0.2.0), stringr, terra, tibble, @@ -71,7 +71,6 @@ Remotes: github::emlab-ucsb/oceandatr, github::emlab-ucsb/spatialgridr, github::GlobalFishingWatch/gfwr, - github::prioritizr/prioritizr, github::prioritizr/wdpar, github::ropensci/rnaturalearthhires Config/testthat/edition: 3 diff --git a/R/splnr_plot.R b/R/splnr_plot.R index ea6116c..640facc 100644 --- a/R/splnr_plot.R +++ b/R/splnr_plot.R @@ -109,7 +109,7 @@ splnr_plot <- function(df, # Plot logic based on data type - if (showFeatureSum) { + if (showFeatureSum) { #TODO I don't think this is used anymore. Remove? # Calculate feature sum if multiple features df <- df %>% @@ -155,7 +155,7 @@ splnr_plot <- function(df, } else if (is_continuous) { gg <- gg + - ggplot2::geom_sf(data = df, ggplot2::aes(fill = .data[[col_names]]), colour = "grey80", size = 0.1) + + ggplot2::geom_sf(data = df, ggplot2::aes(fill = .data[[col_names]]), colour = "grey80", linewidth = 0.01) + ggplot2::scale_fill_viridis_c(name = legend_title) + ggplot2::guides(fill = ggplot2::guide_colourbar(order = 1))