R/setwd_script.R

In MultivariateAnalysis: Pacote Para Analise Multivariada

#' Definir o diretório do script working directory  (Set the script Directory as working directory).
#'@description Esta funcao define como o endereco da pasta onde esta o scritp atual como o diretorio de trabalho.
#'(This function set the directory of current script as working directory).
#' @name setwd_script
#'@usage setwd_script()
#'@export


setwd_script=function(){
  nome=rstudioapi::getSourceEditorContext()$path
  nome2=unlist(strsplit(nome,"/"))
  nome3=paste(nome2[-length(nome2)], sep="/", collapse="/")
  setwd(nome3)
  nome3
}