marcelcosta/invivos
1
0
Fork 0
Code Issues 3 Pull Requests Projects Releases Wiki Activity

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

Browse Source
This commit is contained in:
marcelcosta
2022-09-23 12:20:18 +02:00
parent 549a963928
commit e9700a606e
1 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+8
View File
@@ -64,6 +64,8 @@ ui <- fluidPage(
sliderInput("width", "Ancho", min=1000, max=20000, step=1000, value=10000), sliderInput("width", "Ancho", min=1000, max=20000, step=1000, value=10000),
sliderInput("height", "Altura", min=1000, max=20000, step=1000, value=6000), sliderInput("height", "Altura", min=1000, max=20000, step=1000, value=6000),
textInput("colors", label="Colors", value=""), 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("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("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), 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"){ if (input$theme == "BW"){
g<-g+theme_bw(base_size = input$`font-size`) 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"){ if (input$theme == "Classic"){
g<-g+theme_classic(base_size = input$`font-size`) g<-g+theme_classic(base_size = input$`font-size`)
} }