## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(echo = TRUE)
## -----------------------------------------------------------------------------
library(Lab05)
df<-aqiGet()
df<-df[[1]]
head(df)
## -----------------------------------------------------------------------------
library(Lab05)
df<-aqiGet()
df<-df[[3]]
head(df)
## ----eval=FALSE---------------------------------------------------------------
# library(Lab05)
# shiny::runApp('App')
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.