################################################################################
#### Project: SNF field experiment
#### Title:   Drake plan
#### Author:  Tom Walker (thomas.walker@usys.ethz.ch)
#### Date:    26 March 2021
#### ---------------------------------------------------------------------------


#### PROLOGUE ------------------------------------------------------------------

## Options ----
# remove objects from global environment
rm(list = ls())

# configure default R session options (no factors, bias against scientific #s)
options(stringsAsFactors = F,
        scipen = 6)

## Libraries ----
source("packages.r")

## Code ----
sapply(list.files("./r_code",full.names = T), source)


#### PLANS ---------------------------------------------------------------------

## Load data ----
load_plan <- drake_plan(
  raw_relevees = load_relevees(),
  raw_soil = load_soil(),
  flux_data = load_fluxes(),
  full_try = load_try(),
  gh_plants = load_gh_plants(),
  gh_soil = load_gh_soil()
)

## Format field data ----
field_plan <- drake_plan(
  cover_data = format_relevees(
    raw_relevees = raw_relevees
  ),
  trait_data = process_try(
    cover_data = cover_data, 
    full_try = full_try
  ),
  field_data = combine_field_data(
    cover_data = cover_data, 
    trait_data = trait_data, 
    raw_soil = raw_soil
  ),
  field_data_subset = subset_field_plants(
    field_data = field_data
  )
)


#### MAKE ----------------------------------------------------------------------

## Collate plans ----
weAreGo <- bind_rows(
  load_plan,
  field_plan
)

## Make ----
make(weAreGo)