# \donttest{
i2dashboard() %>% assemble(file="MyDashboard.Rmd")
i2dashboard() %>%
add_page("p1", "Title 1") %>%
add_page("p2", "Title 2") %>%
assemble(file="MyDashboard.Rmd", exclude="default", render=TRUE)
# }
Run the code above in your browser using DataLab