ejemplo_shiny2

library(shiny)

ui <-
  fluidPage(
    sidebarLayout(
      sidebarPanel(
        sliderInput("size", "Tamanio", min=1, max=10, value=4),
        actionButton("generate", "Generar")
      ),
      mainPanel(

      )
    )
  )

server <- function (input, output){
  observeEvent(input$generate, {
    df <- data.frame(x=rnorm(input$size), x2=rnorm(input$size))
    print(df)
  })
}


shinyApp(ui, server)