Displaying 1 result from an estimated 1 matches for "juggel".
2012 Oct 31
1
Strange compiling behaviour
...ome 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)
}
> .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(geterrm...