app.R

#
# voy a hacer unos cambios de prueba
#
#    https://shiny.posit.co/
#

library(shiny)
library(bslib)

# Define UI for application that draws a histogram
ui <- page_sidebar(
  title = "App_2 UAI",

    # Application title
    sidebar = sidebar(class = "Old Faithful Geyser Data",
                      
            sliderInput("bins",
                        "Number of bins:",
                        min = 1,
                        max = 65,
                        value = 30)),
    
           
        

        # Show a plot of the generated distribution
        card (card_header(class = "bg-dark","Gráficos de Barras"),
              mainPanel(
           plotOutput("bill_length"))
        ))



# Define server logic required to draw a histogram
server <- function(input, output) {

    output$bill_length <- renderPlot({
        # generate bins based on input$bins from ui.R
        x    <- faithful[, 2]
        bins <- seq(min(x), max(x), length.out = input$bins + 1)

        # draw the histogram with the specified number of bins
        hist(x, breaks = bins, col = 'darkgray', border = 'white',
             xlab = 'Waiting time to next eruption (in mins)',
             main = 'Histogram of waiting times')
    })
    bs_themer()
}

# Run the application 
shinyApp(ui = ui, server = server)