| 
						
						
							
								
							
						
						
					 | 
				
				 | 
				
					@ -640,7 +640,7 @@ server <- function(input, output) { | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					   | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					  output$downloadPicture <- downloadHandler( | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					    filename = function() { | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					      paste("Figura", ".png", sep="") | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					      paste("Figura", ".zip", sep="") | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					    }, | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					    content = function(file){ | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					      # tempReport <- file.path(tempdir(), "elispots.Rmd") | 
				
			
			
		
	
	
		
			
				
					| 
						
							
								
							
						
						
						
					 | 
				
				 | 
				
					
 |