removed landmap and gdalUtils deps

Author: thengl

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: plotKML
-Version: 0.8-2
-Date: 2021-10-06
+Version: 0.8-3
+Date: 2022-06-05
 Title: Visualization of Spatial and Spatio-Temporal Objects in Google Earth
 Author: Tomislav Hengl [cre, aut], Andrea Gilardi [ctb], Pierre Roudier [ctb], Dylan Beaudette [ctb], Edzer Pebesma [ctb], Michael Blaschek [ctb]
 Authors@R: c(person("Tomislav", "Hengl", role = c("cre", "aut"),
@@ -12,7 +12,7 @@ Authors@R: c(person("Tomislav", "Hengl", role = c("cre", "aut"),
     person("Michael", "Blaschek", role = "ctb"))
 Maintainer: Tomislav Hengl <tom.hengl@opengeohub.org>
 Depends: R (>= 3.5.0)
-Imports: methods, tools, gstat, colorRamps, pixmap, utils, XML, dismo, landmap, sp, raster, rgdal, aqp, spacetime, colorspace, plyr, stringr, scales, zoo, RColorBrewer, classInt, sf, stars
+Imports: methods, tools, gstat, colorRamps, pixmap, utils, XML, dismo, sp, raster, rgdal, aqp, spacetime, colorspace, plyr, stringr, scales, zoo, RColorBrewer, classInt, sf, stars
 Suggests: 
     RSAGA,
     plotrix, 
@@ -28,9 +28,9 @@ Suggests:
     rgbif,
     Hmisc,
     uuid,
+    R.utils,
     intervals,
     reshape,
-    gdalUtils,
     snowfall,
     parallel,
     testthat

R/AAA-classes.R

@@ -1,6 +1,6 @@
 ## Color palette:
 setClass("sp.palette", representation(type = 'character', bounds = 'vector', color = 'character', names = 'character', icons = 'character'), validity = function(object) {
-   if(!class(object@bounds)=="numeric")
+   if(!is(object@bounds, "numeric"))
       return('Vector with upper and lower limits required')
    if((length(object@bounds)-1)!=length(object@color)|(length(object@bounds)-1)!=length(object@names))
       return('Size of bounds (-1), colors and element names must be equal')
@@ -19,7 +19,7 @@ setClass("SpatialMetadata", representation(xml = "XMLInternalDocument", field.na
     field_names <- merge(met, mdnames[,c("metadata","field.names")], by="metadata", all.x=TRUE, all.y=FALSE)[,"field.names"]    
     if(!any(field_names %in% object@field.names))
       return("Field names do not match the column names in the xml slot")
-    if(!class(object@field.names)=="character")
+    if(!is(object@field.names, "character"))
       return("Field names as character vector required")      
 })
 

R/AAAA.R

@@ -98,13 +98,12 @@ paths <- function(gdalwarp = "", gdal_translate = "", convert = "", saga_cmd = "
     ## try to locate GDAL / Patyhon:
     if(.Platform$OS.type == "windows"){
       if(gdalwarp==""|gdal_translate==""){
-        if(requireNamespace("gdalUtils", quietly = TRUE)){
-          gdalUtils::gdal_setInstallation(search_path=gdal.dir, rescan=FALSE)
+          .gdal_setInstallation(search_path=gdal.dir, rescan=FALSE)
           x <- getOption("gdalUtils_gdalPath")
           if(!is.null(x[[1]]$path)){
             gdalwarp = shQuote(utils::shortPathName(normalizePath(file.path(x[[1]]$path, "gdalwarp.exe"))))
             gdal_translate = shQuote(utils::shortPathName(normalizePath(file.path(x[[1]]$path, "gdal_translate.exe"))))
-        }} else {
+        } else {
           if(silent==FALSE){
             warning("Could not locate GDAL! Install program and add it to the Windows registry. See https://gdal.org/ for more info.")
           }

R/attributes.R

@@ -4,7 +4,7 @@
     # if the user passed in TRUE, then we want all of the columns
     # AG: AFAIK, we shouldn't use class(x) == "something" to test for class
     # Maybe: if (is.logical(columns)) ?
-    if (class(columns) == 'logical'){
+    if(is(columns, 'logical')){
         columns <- seq_len(ncol(x)) # use all columns from the dataframe row
     }
     else {     # otherwise, keep only requested columns