Code Editor for app.R

library(shiny)

# Source custom CSS and UI components
source("styles.R")
source("ui_components.R")

ui <- fluidPage(
    # Include custom CSS
    tags$head(
        tags$style(custom_css)
    ),
    titlePanel("Custom Styled Components"),
    
    sidebarLayout(
        sidebarPanel(
            # Custom slider with blue accent
            sliderInput("slider", "Custom Slider:", 
                min = 0, max = 100, value = 50),
            
            # Radio buttons with custom class
            radioButtons("radio", "Options:", 
                choices = c("Option 1", "Option 2", "Option 3"),
                class = "custom-input"),
                
            # Custom button sharing same class
            actionButton("action", "Click Me!", 
                class = "custom-input")
        ),
        mainPanel(
            verbatimTextOutput("output")
        )
    )
)

server <- function(input, output, session) {
    output$output <- renderPrint({
        list(
            slider_value = input$slider,
            radio_value = input$radio
        )
    })
}

shinyApp(ui = ui, server = server)