ui.R

library(shinydashboard)
library(plotly)
library(shinyalert)
library(shinycssloaders)

load("../../RData/activos.RData")



ui <- fluidPage(
  theme = bslib::bs_theme(bootswatch = "sandstone"),
  
  tags$style(HTML(
    "#start { background-color: #29f429; color: black }"
  )),
  
  sidebarLayout(
    sidebarPanel(
      selectInput("empresas", "Seleccione un grupo de valores", activos$activo, selected = activos$activo[1], 
                  multiple = TRUE),
      dateRangeInput("date_range", "Intervalo temporal", start = Sys.Date() - 365),
      selectInput("period", "Periodicidad", c("diaria", "semanal", "mensual"), multiple = FALSE),
      sliderInput("n_clusters", "Seleccione el número de clústers", min = 1, max = 1, value = 1, step = 1, ticks = FALSE),
      sliderInput("max_iter", "Seleccione el número máximo de iteracciones del algoritmo de K medias", 
                  min = 10, max = 5000, value = 10, step = 10, ticks = FALSE),
      checkboxInput("show_centers", "¿Mostrar centroides?", FALSE),
      actionButton("start", "Ejecutar clústering"),
      
      style = "width: 300px; margin-top: 50px;"
    ),
    mainPanel(plotlyOutput("grap") %>% withSpinner(color="#0dc5c1"), style = "padding: 50px")
  )
)