fixes #308

rhijmans · rhijmans · commit 7710a3874d9e · 2023-04-05T19:50:11.000-07:00
diff --git a/R/netCDFwriteCD.R b/R/netCDFwriteCD.R
@@ -5,14 +5,15 @@
 
 
 
-.startWriteCDF <- function(x, filename, datatype='FLT4S', overwrite=FALSE, progress='', att, varname, varunit, varatt, longname, xname, yname, zname, zunit, zatt, NAflag, force_v4=FALSE, ...) {
+.startWriteCDF <- function(x, filename, datatype='FLT4S', overwrite=FALSE, progress='', att, varname, varunit, varatt, longname, xname, yname, zname, zunit, zatt, NAflag, force_v4=FALSE, sources, ...) {
 
 	stopifnot(requireNamespace("ncdf4"))
 		
 	filename <- trim(filename)
 	if (filename == '') { 
 		stop('provide a filename') 
 	}
+	
 	extension(filename) <- .defaultExtension(format='CDF')
 	if (file.exists(filename) & !overwrite) {
 		stop('file exists, use overwrite=TRUE to overwrite it')
