message("you can now develop directly in the inst/tempalte dir, see instruction to compile the pdf in the file there") library(dplyr) library(tradeflows) library(knitr) library(ggplot2) library(reshape2) options(digits = 4) # Number of digits in knitr tables opts_chunk$set(echo=FALSE, message=FALSE)
######### # # ! This chunk is used for development only, remove it or change eval=FALSE. # ! When this file is used as a template, place two `r` in the title. ######### # # The data frame tfdata will be passed by the report generating function to the template # Reporter information can be extracted back from tfdata # in the template this would have to be the country appearing most in the data frame reporterinreport <- "China" # Test countries: Cameroon, Ghana, Indonesia message("Trade values are the same in raw flow and validated flow") message("The table read will have to be changed to validated_flow to access quantities") # If I use the readdbtbl function to join the 2 tables, the following error will be returned # Error: x and y don't share the same src. Set copy = TRUE to copy y into x's source (this may be time consuming). # Therefore I create the conenction object here so that it can be shared between the two tbl() objects. setdatabaseconfig(silent=TRUE) db <- getOption("tradeflowsDB") DBread <- src_mysql(user=db["user"], host=db["host"], password=db["password"], dbname=db["dbname"]) tfdata <- tbl(DBread, "raw_flow_yearly") # How do I find unique product codes in SQL?
reportercomtrade %>% select(reporter, region) %>% mutate(countryreport = paste0("<a href='../../reports/countries/",reporter,".pdf'>",reporter,".pdf</a>")) %>% kable
\newpage
classificationitto %>% select(product, productcodecomtrade) %>% mutate(completenessreport = paste0("<a href='../../reports/completeness/",productcodecomtrade,".pdf'>",productcodecomtrade,".pdf</a>")) %>% kable
\newpage
You might want to show a link only if the combination of product and country exists.
discrepancytablelinks <- function(product_){ products <- classificationitto %>% select(product, productcodecomtrade) %>% filter(product == product_) %>% unique countries <- reportercomtrade %>% select(reporter, region) expand.grid(productcode = products$productcodecomtrade, reporter = countries$reporter) %>% mutate(variable = paste0("<a href='../../reports/discrepancies/",productcode,reporter,".pdf'>",productcode,reporter,".pdf</a>")) %>% dcast(reporter ~ productcode) %>% kable } discrepancytablelinks("LOGS")
discrepancytablelinks("SAWNWOOD")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.