Replace ui.R

code/shiny-apps/optimizacion/ui.R

@@ -40,7 +40,7 @@ ui <- fluidPage(
       ),
       conditionalPanel(
         condition = "input.modelos == 'Modelo de minimización del riesgo'",
-        sliderInput("min_rentabilidad", "Rentabilidad mínima permitida", min = 1.01, max = 1.5, value = 1.1,
+        sliderInput("min_rentabilidad", "Rentabilidad mínima permitida", min = 0.01, max = 0.5, value = 0.1,
                     step = 0.01)
       ),
       numericInput("dinero", label = div(style = "font-weight: bold" ,"Introduzca el capital a invertir"), value = 1000, min = 0, max = 10000000, step = 1),