R/App-1.R

Defines functions server

library(shiny)
#Define UI for app draws a histogram...

ui<-fluidPage(

  titlePanel('Titulo de la barra de la izquierda'),

    sidebarLayout(
      sidebarPanel('Panel de abajo'),
      mainPanel('Análisis de Series de Tiempo')
    )
)
# Define server logic required to draw a histogram ----
server <- function(input, output) {

  datos<-read.table('files/MEM2.csv',
                    header = TRUE,
                    sep = ',')






}

# Run the app ----

shinyApp(ui = ui, server = server)
camilogavo/FirstShinyApp documentation built on Sept. 9, 2017, 12:23 a.m.