Añadir la opción de modificar las etiquetas de los ejes para exportar figuras.

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`)  
         }