https://github.com/tom-n-walker/uphill-plants-soil-carbon
Revision 86e4ff4cdb01102cfc06e41eb1883a3524fd7f7e authored by Tom Walker on 07 September 2021, 15:31:00 UTC, committed by Tom Walker on 07 September 2021, 15:31:00 UTC
1 parent 951e732
Tip revision: 86e4ff4cdb01102cfc06e41eb1883a3524fd7f7e authored by Tom Walker on 07 September 2021, 15:31:00 UTC
Final cosmetic tweaks.
Final cosmetic tweaks.
Tip revision: 86e4ff4
load_relevees.R
################################################################################
#### Project: Lowland plant migrations alpine soil C loss
#### Title: Function | Load relevee data
#### Author: Tom Walker (thomas.walker@usys.ethz.ch)
#### Date: 26 May 2021
#### ---------------------------------------------------------------------------
load_relevees <- function(){
# load quadrat information
quad <- list(
cal = fread("./data/relevee_received/quad_cal.csv", data.table = F),
n01 = fread("./data/relevee_received/quad_nes_01.csv", data.table = F),
n03 = fread("./data/relevee_received/quad_nes_03.csv", data.table = F),
pra = fread("./data/relevee_received/quad_pra.csv", data.table = F),
rio = fread("./data/relevee_received/quad_rionda.csv", data.table = F)
)
# load relevee data
rele <- list(
cal = fread("./data/relevee_received/rel_calanda.csv", data.table = F),
n01 = fread("./data/relevee_received/rel_nesel_01.csv", data.table = F),
n03 = fread("./data/relevee_received/rel_nesel_03.csv", data.table = F),
pra = fread("./data/relevee_received/rel_pra.csv", data.table = F),
rio = fread("./data/relevee_received/rel_rionda.csv", data.table = F)
)
# load collar information
collars <- fread("./data/field_collars.csv", data.table = F) %>%
select(grid_id, grid, marc_treatment)
# load focal information
focals <- fread(paste0(getwd(), "/data/field_focal_names.csv"), data.table = F)
# collate data into list
out <- list(
quadrats = quad,
relevees = rele,
collars = collars,
focals = focals
)
# return
return(out)
}
Computing file changes ...