R/setwd2thisFile.R

In paodan/funcTools: some useful function tools in practice

#' @title Set working directory according to the file with this function\cr
#' @description Set working directory to where the file that put this
#' function located.
#' @return the working directory before the change.
#' @import rstudioapi
#' @export
#' @examples {
#' \dontrun{
#' # Put the following codes in one file and save.
#' getwd()
#' setwd2thisFile()
#' getwd()
#' }
#' }
#' @export
setwd2thisFile = function(){
  preDir = getwd()
  this.dir = dirname(getActiveDocumentContext()$path)
  if (this.dir == ""){
    message("Cannot find where this file located! The current working ",
            "directory is not changed!")
  } else {
    setwd(this.dir)
    cat("Set working directory to", this.dir, "\n")
  }
  invisible(preDir)
}


#' @title The path, directory and file name of the current (executed) file
#' @return a list of full path, directory and file name of the current 
#' (executed) file.
#' @import rstudioapi
#' @export
#' @examples {
#' \dontrun{
#' # Put the following codes in one file and save.
#' thisFile()
#' # Or run it in the R studio console.
#' }
#' }
#' @export
thisFile = function(){
  res = list()
  res$path = getActiveDocumentContext()$path
  res$dir = dirname(res$path)
  res$file = basename(res$path)
  return(res)
}