Merge branch 'dev' into pre-production

Author: BBeltz1

R/plot_thermal_habitat_gridded.R

@@ -47,24 +47,13 @@ plot_thermal_habitat_gridded <- function(
   legendTitle <- unique(fix$Units)
 
   p <- fix |>
-    ggplot2::ggplot() +
-    ggplot2::geom_tile(
-      ggplot2::aes(
-        x = Longitude,
-        y = Latitude,
-        fill = Value,
-        width = 1 / 12,
-        height = 1 / 12
-      ),
-      linewidth = setup$line.size
-    ) +
-    ggplot2::geom_sf(data = ecodata::coast, size = setup$map.lwd) +
-    ggplot2::facet_grid(Depth ~ Var) +
-    ggplot2::scale_fill_viridis_c(legendTitle) +
-    ggplot2::coord_sf(
-      xlim = c(setup$xmin, setup$xmax),
-      ylim = c(setup$ymin, setup$ymax)
-    ) +
+    ggplot2::ggplot()+
+    ggplot2::geom_tile(ggplot2::aes(x=Longitude,y = Latitude, fill = Value, width = 1/12, height = 1/12),
+                       linewidth = setup$line.size) +
+    ggplot2::geom_sf(data=ecodata::coast, size = setup$map.lwd) +
+    ggplot2::facet_grid(Depth~Var)+
+    ggplot2::scale_fill_viridis_c(legendTitle)+
+    ggplot2::coord_sf(xlim = c(setup$xmin,setup$xmax), ylim = c(setup$ymin,setup$ymax)) +
     #ggplot2::annotation_map(neus.map,fill = "grey70")+
 
     ggplot2::xlab('') +