getwd()
q()
q()
library(dplyr)
library(lubridate)
library(data.table)
library(magrittr)
library(lubridate)
library(stringr)
library(purrr) # For map_df function
library(brapi)
#setwd("/srv/shiny-server/btract/btract")
source("app/data_prep/fcts.R", local = T)
# source("app/data_prep/data_fcts.R")
# 1. Legacy data - run once
# source("app/data_prep/step1_legacy_data.R")
# 2. Raw data from ONA
#source("app/data_prep/step2_raw_data_prep.R", local = T)
# 3. Get accessions ploidy levels and links from Musabase
source("app/data_prep/step3_accessions_details.R", local = T)
# 4. Prep-data for the dashboard
source("app/data_prep/step4_prep_data.R", local = T)
getwd()
setwd("/srv/shiny-server/btract/btract/app")
library(dplyr)
library(lubridate)
library(data.table)
library(magrittr)
library(lubridate)
library(stringr)
library(purrr) # For map_df function
library(brapi)
#setwd("/srv/shiny-server/btract/btract")
source("app/data_prep/fcts.R", local = T)
# source("app/data_prep/data_fcts.R")
# 1. Legacy data - run once
# source("app/data_prep/step1_legacy_data.R")
# 2. Raw data from ONA
#source("app/data_prep/step2_raw_data_prep.R", local = T)
# 3. Get accessions ploidy levels and links from Musabase
source("app/data_prep/step3_accessions_details.R", local = T)
# 4. Prep-data for the dashboard
source("app/data_prep/step4_prep_data.R", local = T)
q()
