library(tidyverse)

#set wd 
try(setwd(dirname(rstudioapi::getActiveDocumentContext()$path)))