# NOT RUN {
if (interactive()) {
library(shiny)
library(gentelellaShiny)
shinyApp(
ui = gentelellaPageCustom(
gentelellaBody(
box(
"test",
width = 4,
height = NULL,
title = "Box title",
closable = TRUE,
dropdownMenu = list(
a(href = "http://www.google.com", "Test", target = "_blank"),
a(href = "http://www.google.com", "Test", target = "_blank")
)
)
)
),
server = function(input, output, session) {}
)
}
# }
Run the code above in your browser using DataLab