https://github.com/tom-n-walker/uphill-plants-soil-carbon
Revision 84beafabeca10c7be201c8070b5bc8ef12e3255b authored by Tom Walker on 06 September 2021, 07:47:08 UTC, committed by Tom Walker on 06 September 2021, 07:47:08 UTC
1 parent bf80ebd
Tip revision: 84beafabeca10c7be201c8070b5bc8ef12e3255b authored by Tom Walker on 06 September 2021, 07:47:08 UTC
Added data processing scripts; edited .gitignore.
Added data processing scripts; edited .gitignore.
Tip revision: 84beafa
load_fluxes.R
################################################################################
#### Project: Lowland plant migrations alpine soil C loss
#### Title: Function | Load flux data
#### Author: Tom Walker (thomas.walker@usys.ethz.ch)
#### Date: 26 May 2021
#### ---------------------------------------------------------------------------
load_fluxes <- function(){
# load fluxes
calFlux <- fread("./data/from_initial_results/ready_cal_gas_data.csv") %>%
mutate(Treatment = substr(Treatment, nchar(Treatment), nchar(Treatment))) %>%
mutate(site = "calanda") %>%
# add leading zero to block
mutate(Block = ifelse(
nchar(Block) == 3,
Block,
paste0(substr(Block, 1, 1), "0", substr(Block, 2, 2))
)) %>%
select(site, Date, Block, Treatment, Temp.C:Soil.WVC, ER) %>%
dplyr::rename_with(.cols = Date:Treatment, tolower)
lavFlux <- fread("./data/from_initial_results/ready_lav_gas_data.csv") %>%
mutate(Treatment = substr(Treatment, nchar(Treatment), nchar(Treatment))) %>%
mutate(site = "lavey") %>%
# add leading zero to block
mutate(Block = ifelse(
nchar(Block) == 3,
Block,
paste0(substr(Block, 1, 1), "0", substr(Block, 2, 2))
)) %>%
select(site, Date, Block, Treatment, Temp.C:Soil.WVC, ER) %>%
dplyr::rename_with(.cols = Date:Treatment, tolower)
# collate & return
fluxes <- bind_rows(calFlux, lavFlux) %>% as.data.frame
return(fluxes)
}
Computing file changes ...