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

Añadir escala logarítmica a exportar.

Browse Source
This commit is contained in:
Costa
2020-11-24 12:06:54 +01:00
parent a38e8a58bb
commit 06377857c6
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
invivos/app.R
+4
View File
@@ -61,6 +61,7 @@ ui <- fluidPage(
sliderInput("errorbar-width", "% Ancho errorbars", min=0.05, max=1, step=0.05, value=0.05), 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("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), 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), checkboxInput(inputId = "legend", label = "Mostrar llegenda", value = T),
selectInput("theme", "Seleccionar Tema", selected="BW", choices=c("BW", "Default", "Classic")), selectInput("theme", "Seleccionar Tema", selected="BW", choices=c("BW", "Default", "Classic")),
downloadButton("downloadPicture", "Exportar") downloadButton("downloadPicture", "Exportar")
@@ -506,6 +507,9 @@ server <- function(input, output) {
g<-g+scale_color_manual(values=v_col)+ g<-g+scale_color_manual(values=v_col)+
scale_fill_manual(values=v_col) scale_fill_manual(values=v_col)
} }
if (input$logscale == T){
g<-g+scale_y_log10()
}
}else{ }else{
gg_color_hue <- function(n, l=65) { gg_color_hue <- function(n, l=65) {
hues <- seq(15, 375, length=n+1) hues <- seq(15, 375, length=n+1)