revert commit

Author: mawilliams99

.RData

@@ -0,0 +1,47 @@
+C_pools_table <- read.csv("figures_tables/C_pools.csv")
+names(C_pools_table) <- stringr::str_replace_all(names(C_pools_table), "\\.", " ")
+library(knitr)
+library(kableExtra)
+knitr::kable(C_pools_table, format = "latex",
+longtable = FALSE,
+caption = "\\textbf{Variables with definitions and measurement methods.} Definitions from IPCC Table 1.1. (See Table 1.1 in IPCC guidance).") %>%
+kableExtra::kable_styling(full_width = TRUE) %>%
+row_spec(0, bold = TRUE)
+#this is for a two-column figure. for one-column figure, use {r, out.width = "8.3cm", echo = FALSE, fig.cap = "one column figure"}
+knitr::include_graphics("figures_tables/C_variable_mapping.png")
+library(knitr)
+library(kableExtra)
+ForC_variables_included <- read.csv("figures_tables/ForC_variables_included.csv")
+names(ForC_variables_included) <- stringr::str_replace_all(names(ForC_variables_included), "\\.", " ")
+ForC_variables_included <- ForC_variables_included[c(1:5)] #include all fields but TO_DO
+knitr::kable(ForC_variables_included, format = "latex",
+longtable = TRUE,
+caption = "\\textbf{Mapping of ForC fields to EFDB.} See footnotes at end of table (still need to be properly inserted). ") %>%
+row_spec(0, bold = TRUE) %>%
+kableExtra::kable_styling(full_width = TRUE, latex_options = c("repeat_header", "hold position"))
+library (readr)
+urlfile="https://raw.githubusercontent.com/forc-db/ForC/master/database_management_records/record_of_changes.csv"
+record_of_changes <-read_csv(url(urlfile))
+names(record_of_changes) <- stringr::str_replace_all(names(record_of_changes), "\\.", " ")
+record_of_changes <- record_of_changes[c(1:5)] #include all fields but date of change
+#record_of_changes<- record_of_changes[which(!grep("housekeeping",record_of_changes$Motivation)) , c(1:5)]  #trying to exclude rows for which Motivation = "housekeeping", but this is not working
+record_of_changes[is.na(record_of_changes)]<- "" #replace NAs with blanks
+library(knitr)
+library(kableExtra)
+knitr::kable(record_of_changes, format = "latex",
+longtable = TRUE,
+caption = "\\textbf{Table of changes to ForC fields.}") %>%
+kableExtra::kable_styling(full_width = TRUE, latex_options = c("repeat_header")) %>%
+row_spec(0, bold = TRUE)
+tinytex::install_tinytex()
+tinytex::install_tinytex()
+(Table&nbsp;\@ref(table_variables)
+C_pools_table <- read.csv("figures_tables/C_pools.csv")
+names(C_pools_table) <- stringr::str_replace_all(names(C_pools_table), "\\.", " ")
+library(knitr)
+library(kableExtra)
+knitr::kable(C_pools_table, format = "latex",
+longtable = FALSE,
+caption = "\\textbf{Variables with definitions and measurement methods.} Definitions from IPCC Table 1.1. (See Table 1.1 in IPCC guidance).") %>%
+kableExtra::kable_styling(full_width = TRUE) %>%
+row_spec(0, bold = TRUE)

.Rhistory

@@ -146,7 +146,7 @@ For quantifying forest role in global C cycle, we ultimately care about:
 
 ## Carbon stocks
 
-Carbon stocks refer to the amount of carbon stored within the forest ecosystem. This carbon is captured from the atmosphere. The carbon is commonly stored withing living and dead biomass and soil. Forest ecosystem C stocks may be parsed into pools in various ways. 
+Forest ecosystem C stocks may be parsed into pools in various ways. 
 IPCC parses into biomass (aboveground and belowground), dead organic matter (dead wood and litter), and soil organic matter (Table \@ref(table_variables)).
 Quantifying these requires a one-time measurement.