fix notes: detritus and doi

CRAN-SUBMISSION

@@ -1,3 +1,3 @@
 Version: 0.2.0
-Date: 2024-10-19 15:29:30 UTC
-SHA: 15ab712d335b80a9ab48e6275170d3457ae9a5f7
+Date: 2024-10-21 05:54:09 UTC
+SHA: b78906da5bddda17b58ee49437af10d1c6c46cf9

R/GLAD.R

@@ -75,13 +75,13 @@ get_glad_tiles <- function() {
 #' Turubanova S., Zalles V., Li X., Khan A., Stolle F., Harris N., Song X.-P.,
 #' Baggett A., Kommareddy I., Kommareddy A. (2022) The global 2000-2020 land cover
 #' and land use change dataset derived from the Landsat archive: first results.
-#' Frontiers in Remote Sensing \url{https://doi.org/10.3389/frsen.2022.856903}
+#' Frontiers in Remote Sensing \doi{10.3389/frsen.2022.856903}
 #'
 #' P. Potapov, X. Li, A. Hernandez-Serna, A. Tyukavina, M.C. Hansen, A. Kommareddy,
 #' A. Pickens, S. Turubanova, H. Tang, C.E. Silva, J. Armston, R. Dubayah, J. B.
 #' Blair, M. Hofton (2020) Mapping and monitoring global forest canopy height
 #' through integration of GEDI and Landsat data. Remote Sensing of Environment,
-#' 112165.\url{https://doi.org/10.1016/j.rse.2020.112165}
+#' 112165.\doi{10.1016/j.rse.2020.112165}
 #'
 #' @examples
 #' \donttest{
@@ -273,7 +273,7 @@ get_forest_extent_tbl <- function() {
 #' Turubanova S., Zalles V., Li X., Khan A., Stolle F., Harris N., Song X.-P.,
 #' Baggett A., Kommareddy I., Kommareddy A. (2022) The global 2000-2020 land cover
 #' and land use change dataset derived from the Landsat archive: first results.
-#' Frontiers in Remote Sensing \url{https://doi.org/10.3389/frsen.2022.856903}
+#' Frontiers in Remote Sensing \doi{10.3389/frsen.2022.856903}
 #'
 #' @examples
 #' \donttest{

R/allometry.R

@@ -20,7 +20,7 @@
 #' @importFrom utils read.csv write.csv
 #'
 #' @references Tallo: A global tree allometry and crown architecture database.
-#' \url{https://doi.org/10.1111/gcb.16302}
+#' \doi{10.1111/gcb.16302}
 #'
 #' @examples
 #' \donttest{

R/canopy-height.R

@@ -109,7 +109,7 @@ get_meta_tiles <- function() {
 #'
 #' @examples
 #' \donttest{
-#' fd_canopy_height_eth(lon = -7.27, lat = 42.43)
+#' canopy_height <- fd_canopy_height_eth(lon = -7.27, lat = 42.43)
 #' }
 fd_canopy_height_eth <- function(x     = NULL,
                                  lon   = NULL,
@@ -248,7 +248,7 @@ fd_canopy_height_eth <- function(x     = NULL,
 #'
 #' @examples
 #' \donttest{
-#' fd_canopy_height_meta(lon = -7.27, lat = 42.43)
+#' canopy_height <- fd_canopy_height_meta(lon = -7.27, lat = 42.43)
 #' }
 fd_canopy_height_meta <- function(x     = NULL,
                                   lon   = NULL,
@@ -286,6 +286,7 @@ fd_canopy_height_meta <- function(x     = NULL,
   ## 2.1. Save into tempdir
   message(stringr::str_glue("{length(tile_vec)} tile(s) were found."))
   out_file <- paste0(tempdir(), "\\", tile_vec, ".tif")
+  on.exit(unlink(out_file), add = TRUE)
   for (i in 1:length(out_file)) {
     ## If it already exists, go next
     if (file.exists(out_file[i])) {
@@ -360,7 +361,7 @@ fd_canopy_height_meta <- function(x     = NULL,
 #' information
 #'
 #' - \strong{meta}: the Meta High Resolution 1m Global Canopy Height. Visit
-#' \url{https://doi.org/10.1016/j.rse.2023.113888} for more information
+#' \doi{10.1016/j.rse.2023.113888} for more information
 #'
 #' Data may be freely used for research, study, or teaching, but be cited
 #' appropriately (see references below).