# NOT RUN {
h <- header_html( document = FALSE )
h()
h <- header_html( document = TRUE, stylesheet = "default")
h()
f <- footer_html( document = TRUE )
f()
f <- footer_html( document = FALSE )
f()
# }
Run the code above in your browser using DataCamp Workspace