Updated for #394

R/neuron-io.R

@@ -645,6 +645,10 @@ write.neuron<-function(n, file=NULL, dir=NULL, format=NULL, ext=NULL,
     }
   }
   if(is.null(file)){
+    #Check if the col name of InputFileName exists first..
+    if (!"InputFileName" %in% names(n)){
+      stop("No file specified and neuron does not have an InputFileName")
+    }
     # no file was specified - use the one embedded in neuron
     file=basename(n$InputFileName)
     if(is.null(file))

tests/testthat/test-neuron-io.R

@@ -843,6 +843,15 @@ test_that("we can update an existing neuronlist",{
 
 context("neurons writing")
 
+test_that("neuron write without filename",{
+  y=Cell07PNs[[1]]
+  td=tempfile()
+  on.exit(unlink(td,recursive=TRUE))
+  if ("InputFileName" %in% names(y)){y["InputFileName"] <- NULL}
+  expect_error(write.neuron(y, dir=td, MakeDir = F),
+               'No file specified and neuron does not have an InputFileName')
+})
+
 test_that("we can write neuron/dotprops to rds file",{
   x=kcs20[[1]]
   td=tempfile()