Displaying 1 result from an estimated 1 matches for "logguess".
Did you mean:
loggers
2007 Apr 23
0
Correction to PR #9631 (PR#9632)
...s to
be more effort than its worth.
read.ssd <- function(libname,
sectionnames,
tmpXport = tempfile(),
tmpProgLoc = tempfile(),
sascmd = "sas"){
tmpFiles <- tmpXport
on.exit(unlink(tmpFiles))
logGuess <- function(x){
expl <- strsplit(x, "")[[1]]
rex <- rev(expl)
br <- match("/", rex)[1]
if(is.na(br))
return(x)
return(paste(rev(rex[1:(br - 1)]), sep = "", collapse = ""))
}
fileExtension <- function(string){...