library(tradeflows) library(knitr) opts_knit$set(root.dir="../..") # file paths are relative to the root of the project directory library(dplyr)
library(tradeflows) cleandbproduct(490191, tableread = "raw_flow_yearly", tablewrite = "validated_flow_yearly") # Numer of lines per product rfl <- readdbtbl("raw_flow_yearly") nlinesperproduct <- rfl %>% group_by(productcode) %>% summarise(lines = n()) %>% collect() %>% arrange(desc(lines)) # A product with a lot of lines cleandbproduct(490199, tableread = "raw_flow_yearly", tablewrite = "validated_flow_yearly") # A product with few lines cleandbproduct(441191, tableread = "raw_flow_yearly", tablewrite = "validated_flow_yearly")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.