Commit 0da5f9f0 authored by de Freitas Costa, Eduardo's avatar de Freitas Costa, Eduardo
Browse files

Implementation of Here function

parent fd99751c
......@@ -30,21 +30,11 @@
#Script start#############################################################################
rm(list=ls(all=T))
set_wd <- function() {
if(!require(rstudioapi)){
install.packages("rstudioapi")
}
library(rstudioapi)
current_path <- getActiveProject()
setwd(paste(current_path))
print( getwd() )
if(!require(here)){
install.packages("here")
}
library(here)
wd<-set_wd()
dir.create("Output",showWarnings = F)
dir.create("Figures",showWarnings = F)
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment