inst/appweb/include_ui/utils_ui.R

In carlosperezoft/hipervizr: Dashboard para Hipercartas y Cartas de Control de Red Rio.

# autor -------------------------------------------------------------------
# carlos.perez7@udea.edu.co
# 21/07/2018 1:35:51 p. m.
#
# NOTA: Esta opcion de invicacion de menu de ayuda es generica usando el tipo
# predefinido de "notifications". Es limitado pues no permite usar un TAB panel o una OututUI.
# -- Se puede en su defecto invocar una pagina HTML externa con el window.open(..).
# -- Tambien se puede invocar un elemento en "localhost" ubicado en la carpeta "www" de la
#    la aplicacion WEB Shiny dashboard (en este caso se probo con /ayuda/*)
#
msgHelpMenu <- dropdownMenu(
  type = "notifications",
  icon = icon("question-circle"),
  badgeStatus = NULL,
  headerText = "Complementos para HIPERVIZ-R",

  notificationItem("Red de monitoreo ambiental", icon = icon("wifi"),
        href = "javascript:window.open('https://redrio.metropol.gov.co/online2/', '_blank')"),
  notificationItem("SALIR...", icon = icon("gear"),
        href = "javascript:setTimeout(function(){window.close();},500);")

)