Fix an error in dist2land(binary = TRUE)

DESCRIPTION

@@ -1,8 +1,8 @@
 Package: ggOceanMaps
 Type: Package
 Title: Plot Data on Oceanographic Maps using 'ggplot2'
-Version: 2.1.3
-Date: 2023-09-19
+Version: 2.1.5
+Date: 2023-10-18
 Authors@R: c(person("Mikko", "Vihtakari", email = "mikko.vihtakari@hi.no",
                   role = c("aut", "cre"), 
                   comment = c(affiliation = "Institute of Marine Research", 

R/dist2land.R

@@ -45,7 +45,7 @@
 #' @export
 
 ## Test parameters
-# lon = NULL; lat = NULL; shapefile = NULL; proj.in = 4326; bind = TRUE; dist.col = "ldist"; binary = FALSE; geodesic.distances = FALSE; verbose = TRUE; cores = getCores()
+# lon = NULL; lat = NULL; shapefile = "DecimalDegree"; proj.in = 4326; bind = TRUE; dist.col = "ldist"; binary = FALSE; verbose = TRUE
 
 dist2land <- function(data, lon = NULL, lat = NULL, shapefile = "DecimalDegree", proj.in = 4326, bind = TRUE, dist.col = "ldist", binary = FALSE, verbose = TRUE) {
 
@@ -132,7 +132,7 @@ dist2land <- function(data, lon = NULL, lat = NULL, shapefile = "DecimalDegree",
 
     if(verbose) message("Calculating binary positions...")
 
-    tmp <- is.na(as.integer(suppressMessages(sf::st_intersects(x, land))))
+    tmp <- sapply(suppressMessages(sf::st_intersects(x, land)), function(k) length(k) == 0)
     if(verbose) message("Returning binary positions: TRUE in the ocean, FALSE on land.")
 
   } else { ## Distance

README.md

@@ -2,7 +2,7 @@
 # ggOceanMaps
 
 **Plot data on oceanographic maps using ggplot2. R package version
-2.1.1**
+2.1.3**
 
 <!-- badges: start -->
 
@@ -15,7 +15,7 @@
 
 **Breaking news (pun intended): ggOceanMaps goes
 [sf](https://r-spatial.github.io/sf/)!** Most of ggOceanMaps code has
-been rewritten. There are plenty of new features in 2.0 (see
+been rewritten. There are plenty of new features in v2 (see
 [this](https://mikkovihtakari.github.io/ggOceanMaps/articles/new-features.html)),
 but likely also many new bugs. Please [report them
 here](https://github.com/MikkoVihtakari/ggOceanMaps/issues).
@@ -192,7 +192,7 @@ citation("ggOceanMaps")
 #> To cite package 'ggOceanMaps' in publications use:
 #> 
 #>   Vihtakari M (2023). _ggOceanMaps: Plot Data on Oceanographic Maps
-#>   using 'ggplot2'_. R package version 2.1.1,
+#>   using 'ggplot2'_. R package version 2.1.3,
 #>   <https://mikkovihtakari.github.io/ggOceanMaps/>.
 #> 
 #> A BibTeX entry for LaTeX users is
@@ -201,7 +201,7 @@ citation("ggOceanMaps")
 #>     title = {ggOceanMaps: Plot Data on Oceanographic Maps using 'ggplot2'},
 #>     author = {Mikko Vihtakari},
 #>     year = {2023},
-#>     note = {R package version 2.1.1},
+#>     note = {R package version 2.1.3},
 #>     url = {https://mikkovihtakari.github.io/ggOceanMaps/},
 #>   }
 ```