minor fix for sf

richardli · Feb 29, 2024 · f119eab · f119eab
1 parent 4c9a5b2
commit f119eab
Show file tree

Hide file tree

Showing 3 changed files with 9 additions and 2 deletions.
diff --git a/R/getSmoothedDensity.R b/R/getSmoothedDensity.R
@@ -74,7 +74,7 @@
 #' 
 
 #' @export
-ridgePlot <- function(x=NULL, nsim = 1000, draws = NULL, year_plot = NULL, strata_plot = NULL, by.year = TRUE, ncol = 4, scale = 2, per1000 = FALSE, order = 0, direction = 1, results = NULL, save.density = FALSE, linewidth = 0.5, ...){
+ridgePlot <- function(x=NULL, nsim = 1000, draws = NULL, year_plot = NULL, strata_plot = NULL, by.year = TRUE, ncol = 4, scale = 2, per1000 = FALSE, order = 0, direction = 1, linewidth = 0.5, results = NULL, save.density = FALSE, ...){
 
       years <-  y <- `..x..` <- region <- NA
 

diff --git a/R/hatchPlot.R b/R/hatchPlot.R
@@ -61,7 +61,10 @@
 #' @export 
 
 hatchPlot <- function(data, variables, values = NULL, labels = NULL, geo, by.data, by.geo,  is.long = FALSE, lower, upper, lim = NULL, lim.CI = NULL, breaks.CI = NULL, ncol = 4, hatch = NULL, border = NULL, size = 1, legend.label = NULL,  per1000 = FALSE, direction = 1, ...){
-
+    is.sf <- "sf" %in% class(geo)
+    if(is.sf){
+       geo =  as(geo, 'Spatial')
+    }
 
    if (is.null(labels) & !is.long) {
         labels <- variables

diff --git a/man/ridgePlot.Rd b/man/ridgePlot.Rd