|
@ -61,7 +61,7 @@ ui <- fluidPage( |
|
|
sliderInput("errorbar-width", "% Ancho errorbars", min=0.05, max=1, step=0.05, value=0.05), |
|
|
sliderInput("errorbar-width", "% Ancho errorbars", min=0.05, max=1, step=0.05, value=0.05), |
|
|
sliderInput("point-size", "Tamaño puntos", min=1, max=10, step=1, value=3), |
|
|
sliderInput("point-size", "Tamaño puntos", min=1, max=10, step=1, value=3), |
|
|
sliderInput("font-size", "Tamaño textos", min=5, max=30, step=1, value=11), |
|
|
sliderInput("font-size", "Tamaño textos", min=5, max=30, step=1, value=11), |
|
|
checkboxInput(inputId = "logscale", label="Escala logarítmica", value=F), |
|
|
|
|
|
|
|
|
checkboxInput(inputId = "logscale", label="Escala logarítmica eje Y", value=F), |
|
|
checkboxInput(inputId = "legend", label = "Mostrar llegenda", value = T), |
|
|
checkboxInput(inputId = "legend", label = "Mostrar llegenda", value = T), |
|
|
selectInput("theme", "Seleccionar Tema", selected="BW", choices=c("BW", "Default", "Classic")), |
|
|
selectInput("theme", "Seleccionar Tema", selected="BW", choices=c("BW", "Default", "Classic")), |
|
|
downloadButton("downloadPicture", "Exportar") |
|
|
downloadButton("downloadPicture", "Exportar") |
|
|