Add new study: Zeppel_2008

R/setup.R

@@ -38,10 +38,11 @@ metadata_create_template <- function(dataset_id,
   out$source$primary["key"] = dataset_id
   out$source$primary["bibtype"] = "Article"
 
+  collectors <- c("last_name", "given_name", "ORCID", "affiliation")
+
   out$contributors <- out$contributors$elements
-  out$contributors$data_collectors[c(exclude, "notes")] <- NULL
-  out$contributors$data_collectors[] <- "unknown"
-  out$contributors$data_collectors <- list(out$contributors$data_collectors)
+  out$contributors$data_collectors <- list(out$contributors$data_collectors$elements[collectors])
+  out$contributors$data_collectors[[1]][] <- "unknown"
   out$contributors[c("assistants", "austraits_curators")] <- "unknown"
 
   out$dataset <- out$dataset$values[c("data_is_long_format", "custom_R_code", "collection_date", "taxon_name", "location_name",

config/unit_conversions.csv

@@ -7,13 +7,14 @@ unit_from,unit_to,function
 %,{count}/{count},x*.01
 {dimensionless},{count}/{count},x*1
 a,mo,x*12
-mo,a,x/12
+mo,a,x*1/12
 {count}/m2,{count}/mm2,x*1/1000000
 {count}/cm2,{count}/mm2,x*1/100
 cm,m,x*0.01
 cm,mm,x*10
 um,mm,x*0.001
 mm,um,x*1000
+mm,cm,x*0.1
 m,mm,x*1000
 cm2,mm2,x*100
 m2,mm2,x*1000000
@@ -129,10 +130,12 @@ mol{H2O}/m2/s,umol{H2O}/m2/s,x*1000000
 mmol/m2/s,umol{H2O}/m2/s,x*1000
 mmol{H2O}/m2/s,umol{H2O}/m2/s,x*1000
 nmol{H2O}/m2/s,umol{H2O}/m2/s,x*1/1000
+m3{H2O}/m2{leaf}/d,g/cm2{leaf}/d,x*100
 cm2{leaf}/cm2{sapwood},mm2{sapwood}/mm2{leaf},1/x
 mm2{leaf}/mm2{sapwood},mm2{sapwood}/mm2{leaf},1/x
 cm2{leaf}/mm2{sapwood},mm2{sapwood}/mm2{leaf},x*1/100
 cm2{sapwood}/m2{leaf},mm2{sapwood}/mm2{leaf},x*1/10000
+m2{sapwood}/m2{leaf},mm2{sapwood}/mm2{leaf},x*1
 10^4.mm2{sapwood}/mm2{leaf},mm2{sapwood}/mm2{leaf},x*1/10000
 MPa,Pa,x*1000
 neg_MPa,MPa,x*-1
@@ -154,6 +157,7 @@ kg/m/MPa/s,10^4.kg/m/MPa/s,x*10000
 10^3.kg/m/MPa/s,10^4.kg/m/MPa/s,x*10
 ml/cm/MPa/s,10^4.kg/m/MPa/s,x*100
 kg/m/Pa/s,kg/m/MPa/s,x*1/1000
+kg/mm/MPa/s,kg/m/MPa/s,x*1000
 10^6.kg/m/MPa/s,kg/m/MPa/s,x*1/1000000
 10^4.kg/m/MPa/s,kg/m/MPa/s,x*1/10000
 10^1.kg/m/MPa/s,kg/m/MPa/s,x*0.1