Last commit for patch 0.8.1

Author: pvanlaake

NEWS.md

@@ -1,7 +1,9 @@
 # ncdfCF (development version)
 
+Patch release with bug fixes and some new functionality.
+
 #### API
-- New `geom_ncdf()` function to create a `geom` for use in map composition using package `ggplot2`.
+- New `geom_ncdf()` function to create a `geom` for use in map composition using package `ggplot2`. Functionality is currently limited and only basically tested.
 - In `CFVariable$subset()` subsetting a "time" axis can now use abbreviated specification such as `time = "2025-12"` to select all data for December 2025, or `time = c("2020-S1", "2025-S4")` for all meteorological season data from 2019-12-01 to 2025-11-30 (inclusive). Abbreviation can be by year, month, meteorological season (S1 to S4), quarter (Q1 to Q4) or dekad (D01 to D36). 
 
 #### Code

R/plot.R

@@ -34,7 +34,7 @@ geom_ncdf <- function(mapping = NULL, data, ...) {
     stop("Not enough data to plot.", call. = FALSE)
 
   ax_names <- names(data$axes)
-  ax_orient <- sapply(data$axes, function(ax)  ax$orientation)
+  ax_orient <- sapply(data$axes, function(ax)  if (ax$length > 1L) ax$orientation else "")
   ax_order <- match(c("X", "Y", "Z", "T"), ax_orient, nomatch = 0L)
   XY <- ax_order[1L] > 0L && ax_order[2L] > 0L
 

README.Rmd

@@ -55,7 +55,7 @@ obj$axes[["lat"]]
 obj$axes[["time"]]
 ```
 
-You can further modify the resulting `CFVariable` by setting other properties, such as attributes or a coordinate reference system. Once the object is complete, you can export or save it.
+You can further modify the resulting `CFVariable` by setting other properties, such as attributes or a coordinate reference system. Once the object is complete, you can export or save it. 
 
 More detailed operations and options are given on the [package web site](https://r-cf.github.io/ncdfCF/).
 

README.md

@@ -80,7 +80,7 @@ dimnames(arr) <- list(lat = c(45, 44, 43, 42, 41, 40), lon = c(0, 1, 2, 3, 4),
 (obj <- as_CF("a_new_CF_object", arr))
 #> <Variable> a_new_CF_object 
 #> 
-#> Values: [-2.686543 ... 2.342778] 
+#> Values: [-2.59647 ... 2.487776] 
 #>     NA: 0 (0.0%)
 #> 
 #> Axes:
@@ -90,8 +90,8 @@ dimnames(arr) <- list(lat = c(45, 44, 43, 42, 41, 40), lon = c(0, 1, 2, 3, 4),
 #>  T    time 4      [2025-07-01 ... 2025-07-04] days since 1970-01-01T00:00:00
 #> 
 #> Attributes:
-#>  name         type      length value              
-#>  actual_range NC_DOUBLE 2      -2.686543, 2.342778
+#>  name         type      length value             
+#>  actual_range NC_DOUBLE 2      -2.59647, 2.487776
 
 # Axes are of a specific type and have basic attributes set
 obj$axes[["lat"]]

cran-comments.md

@@ -1,11 +1,9 @@
-This is a minor release with significant code enhancements and stability improvements.
+This is a patch release to fix two annoying bugs. Minor new functionality.
 
 ## R CMD check results
 
 0 errors | 0 warnings | 0 notes
 
-* This minor release has significant enhancements in code efficiency and logic and adds new features.
-
 ## revdepcheck results
 
 We checked 1 reverse dependencies, comparing R CMD check results across CRAN and dev versions of this package.

docs/articles/ncdfCF.html

@@ -143,7 +143,7 @@ fn <- system.file("extdata", "ERA5land_Rwanda_20160101.nc", package = "ncdfCF")
 # Open the file, all metadata is read
 (ds <- open_ncdf(fn))
 #> <Dataset> ERA5land_Rwanda_20160101 
-#> Resource   : /private/var/folders/gs/s0mmlczn4l7bjbmwfrrhjlt80000gn/T/RtmpBxdt42/temp_libpath12e464e36401/ncdfCF/extdata/ERA5land_Rwanda_20160101.nc 
+#> Resource   : /private/var/folders/gs/s0mmlczn4l7bjbmwfrrhjlt80000gn/T/RtmpBxdt42/temp_libpath12e4419edf29/ncdfCF/extdata/ERA5land_Rwanda_20160101.nc 
 #> Format     : offset64 
 #> Collection : Generic netCDF data 
 #> Conventions: CF-1.6 

docs/articles/ncdfCF.md

@@ -62,7 +62,7 @@ dimnames(arr) <- list(lat = c(45, 44, 43, 42, 41, 40), lon = c(0, 1, 2, 3, 4),
 (obj <- as_CF("a_new_CF_object", arr))
 #> <Variable> a_new_CF_object 
 #> 
-#> Values: [-1.716299 ... 1.90904] 
+#> Values: [-2.686543 ... 2.342778] 
 #>     NA: 0 (0.0%)
 #> 
 #> Axes:
@@ -72,8 +72,8 @@ dimnames(arr) <- list(lat = c(45, 44, 43, 42, 41, 40), lon = c(0, 1, 2, 3, 4),
 #>  T    time 4      [2025-07-01 ... 2025-07-04] days since 1970-01-01T00:00:00
 #> 
 #> Attributes:
-#>  name         type      length value             
-#>  actual_range NC_DOUBLE 2      -1.716299, 1.90904
+#>  name         type      length value              
+#>  actual_range NC_DOUBLE 2      -2.686543, 2.342778
 
 # Axes are of a specific type and have basic attributes set
 obj$axes[["lat"]]

docs/index.html

@@ -62,7 +62,7 @@ dimnames(arr) <- list(lat = c(45, 44, 43, 42, 41, 40), lon = c(0, 1, 2, 3, 4),
 (obj <- as_CF("a_new_CF_object", arr))
 #> <Variable> a_new_CF_object 
 #> 
-#> Values: [-1.716299 ... 1.90904] 
+#> Values: [-2.686543 ... 2.342778] 
 #>     NA: 0 (0.0%)
 #> 
 #> Axes:
@@ -72,8 +72,8 @@ dimnames(arr) <- list(lat = c(45, 44, 43, 42, 41, 40), lon = c(0, 1, 2, 3, 4),
 #>  T    time 4      [2025-07-01 ... 2025-07-04] days since 1970-01-01T00:00:00
 #> 
 #> Attributes:
-#>  name         type      length value             
-#>  actual_range NC_DOUBLE 2      -1.716299, 1.90904
+#>  name         type      length value              
+#>  actual_range NC_DOUBLE 2      -2.686543, 2.342778
 
 # Axes are of a specific type and have basic attributes set
 obj$axes[["lat"]]