From e9700a606e22a872941ee011e9b713a32bdb171f Mon Sep 17 00:00:00 2001
From: marcelcosta <marcelcosta@mcosta.cat>
Date: Fri, 23 Sep 2022 12:20:18 +0200
Subject: [PATCH] =?UTF-8?q?A=C3=B1adir=20la=20opci=C3=B3n=20de=20modificar?=
 =?UTF-8?q?=20las=20etiquetas=20de=20los=20ejes=20para=20exportar=20figura?=
 =?UTF-8?q?s.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

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

diff --git a/invivos/app.R b/invivos/app.R
index be62d26..2744d82 100755
--- a/invivos/app.R
+++ b/invivos/app.R
@@ -64,6 +64,8 @@ ui <- fluidPage(
                                     sliderInput("width", "Ancho", min=1000, max=20000, step=1000, value=10000),
                                     sliderInput("height", "Altura", min=1000, max=20000, step=1000, value=6000),
                                     textInput("colors", label="Colors", value=""),
+                                    textInput("xaxis", label="Etiqueta Eje X", value=""),
+                                    textInput("yaxis", label="Etiqueta Eje Y", value=""),
                                     sliderInput("errorbar-width", "% Ancho errorbars", min=0.0, max=1, step=0.05, value=0.05),
                                     sliderInput("line-size", "Tamaño línea", min=0.1, max=3, step=0.1, value=0.5),
                                     sliderInput("point-size", "Tamaño puntos", min=1, max=10, step=1, value=3),
@@ -658,6 +660,12 @@ server <- function(input, output) {
         if (input$theme == "BW"){
           g<-g+theme_bw(base_size = input$`font-size`)
         }
+        if (input$xaxis != ""){
+          g<-g+xlab(input$xaxis)
+        }
+        if (input$yaxis != ""){
+          g<-g+ylab(input$yaxis)
+        }
         if (input$theme == "Classic"){
           g<-g+theme_classic(base_size = input$`font-size`)  
         }