Implementation of Here function

main.R

@@ -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)