Añadir escala logarítmica a exportar.

invivos/app.R

@@ -61,6 +61,7 @@ ui <- fluidPage(
                                     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("font-size", "Tamaño textos", min=5, max=30, step=1, value=11),
+                                    checkboxInput(inputId = "logscale", label="Escala logarítmica", value=F),
                                     checkboxInput(inputId = "legend", label = "Mostrar llegenda", value = T),
                                     selectInput("theme", "Seleccionar Tema", selected="BW", choices=c("BW", "Default", "Classic")),
                                     downloadButton("downloadPicture", "Exportar")
@@ -506,6 +507,9 @@ server <- function(input, output) {
           g<-g+scale_color_manual(values=v_col)+
             scale_fill_manual(values=v_col)
         }
+        if (input$logscale == T){
+          g<-g+scale_y_log10()
+        }
       }else{
         gg_color_hue <- function(n, l=65) {
           hues <- seq(15, 375, length=n+1)