From 06377857c6af9895ab2add5aa5184058c8b7701d Mon Sep 17 00:00:00 2001
From: Costa <47926492N@ICO.SCS.local>
Date: Tue, 24 Nov 2020 12:06:54 +0100
Subject: [PATCH] =?UTF-8?q?A=C3=B1adir=20escala=20logar=C3=ADtmica=20a=20e?=
 =?UTF-8?q?xportar.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 invivos/app.R | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/invivos/app.R b/invivos/app.R
index dd9c975..d1e82cf 100644
--- a/invivos/app.R
+++ b/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)