Merge pull request #1 from pepijn-devries/work-in-progress

Fixes after CRAN checks

DESCRIPTION

@@ -1,18 +1,18 @@
 Package: CopernicusMarine
 Type: Package
 Title: Search Download and Handle Data from Copernicus Marine Service Information
-Version: 0.0.2
-Date: 2023-01-16
+Version: 0.0.3
+Date: 2023-01-17
 Authors@R: c(person("Pepijn", "de Vries", role = c("aut", "cre", "dtc"),
     email = "[email protected]",
     comment = c(ORCID = "0000-0002-7961-6646")))
 Author:
     Pepijn de Vries [aut, cre, dtc] (0000-0002-7961-6646)
 Maintainer: Pepijn de Vries <[email protected]>
-Description: Subset and download marine data from EU Copernicus
-    Marine Service Information. Import data on the oceans
-    physical and biogeochemical state from Copernicus into R
-    without the need of external software.
+Description: Subset and download data from EU Copernicus Marine
+    Service Information: <https://data.marine.copernicus.eu>.
+    Import data on the oceans physical and biogeochemical state
+    from Copernicus into R without the need of external software.
 Depends:
     R (>= 3.5.0)
 Imports:

R/copernicus_cite_product.r

@@ -10,7 +10,7 @@
 #' @name copernicus_cite_product
 #' @family product-functions
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' copernicus_cite_product("SST_MED_PHY_SUBSKIN_L4_NRT_010_036")
 #' }
 #' @author Pepijn de Vries

R/copernicus_product_details.r

@@ -9,7 +9,7 @@
 #' @name copernicus_product_details
 #' @family product-functions
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' copernicus_product_details("GLOBAL_ANALYSISFORECAST_PHY_001_024")
 #' 
 #' copernicus_product_details(
@@ -46,7 +46,7 @@ copernicus_product_details <- function(product, layer, variable) {
 #' @rdname copernicus_product_services
 #' @name copernicus_product_services
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' copernicus_product_services("GLOBAL_ANALYSISFORECAST_PHY_001_024")
 #' }
 #' @author Pepijn de Vries

R/copernicus_product_metadata.r

@@ -9,7 +9,7 @@
 #' @name copernicus_product_metadata
 #' @family product-functions
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' copernicus_product_metadata("GLOBAL_ANALYSISFORECAST_PHY_001_024")
 #' }
 #' @author Pepijn de Vries

R/copernicus_products_list.r

@@ -13,7 +13,7 @@
 #' @name copernicus_products_list
 #' @family product-functions
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' copernicus_products_list()
 #' 
 #' ## Query a specific product:

R/ftp.r

@@ -79,7 +79,7 @@ copernicus_ftp_list <- function(
 #' @name copernicus_ftp_get
 #' @export
 copernicus_ftp_get <- function(
-    url, destination, show_progress = T, overwrite = F,
+    url, destination, show_progress = TRUE, overwrite = FALSE,
     username = getOption("CopernicusMarine_uid", ""),
     password = getOption("CopernicusMarine_pwd", "")) {
   if (!dir.exists(destination)) stop("'destination' either doesn't exist or is not a directory!")

R/imports.r

@@ -3,9 +3,12 @@
 #' Objects imported and exported from other packages. See original documentation for more details.
 #' 
 #' \describe{
-#' \item{dplyr}{[`\%>\%()`][dplyr::reexports]}
+#' \item{dplyr pipe operator}{[`%>%`][dplyr::reexports]}
 #' }
 #' @importFrom dplyr %>%
+#' @return Returns the result of the function call on the right-hand side of the pipe operator.
+#' The left-hand side is used as first argument to the call to the right-hand side. For
+#' more details see [dplyr::reexports].
 #' @export %>%
 #' @name %>%
 #' @rdname reexports

R/wms.r

@@ -8,7 +8,7 @@
 #' @name copernicus_wms_details
 #' @family wms-functions
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' copernicus_wms_details(
 #'   product  = "GLOBAL_ANALYSISFORECAST_PHY_001_024",
 #'   layer    = "cmems_mod_glo_phy-thetao_anfc_0.083deg_P1D-m",
@@ -20,7 +20,7 @@
 copernicus_wms_details <- function(product, layer, variable) {
   product_details <- copernicus_product_details(product, layer, variable)
 
-  copwmsinfo <- sf::gdal_utils("info", paste0("WMS:", product_details$wmsUrl), quiet = T)
+  copwmsinfo <- sf::gdal_utils("info", paste0("WMS:", product_details$wmsUrl), quiet = TRUE)
 
   desc <- copwmsinfo %>% stringr::str_match_all("SUBDATASET_(\\d)_DESC=(.*?)\n")
   desc <- desc[[1]][,3]
@@ -43,7 +43,7 @@ copernicus_wms_details <- function(product, layer, variable) {
 #' @name addCopernicusWMSTiles
 #' @family wms-functions
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' leaflet::leaflet() %>%
 #'   leaflet::setView(lng = 3, lat = 54, zoom = 4) %>%
 #'   leaflet::addProviderTiles("Esri.WorldImagery") %>%
@@ -85,7 +85,7 @@ addCopernicusWMSTiles <- function(map, product, layer, variable,
 #' @name copernicus_wms2geotiff
 #' @family wms-functions
 #' @examples
-#' \dontrun{
+#' \donttest{
 #' destination <- tempfile("wms", fileext = ".tiff")
 #' copernicus_wms2geotiff(
 #'   product     = "GLOBAL_ANALYSISFORECAST_PHY_001_024",