Running examples in ‘cmsafops-Ex.R’ failed
The error most likely occurred in:

> base::assign(".ptime", proc.time(), pos = "CheckExEnv")
> ### Name: extract.level
> ### Title: Extract levels from 4-dimensional NetCDF files.
> ### Aliases: extract.level
> 
> ### ** Examples
> 
> ## Create an example NetCDF file with a similar structure as used by CM
> ## SAF. The file is created with the ncdf4 package.  Alternatively
> ## example data can be freely downloaded here: <https://wui.cmsaf.eu/>
> 
> library(ncdf4)
> 
> ## create some (non-realistic) example data
> 
> lon <- seq(5, 15, 0.5)
> lat <- seq(45, 55, 0.5)
> height <- seq(0, 1000, 100)
> time <- seq(as.Date("2000-01-01"), as.Date("2010-12-31"), "month")
> origin <- as.Date("1983-01-01 00:00:00")
> time <- as.numeric(difftime(time, origin, units = "hour"))
> data <- array(250:350, dim = c(21, 21, 11, 132))
> 
> ## create example NetCDF
> 
> x <- ncdim_def(name = "lon", units = "degrees_east", vals = lon)
> y <- ncdim_def(name = "lat", units = "degrees_north", vals = lat)
> z <- ncdim_def(name = "height", units = "m", vals = height)
> t <- ncdim_def(name = "time", units = "hours since 1983-01-01 00:00:00",
+  vals = time, unlim = TRUE)
> var1 <- ncvar_def("SIS", "W m-2", list(x, y, z, t), -1, prec = "short")
> vars <- list(var1)
> ncnew <- nc_create(file.path(tempdir(),"CMSAF_example_file.nc"), vars)
> ncvar_put(ncnew, var1, data)
> ncatt_put(ncnew, "lon", "standard_name", "longitude", prec = "text")
> ncatt_put(ncnew, "lat", "standard_name", "latitude", prec = "text")
> ncatt_put(ncnew, "height", "standard_name", "height", prec = "text")
> nc_close(ncnew)
> 
> ## Extract the first level of the example CM SAF NetCDF file and write
> ## the output to a new file.
> extract.level("SIS", file.path(tempdir(),"CMSAF_example_file.nc"),
+  file.path(tempdir(),"CMSAF_example_file_extract.level1.nc"))
> ## Extract all levels of the example CM SAF NetCDF file and write the
> ## output to a new file.
> extract.level(var = "SIS", infile = file.path(tempdir(),"CMSAF_example_file.nc"),
+  outfile = file.path(tempdir(),"CMSAF_example_file_extract.level2.nc"),
+  level = "all")
Error in R_nc4_create: Permission denied (creation mode was 4096)
Error in nc_create(outfile, c(vars, grid_vars), force_v4 = force_v4) : 
  Error in nc_create!
Calls: extract.level -> write_output_file -> nc_create
Execution halted