gebco 2023

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: raadfiles
 Title: File Database Management for 'raadtools'
-Version: 0.1.4.9008
+Version: 0.1.4.9009
 Authors@R: c(person("Michael D.","Sumner", role = c("aut", "cre"), email = "[email protected]"),
              person("Ben", "Raymond", role = "ctb"),
              person("Kimberlee", "Baldry", role = c("ctb"), comment = c(ORCID = "0000-0003-3286-8624")))

NAMESPACE

@@ -25,6 +25,7 @@ export(gebco08_files)
 export(gebco14_files)
 export(gebco19_files)
 export(gebco21_files)
+export(gebco23_files)
 export(geoid_files)
 export(george_v_terre_adelie_1000m_files)
 export(george_v_terre_adelie_100m_files)
@@ -33,6 +34,7 @@ export(george_v_terre_adelie_500m_files)
 export(get_raad_data_roots)
 export(get_raad_filenames)
 export(ghrsst_daily_files)
+export(ghrsst_daily_files_netcdf)
 export(ibcso_background_files)
 export(ibcso_bed_files)
 export(ibcso_digital_chart_files)

NEWS.md

@@ -1,5 +1,7 @@
 # raadfiles dev
 
+* New function `gebco23_files()` for our local copy. 
+
 * `srtm_files()` now defunct, use opentopography or similar (one example is in gh:hypertidy/sds::cop30()). 
 
 * Bumped required version of fs to dev, see https://github.com/r-lib/fs/issues/447. 

R/topography-files.R

@@ -14,9 +14,9 @@ topo_files_generic <- function(pattern, ...) {
 #'
 #' There's no single format, there are GeoTIFFs, ArcInfo binary, ERStorage, NetCDF, NetCDF GMT, (Geo) PDF, and some VRT
 #' wrappers for handling raw binary files.
-#'
+
 #' @section GEBCO General Bathymetric Chart of the Oceans:
-#' Versions 2008, 2014, 2019, 2021.
+#' Versions 2008, 2014, 2019, 2021, 2023.
 #' @section IBCSO International Bathymetric Chart of the Southern Ocean:
 #' 'is' ('is_PS71' tif, or grd), 'background_hq', 'bed' ('bed_PS71'), 'digital_chart', 'sid' ('sid_PS71')
 #' @section ETOPO:
@@ -36,9 +36,19 @@ topo_files_generic <- function(pattern, ...) {
 #'
 #' @examples
 #' \dontrun{
-#'   gebco21_files()
+#'   gebco23_files()
 #' }
 #'
+gebco23_files <- function(all = FALSE, ...) {
+  ## there's no "all"
+  out <- topo_files_generic(c("gebco", "idea.public/gebco/gebco_2023_land_cog\\.tif"))
+
+  out
+}
+
+#' @name topography
+#' @rdname topography-files
+#' @export
 gebco21_files <- function(all = FALSE, ...) {
  if (all) {
     out <- topo_files_generic("www.bodc.ac.uk/.*gebco/gebco_2021.*")