## ----setup, include = FALSE---------------------------------------------------
knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>",
  cache = FALSE,
  eval = nzchar(Sys.getenv("COMPILE_VIG"))
)
library(cansim)
library(dplyr, warn.conflicts = FALSE)

## -----------------------------------------------------------------------------
get_cansim_vector("v41690973","2015-01-01")

## -----------------------------------------------------------------------------
vectors <- c("v41690973","v41692462")

get_cansim_vector(vectors, "2017-01-01")

## -----------------------------------------------------------------------------
get_cansim_vector_for_latest_periods("v41690973", periods = 60)

## ----fig.alt="Vignette example plot, CPI time series"-------------------------

vectors <- c("Canadian CPI"="v41690973",
             "BC CPI"="v41692462")

data <- get_cansim_vector(vectors, "2010-01-01")

library(ggplot2)
ggplot(data,aes(x=Date,y=val_norm,color=label)) +
  geom_line() +
  labs(title="Consumer Price Index, January 2010 to September 2018",
       subtitle = "Seasonally-unadjusted, all-items (2002 = 100)",
       caption=paste0("CANSIM vectors ",paste0(vectors,collapse = ", ")),x="",y="",color="")

## -----------------------------------------------------------------------------
get_cansim_vector_info(vectors)