R/read.SASnatch.results.r

In imouzon/SASnatch: Using SAS naturally

#' read results from SASnatch 
#'
#' @param chunk.name character value, optional argument
#' @param SASresults.path character value, optional argument
#' @param SAS2R.type character value, optional argument
#' @param SAS2R.names character vector, optional argument
#' @export
read.SASnatch.results<- function (chunk.name='',SASresults.path = '',SAS2R.names='',SAS2R.type='csv'){
   #get the SAScache.directory
   if(SASresults.path == ''){
      SAScache.directory = makeSAScache()
   }else{
      SAScache.directory = SASresults.path
   }

   #if(is.null(use.xtable)) use.xtable = TRUE
   #use.xtable = TRUE

   #now that the file structure exists read the output
   files <- list.files(path=SAScache.directory)
   files <- unique(files[grepl(chunk.name,files)])

   #get .html files
   html.files <- paste(SAScache.directory,files[grepl('.html',files)],sep='/')
   raw.html.results <- lapply(1:length(html.files),function(i) paste(scan(file=html.files[i],sep='\n',what='character',quiet=TRUE),collapse='\n'))

   #get .tex files
   tex.files <- paste(SAScache.directory,files[grepl('.tex',files)],sep='/')
   raw.tex.results <- lapply(1:length(tex.files),function(i) paste(scan(file=tex.files[i],sep='\n',what='character',quiet=TRUE),collapse='\n'))

   #"true results are results that output a table
   html.files <- paste(SAScache.directory,files[grepl('.html',files)],sep='/')
   r.results <- lapply(1:length(html.files),function(i) readHTMLTable(html.files[i]))

   #many of these results will not be tables
   true.results <- sapply(1:length(html.files), function(i) length(r.results[[i]])>0)

   #get only the .html files that have tables in them (the "true" results)
   html.files <- html.files[which(true.results==TRUE)]
   r.results <- lapply(1:length(html.files),function(i) readHTMLTable(html.files[i]))

   #convert the r.results to tex files
   tex.results <- lapply(1:length(true.results), function(i) lapply(1:length(r.results[[i]]), function(j) xtable(r.results[[i]][[j]],table.placement='H')))

   #convert the r.results to html files
   html.results <- lapply(1:length(true.results), function(i) lapply(1:length(r.results[[i]]), function(j) xtable(r.results[[i]][[j]],type='html')))

   #make new snatchResults S4 object
   SASnatch.results <- new('snatchResults', HTML = html.results, rawHTML = raw.html.results, TeX = tex.results, rawTeX = raw.tex.results, R = r.results,files = paste(files,sep='\n'))
   return(SASnatch.results)
}