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) options(digits = 4) # Number of digits in knitr tables opts_chunk$set(echo=FALSE, message=FALSE)
sixdigits <- readdbtbl("raw_flow_yearly") %>% select(productcode) %>% collect() %>% unique() sixdigits <- sixdigits$productcode cat("4 digits") unique(round(sixdigits / 100)) cat("2 digits") unique(round(sixdigits / 10000))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.