# NOT RUN {
library(htmltools)
div(
.style %>%
height("auto", max = "viewport") %>%
overflow("auto"),
"Vivamus id enim.",
"Nunc rutrum turpis sed pede.",
"Nunc aliquet, augue nec adipiscing interdum, ",
"lacus tellus malesuada massa, quis varius mi purus non odio."
)
# }
Run the code above in your browser using DataLab