library(tradeflows)
library(knitr)
opts_knit$set(root.dir="../..") # file paths are relative to the root of the project directory
library(dplyr)

440110 issues

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")
}


paul4forest/tradeflows documentation built on Oct. 8, 2019, 10:35 a.m.