if (interactive()) {
list1 <- list(
title = "Home", icon = shiny::icon("home"),
link = "https://google.com"
)
list2 <- list(
title = "Docs", icon = shiny::icon("folder"),
link = "https://obi.obianom.com"
)
modal.header(list(list1, list2))
}
Run the code above in your browser using DataLab