Displaying 1 result from an estimated 1 matches for "initdatadir".
2012 Oct 31
1
Strange compiling behaviour
Compiling this little function gets me some strange behaviour
.initDataDir <- function(){
if(file.exists(LOCATION)) {
if(as.logical(file.info(LOCATION)["isdir"]))return
stop(LOCATION, " exists but is not a directory")
}
Z <- dir.create(LOCATION)
if(!Z){
stop(geterrmessage())
## stop("Juggel")
}
return(Z)
}...