# NOT RUN {
if(interactive()) {
df <- data.frame(
date_release = c("May 31, 2005",
"July 14, 2008",
"July 16, 2012 "),
description = c("Batman Begins",
"The Dark Knight",
"The Dark Knight Rises")
)
ui <- fluidPage(
br(),
h1("Batman Trigoly Timeline", style = "text-align:center"),
br(),
create_tml(df,
"date_release",
"description"),
)
server <- function(input, output) {}
shinyApp(ui = ui, server = server)
}
# }
Run the code above in your browser using DataLab