| 
						
						
							
								
							
						
						
					 | 
				
				 | 
				
					@ -61,7 +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 = "logscale", label="Escala logarítmica eje Y", value=F), | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					                                    checkboxInput(inputId = "legend", label = "Mostrar llegenda", value = T), | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					                                    selectInput("theme", "Seleccionar Tema", selected="BW", choices=c("BW", "Default", "Classic")), | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					                                    downloadButton("downloadPicture", "Exportar") | 
				
			
			
		
	
	
		
			
				
					| 
						
							
								
							
						
						
						
					 | 
				
				 | 
				
					
 |