tmpl = parse_rmd(system.file("hw01.Rmd", package = "parsermd")) %>%
rmd_select(by_section(c("Exercise *", "Solution"))) %>%
rmd_template(keep_content = TRUE)
rmd_check_template(
system.file("hw01-student.Rmd", package = "parsermd"),
tmpl
)
Run the code above in your browser using DataLab