Cuadro de mando (Dashboard) Shiny en R – app.R

  library(shiny) library(shinydashboard) ui <- dashboardPage(   dashboardHeader(     title = «Shiny»   ),     dashboardSidebar(     sidebarMenu(id=»sbmenu»,       menuItem(«menu1_»,tabName = «menu1» ,         menuSubItem(‘Sub Menu 1’, tabName = ‘menu11’),         menuSubItem(‘Sub Menu 2’, tabName = ‘menu12’),         menuSubItem(‘Sub Menu 3’, tabName = ‘menu13’)       ),              menuItem(«menu2_»,tabName = «menu2» ,        …

Read More »

Cuadro de mando dinámico (Dashboard) Shiny en R – ui.R/server.R

  library(‘shiny’) library(‘shinydashboard’) # Fijar el directorio de trabajo en el lugar de donde esta el archivo ejecutandose setwd(dirname(rstudioapi::getActiveDocumentContext()$path)) # Cargar fichero para exportar funciones source(«histograma.R») # ——————— # Barra Lateral – Sidebar # ——————— sidebar <- dashboardSidebar(   sidebarMenu(          # Selector de fechas     selectInput(«selector», «Selector»,                 choices = c(2000:2013), multiple=TRUE,…

Read More »