Add new study: Creek_2018

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

@@ -5,25 +5,25 @@ unit_from,unit_to,function
 %,mg/kg,x*10000
 %,{dimensionless},x*.01
 %,{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
 mm,m,x*0.001
 g,mg,x*1000
 um/2,um,x*2
 mm2/mm2,um2/um2,x*1
+um2/um2,mm2/mm2,x*1
 %,um2/um2,x*.01
 %,mm2/mm2,x*.01
-{dimensionless},um2/um2,x*1
 mg/mg,mg/g,x*1000
 g/g,mg/mg,x*1
 mg/mg,g/g,x*1
@@ -84,6 +84,7 @@ umol/g,mmol/kg,x*1
 mmol/g,mmol/kg,x*1/1000
 mol/kg,umol/g,x*1000
 cm/s,m/s,x*1/100
+cm/s,s/m,100/x
 umol/g/s,nmol/g/s,x*1000
 nmol/g/s,umol/g/s,x*0.001
 umol/m2/s,nmol/m2/s,x*1000	
@@ -133,6 +134,7 @@ 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 +156,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