if (FALSE) { # rlang::is_interactive()
library(htmltools)
card(
  full_screen = TRUE,
  card_header(
    "This is the header"
  ),
  card_body(
    p("This is the body."),
    p("This is still the body.")
  ),
  card_footer(
    "This is the footer"
  )
)
}
Run the code above in your browser using DataLab