[Sciviews-commits] r420 - pkg/svDialogs/R

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

Author: phgrosjean
Date: 2012-01-19 17:11:37 +0100 (Thu, 19 Jan 2012)
New Revision: 420

Modified:
   pkg/svDialogs/R/menu.R
Log:
Another bug fix in svDialogs

Modified: pkg/svDialogs/R/menu.R
===================================================================
--- pkg/svDialogs/R/menu.R	2012-01-19 15:21:02 UTC (rev 419)
+++ pkg/svDialogs/R/menu.R	2012-01-19 16:11:37 UTC (rev 420)
@@ -196,8 +196,8 @@
 		setwd("..")
 		folder <- file.path(".", basename(.unixMenuFolder()))
 		unlink(folder, recursive = TRUE)
+		dir.create(folder, recursive = TRUE)
 	}
-	dir.create(folder, recursive = TRUE)
     ## Now, I can assume that the dir is created and is empty
     return(invisible(NULL))
 }