Added recursive to dir.create

rscripts/process_ships.R

@@ -30,7 +30,7 @@ drop<-c("wmi","is","es","rs","ir","rrr","qci","mds","osz","oov","ooz","opv",
         "oav","oaz","wx","sx","eoh","hop","smf","sme","smv")
 
 #call.dcks <-c(128,233,254,255,555,700,708,709,732,735,749,781,792,849,874,875,888,889,892,926,927,992,993,995,999)
-if (!dir.exists(paste0(config$output_dir,"MFILES_SHIP_PROC"))) dir.create(paste0(config$output_dir,"MFILES_SHIP_PROC"))
+if (!dir.exists(paste0(config$output_dir,"MFILES_SHIP_PROC"))) dir.create(paste0(config$output_dir,"MFILES_SHIP_PROC"), recursive=TRUE)
 
 options(warn=1)
 if ( length(my_args) < 2 ) {my_args<-my_args2}