From ce42ddff2fa7451da2b2f4d57eaa130150f70007 Mon Sep 17 00:00:00 2001
From: James Hagan <james_hagan@outlook.com>
Date: Thu, 10 Aug 2023 16:14:48 +0200
Subject: [PATCH] add a script to export the reference database

---
 .../03_create_reference_database.R            |  23 ++++++++++++++++++
 database/reference_database.rds               | Bin 0 -> 2248 bytes
 2 files changed, 23 insertions(+)
 create mode 100644 companion_scripts/02_create_database/03_create_reference_database.R
 create mode 100644 database/reference_database.rds

diff --git a/companion_scripts/02_create_database/03_create_reference_database.R b/companion_scripts/02_create_database/03_create_reference_database.R
new file mode 100644
index 0000000..c139d23
--- /dev/null
+++ b/companion_scripts/02_create_database/03_create_reference_database.R
@@ -0,0 +1,23 @@
+#' @title reference list
+#' @description create a data.frame of the equation references
+#' @details This script compiles the list of publications from which the
+#'   equations in the equation database were compiled
+#' @author James G. Hagan (james_hagan(at)outlook.com)
+#' 
+
+# load relevant libraries
+library(dplyr)
+library(readxl)
+
+# load the reference list
+ref_dat <- readxl::read_xlsx(path = "C:/Users/james/OneDrive/PhD_Gothenburg/Chapter_4_FreshInvTraitR/data/allometry_database_ver4/reference_database.xlsx")
+head(ref_dat)
+
+# check the database
+View(ref_dat)
+
+# replace the NA characters with true NAs
+ref_dat[ref_dat == "NA"] <- NA
+
+# export the database as a .rds file
+saveRDS(ref_dat, "database/reference_database.rds")
diff --git a/database/reference_database.rds b/database/reference_database.rds
new file mode 100644
index 0000000000000000000000000000000000000000..6a583ebb0649382889fe57378d12703d5161377a
GIT binary patch
literal 2248
zcmV;(2sig1iwFP!000002DMn-avQf5W@0;*(<Y7EOn;`y6w^sFa!1SkAt{ocW^Bnn
zwOq?pEV;?#W&`emB&=Oviv>l|SHA3}XWENi)i2No=|l9YFVH?g+Yh?{xuTTRou-;0
z4}k^FIXLG#-@)qhw_B~&rPk#)FSRaR!Ozx}r$_g_0p`Ak!3I9>;&c7hKU&q_?Ut1r
zR=#KD`&RzY$`7n0R{qq=kF5OI%1tYOZsnGhZ7TyS!<PFq7O%H1x2{3HbtLCZm3DOX
z37sCxjN0M1_Ib$^6Db$cP3_WIKA}nrrtH+lp_bz@%bb#peZHV2J*G<&EX$aC`qn<v
zQ>oqB9evD2DTN#VI^)HZiskdW?3fC9;&fg4jAyAET;7%ZbZLZ&mC20*rg5sJ+N(Ry
z*$GSCA+GE)am-w1ZojHSc>C4B%DYxRT9aR{$->H)Yx0j)+Q`3pP|H94#mc{~?f=C^
zndv=dbMghF85JpcC}&F0jL0$Br-}<k%<O%|%ITcqsN@MN8CA*DZvNS0sZyRa_kH!^
z_wFS!lM_zK&aBjmW_JGep1^8BHJ8xAu<c~VND2iLR?=KEK^`npB}cs4&d3ZtRWlPs
ziz#Q{#7V9_;<+&T7iRD;{MiTJZR|NrI1>r`k54|h1Cyf>qoV1@*)`v>K_GQh7Iylb
z=27X_P5$^HEvUdLnl{cV`}P6AxVG)XokUaOPRkQYb`>po2H(o%qE17lo-%?o>nYjE
znZgD^fNK<2y*(p`5(m?ZHC+AXKrui=b1@;QT97&8lc_cen`xrIogwcD$!Ve_7bi?<
zHc|*_NybX%Btzz?A}P;}ds4XazP|^yIN|9G_E(ypOIbkev6g~xK_1a#hObmkXqEkv
z@|@Cox?Gf+<yKqzh>3}wdO0miqF7czv7GV(UPyJ3bI?9sWuJ)?uB3pEx-@<qP)#RN
z0O^}MYJyoV=#5tEg|U^mxSYVZ%Ix1>{QfQiv~P?*VH2pWPFk66Kx}W_0ZO3C+sO)p
z?)t1;YiSCrHuYzx|7CTsT&7^pN^L1~MiQCl2vjp2nN@%-Ba`C`GqXkJ9B80KNX-Z|
zm?0O~qv<JzCjdVk0a1Ek+$^Y~x#3AX$YyYz!s>(+vr)#&DNC(iHWi;fITQX7({ly_
z$f}c6SzM*Nk%5a-R8@#o{H4vY4fA@A8-d=xP?sr#eV(R<ptvNzRPcpuRngmLr#z81
z=zHh3lafDYNb-4f-6T^vCuPABK1Qg^shnl0v9!R!Z&}A>6P&E77l)2U0A>QS9KoEG
zCCdobvV4?LFz8LPmlqi-b+wO`8kJC$CQD>p3S>MJiCJRJzTD-~nA`%&WI8i|MMAf#
z6xc`P2qYnKP_lX8@7^F!jESlMb}e`=4&?(Rklf4IN#znbkRq+-4|SXD2(g8{<<v0K
z=4bGfm{Mn@tDjrTqPd`2VcOCv2TeJ0Ipcsm-slMVEbPhPgn^SONmMIS)C})TO-;+3
zr<9S+ySzY{>5V0?fD&^GU#TTWP`(6PQFw&Q%!%ag-tvb7S<GrDNxBd;=Sk)0k>V0A
zgHIF1k(Hd6Wb=-K`!r$nrlDn#OtD6$7(JF+nu8^9!IJX5vXEIu36fW!Xh9(bBI&Ry
zj8}}7rnQp25tthhDVV@DXtun0eQH~>q484BOq@+Y8)g8YbTu4<EqF%mz!o5dTbr@4
zk5nDXk=(-fOi$+~Pt9uk;+}<A9okg`*s4M6s@R|j#-*wXAd$EUh^n>?iO5;mG+WgP
z5?JHl=@JK4m1<C@jSxbuWa2_9oQAr!AaF_+)zQb9lqos~ckci0e<X`D{j#RZ16*c#
zg3z0*$JktV6GpVG{H$W=a`hB}2P+=x3ax9`XiY~M3%`+3^j|-_MvKDS(obJsZO7fA
z$9(d220Q0XoIUx6VbBhPLEr~LG#GR`7!8Nr_OKUjZwKAAJKNz@>*A*G&*$@YiHv8m
zE!Ct=m2XGIw76BG><aw}W@0+3N=tuS@br^IXzY9aLG*bP1YuBr0_XhqD?ftB2RTgJ
zSkVcC?N0QSUYZrg%YN7&+C@LARrLKb45A?Pf?(hUQD@+F>jiIY8TU);zq0q#3E<Ec
zO#2|MG0&L4vj7OGw>wiQ)0j5>v?h5!+U|FTo$Y8lZs0gRgX0)Dj#oI2&*M1eA_gks
zy6MGedU4(KV)VSY?s+~K@3{1P-7Xu9qU|6VN27%H5;hD*gD~<N=DjoKJ(%}a=DqXg
zJuW<$_iFPV%zL$Y59Ynve7i`;?&ZP+bub+IVd#Yse%twX>x^vs{a`Tc1$Ooa)#`4)
z=O@o(**@t7JZjU>ZMtqA<IkroX@{Ml-?tCCE;Hub?Xtj&#e}Ig_|mV+8)<RL-Mw$1
z(;f6}R$If@+#7ZLotqG0rw1fOVb>`*YQo|fIBmj=XisGOS+UenGOj82qrmUrEB@6(
zgWj;;@AcqR>{fZn6xHyI`WA8@y%yviFoFIt@#@!JCeDIx(CwlUf?mAh{#cG<aDQA=
zbX-xt8z7hQlKNvy{bqxu{&+?GBDT!!@HUPp4Olvi2E8yzJ3*8t+r!boUs?9#*n?%S
zHs)29-2j%orDe}rHXE#EuVLA<mK#tDExV+r?NoBZELGxq!@xg`Q0CsS-vf65g+Z^P
z4hO5BxF9#SML?GycDE6{{*v+>oBh9K?bfZ;rBX4(#WX3?fkw2%x4E_8b%wChiXt&n
zb<g_$AS4|2gY#<UXm3R0mL%%Mcj$;BqDm5mmY=oBCSudY&9d=&dgHv8m*2$iH(X~>
za^A-6sp^UE;Pd7Sd|}<+*A`xJi%cvx+?%j+JvZj5n;Uag0*C0m(p}arFMxda-<)Ul
zOR&?cxz60%`}>)!VIQZgZX~Ol^Hrobo~h+N^O{tyJDFtQMC;_GWh)$I@e*d2FtR`2
WHW_G-&3hC^|NJ-SU1G2c6aWDKT8b+G

literal 0
HcmV?d00001