[Robast-commits] r555 - branches/robast-0.9/pkg/RobExtremes/inst/AddMaterial/interpolation

[noreply at r-forge.r-project.org]

Author: ruckdeschel
Date: 2013-01-25 00:11:08 +0100 (Fri, 25 Jan 2013)
New Revision: 555

Modified:
   branches/robast-0.9/pkg/RobExtremes/inst/AddMaterial/interpolation/interpolationscripts.R
Log:
RobExtremes: forgot a "recursive = TRUE" in dir.create in interpolation script

Modified: branches/robast-0.9/pkg/RobExtremes/inst/AddMaterial/interpolation/interpolationscripts.R
===================================================================
--- branches/robast-0.9/pkg/RobExtremes/inst/AddMaterial/interpolation/interpolationscripts.R	2013-01-24 22:44:27 UTC (rev 554)
+++ branches/robast-0.9/pkg/RobExtremes/inst/AddMaterial/interpolation/interpolationscripts.R	2013-01-24 23:11:08 UTC (rev 555)
@@ -62,7 +62,7 @@
 .myFolder1 <- file.path(.basepath,"RobExtremesBuffer/tmp1")
 .myFolder2 <- file.path(.basepath,"RobExtremesBuffer/tmp2")
 .myFolder3 <- file.path(.basepath,"RobExtremesBuffer/tmp3")
-chkExist <- function(fN) if(!file.exists(fN)) dir.create(fN)
+chkExist <- function(fN) if(!file.exists(fN)) dir.create(fN, recursive = TRUE)
 sapply(c(.myFolder1,.myFolder2,.myFolder3), chkExist)
 PF <- GEVFamily()
 .saveInterpGrid(getShapeGrid(gridsize=500, cutoff.at.0=0.005),
@@ -115,7 +115,7 @@
 .myFolder1 <- file.path(.basepath,"RobExtremesBuffer/tmp1")
 .myFolder2 <- file.path(.basepath,"RobExtremesBuffer/tmp2")
 .myFolder3 <- file.path(.basepath,"RobExtremesBuffer/tmp3")
-chkExist <- function(fN) if(!file.exists(fN)) dir.create(fN)
+chkExist <- function(fN) if(!file.exists(fN)) dir.create(fN, recursive = TRUE)
 sapply(c(.myFolder1,.myFolder2,.myFolder3), chkExist)
 PF <- WeibullFamily()
 .saveInterpGrid(getShapeGrid(gridsize=500, cutoff.at.0=0.005),
@@ -168,7 +168,7 @@
 .myFolder1 <- file.path(.basepath,"RobExtremesBuffer/tmp1")
 .myFolder2 <- file.path(.basepath,"RobExtremesBuffer/tmp2")
 .myFolder3 <- file.path(.basepath,"RobExtremesBuffer/tmp3")
-chkExist <- function(fN) if(!file.exists(fN)) dir.create(fN)
+chkExist <- function(fN) if(!file.exists(fN)) dir.create(fN, recursive = TRUE)
 sapply(c(.myFolder1,.myFolder2,.myFolder3), chkExist)
 PF <- GammaFamily()
 .saveInterpGrid(getShapeGrid(gridsize=500, cutoff.at.0=0.005),