Pkg startup: show sf/terra versions & check latest n2khab version

DESCRIPTION

@@ -31,12 +31,14 @@ Depends:
     R (>= 3.5.0)
 Imports:
     assertthat,
+    curl,
     dplyr,
     forcats,
     git2rdata (>= 0.4.0),
     magrittr,
     plyr,
     purrr,
+    remotes,
     rlang,
     rprojroot,
     sf,
@@ -47,16 +49,14 @@ LazyData: true
 RoxygenNote: 7.2.3
 Suggests: 
     bib2df,
-    curl,
     digest,
     googledrive,
     jsonlite,
     knitr,
     mapview,
     openssl,
-    raster (>= 3.3-16),
+    raster (>= 3.6-3),
     readxl,
-    remotes,
     rmarkdown,
     testthat (>= 3.0.0),
     tidyverse,

NAMESPACE

@@ -36,6 +36,7 @@ importFrom(assertthat,assert_that)
 importFrom(assertthat,is.flag)
 importFrom(assertthat,is.string)
 importFrom(assertthat,noNA)
+importFrom(curl,nslookup)
 importFrom(dplyr,"%>%")
 importFrom(dplyr,across)
 importFrom(dplyr,anti_join)
@@ -104,4 +105,5 @@ importFrom(tidyr,gather)
 importFrom(tidyr,nest)
 importFrom(tidyr,spread)
 importFrom(tidyr,unnest)
+importFrom(utils,packageDescription)
 importFrom(utils,packageVersion)

R/n2khab.R

@@ -10,10 +10,44 @@
 
 utils::globalVariables(c("."))
 
-#' @importFrom utils packageVersion
+#' @importFrom utils packageVersion packageDescription
+#' @importFrom curl nslookup
 .onAttach <- function(libname, pkgname) {
   packageStartupMessage(
-    "Attaching n2khab version ",
-    packageVersion("n2khab")
+    "Attaching n2khab ",
+    packageVersion("n2khab"),
+    "."
   )
+  packageStartupMessage("Will use sf ", packageDescription("sf")$Version, ".")
+  if (
+    length(find.package("raster", quiet = TRUE) > 0) &&
+      packageVersion("raster") >= package_version("3.6-3") &&
+      length(find.package("terra", quiet = TRUE) > 0)
+  ) {
+    packageStartupMessage(
+      "Will use terra ",
+      packageDescription("terra")$Version,
+      " through raster."
+    )
+  }
+  if (!is.null(nslookup("api.github.com", error = FALSE))) {
+    ref <- remotes::github_remote(
+      "inbo/n2khab",
+      ref = remotes::github_release()
+    )$ref
+    release <- package_version(gsub("\\p{L}*", "", ref, perl = TRUE))
+    if (packageVersion("n2khab") < release) {
+      packageStartupMessage(
+        "\n",
+        rep("=", getOption("width")),
+        "\nIt is advised to upgrade n2khab to its current version ",
+        release,
+        ". Run:\n",
+        'install.packages("n2khab", repos = c(inbo = "https://inbo.r-universe.dev",
+                                     CRAN = "https://cloud.r-project.org"))',
+        "\n",
+        rep("=", getOption("width"))
+      )
+    }
+  }
 }