https://github.com/tom-n-walker/uphill-plants-soil-carbon
Revision 6023f7d6a915db21b0d9f810fb60dd4bea48cbfc authored by Tom Walker on 29 November 2021, 09:33:48 UTC, committed by Tom Walker on 29 November 2021, 09:33:48 UTC
1 parent 86e4ff4
Tip revision: 6023f7d6a915db21b0d9f810fb60dd4bea48cbfc authored by Tom Walker on 29 November 2021, 09:33:48 UTC
Incorporated glasshouse CO2 flux data into analysis
Incorporated glasshouse CO2 flux data into analysis
Tip revision: 6023f7d
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/field_calanda_gases.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/field_lavey_gases.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 ...