library(tradeflows) library(knitr) opts_knit$set(root.dir="../..") # file paths are relative to the root of the project directory library(dplyr)
fwd10r <- readdbproduct(440110,"raw_flow_yearly") fwd10c <- fwd10r %>% clean() fwd10r %>% filter(partner == "Pakistan") %>% select(flag, reportercode, reporter) %>% distinct() %>% arrange(reporter) %>% kable() fwd10c %>% filter(partner == "Pakistan") %>% select(flag, reportercode, reporter) %>% distinct() %>% arrange(reporter) %>% kable() if(FALSE){ # Write to files write.csv(fwd10r,"/tmp/fuelwood10raw.csv") write.csv(fwd10c,"/tmp/fuelwood10validated.csv") }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.