Upload New File

code/shiny-apps/simulacion/ui.R

+library(shinydashboard)
+library(plotly)
+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 uno o varios valores", activos$activo, selected = activos$activo[1], 
+                  multiple = TRUE),
+      dateRangeInput("date_range", "Intervalo temporal", start = Sys.Date() - 365),
+      sliderInput("n", "Número de simulaciones", min = 1000, max = 50000, value = 10000, step = 1),
+      sliderInput("sharpe", "Tipo de interés de referencia para ratio Sharpe", min = 1, max = 1.1,
+                  value = 1, step = 0.0001, ticks = FALSE),
+      actionButton("start", "Ejecutar simulación"),
+      style = "width: 300px; margin-top: 50px;"
+      
+    ),
+    mainPanel(plotlyOutput("grafico") %>% withSpinner(color="#0dc5c1"), style = "padding: 50px")
+  )
+  
+  
+)
\ No newline at end of file