R/makeParent_location.r

In imouzon/usefulR: A personal R package

#' Keep the parent document simple
#'
#' This code sets some of the values for knitr that I like.
#' @param parentDir character value, optional argument
#' @param docName character value, optional argument
#' @examples
#' makeParent_location(parentDir = '~/courses/cs511/code_bank')

makeParent_location = function(parentDir = NULL, docName = 'main_document'){
   if(is.null(parentDir)) parentDir = getwd()

   if(grepl('.rnw',tolower(docName))){
      docName = paste(strsplit(docName,'\\.')[[1]][1:(length(strsplit(docName,'\\.')[[1]]) - 1)],collapse='.')
   }

   docName = paste0(docName,'.rnw')

   return(list('filename' = docName, 'filelocation'=parentDir, 'fullpath'= paste(parentDir,docName,sep='/')))
}