fixed issues due to sf reverse dependency changes

16EAGLE · Mar 25, 2020 · 8f1712d · 8f1712d
1 parent 34b30d2
commit 8f1712d
Show file tree

Hide file tree

Showing 17 changed files with 51 additions and 32 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -10,7 +10,7 @@ Authors@R: person("Jakob", "Schwalb-Willmann", email = "movevis@schwalb-willmann
 Description: Tools to visualize movement data (e.g. from GPS tracking) and temporal changes of environmental data (e.g. from remote sensing) by creating video animations.
 License: GPL-3
 Encoding: UTF-8
-RoxygenNote: 7.0.2
+RoxygenNote: 7.1.0
 Imports:
   move,
   raster,

diff --git a/NEWS.md b/NEWS.md
@@ -9,7 +9,11 @@ Revised distance calculations & handling of dateline crossings. Development vers
 * Distance calculations are now based on `lwgeom`
 * Refined base map plotting (see additional arguments `...` of `frames_spatial` for available options)
 * Added `NA` handling for base maps (e.g. rasterized labels)
-* Reduced dependencies
+* Dropped dependencies
+
+**Bug fixes:**
+
+* Minor errors and warnings caused by reverse dependency changes of package `sf`
 
 <br>
 

diff --git a/R/align_move.R b/R/align_move.R
@@ -24,7 +24,6 @@
 #' @author Jakob Schwalb-Willmann
 #'
 #' @importFrom move timestamps timeLag interpolateTime moveStack move split
-#' @importFrom raster crs
 #' @importFrom lubridate second<- minute<- hour<- day<- 
 #'
 #' @seealso \code{\link{df2move}} \code{\link{frames_spatial}} \code{\link{frames_graph}}

diff --git a/R/frames_spatial.R b/R/frames_spatial.R
@@ -195,7 +195,7 @@ frames_spatial <- function(m, r_list = NULL, r_times = NULL, r_type = "gradient"
   if(is.null(equidistant)) if(is.null(ext)) equidistant <- TRUE else equidistant <- FALSE
   if(!is.logical(equidistant)) out("Argument 'equidistant' must be of type 'logical'.", type = 3)
 
-  if(all(as.integer(st_crs(m)[[1]]) != as.integer(4326), isTRUE(cross_dateline))){
+  if(all(as.integer(st_crs(m)$epsg) != as.integer(4326), isTRUE(cross_dateline), na.rm = T)){
     out("Argument 'cross_dateline' is ignored, since the coordinate reference system of 'm' is not geographical (long/lat).", type = 2)
     cross_dateline <- FALSE
   }

diff --git a/R/moveVis-internal.R b/R/moveVis-internal.R
@@ -519,7 +519,7 @@ repl_vals <- function(data, x, y){
 #' @noRd 
 .time_conform <- function(m){
 
-  m.indi <- if(inherits(m, "MoveStack")) split(m) else list(m)
+  m.indi <- if(inherits(m, "MoveStack")) move::split(m) else list(m)
   ts <- .lapply(m.indi, timestamps, moveVis.verbose = F)
   tl <- .lapply(m.indi, timeLag, unit = "secs", moveVis.verbose = F)
 
@@ -626,7 +626,7 @@ repl_vals <- function(data, x, y){
     })
 
     ## composite imagery
-    r <- compose_tile_grid(tg, images)
+    r <- quiet(compose_tile_grid(tg, images))
     crop(projectRaster(r, crs = m.crs), extent(y[1], y[3], y[2], y[4]), snap = "out")
   })
 

diff --git a/docs/articles/example-1.html b/docs/articles/example-1.html
diff --git a/docs/articles/example-3.html b/docs/articles/example-3.html
diff --git a/docs/index.html b/docs/index.html
diff --git a/docs/news/index.html b/docs/news/index.html
diff --git a/docs/reference/align_move.html b/docs/reference/align_move.html