Please see code below:
library(tidyverse) library(knitr) temp <- tempfile() download.file("https://www150.statcan.gc.ca/n1/tbl/csv/41100016-eng.zip&q