| 
						
						
						
					 | 
				
				 | 
				
					@ -1,5 +1,6 @@ | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					library(shiny) | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					library(readxl) | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					library(openxlsx) | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					library(DT) | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					library(dplyr) | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					
 | 
				
			
			
		
	
	
		
			
				
					| 
						
							
								
							
						
						
							
								
							
						
						
					 | 
				
				 | 
				
					@ -107,7 +108,7 @@ server <- function(input, output) { | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					    }, | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					    content = function(file){ | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					       | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					      writexl::write_xlsx(list("Nitrogen"=dades$taula), file) | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					      write.xlsx(list("Nitrogen"=dades$taula), file) | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					    } | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					  ) | 
				
			
			
		
	
		
			
				
					 | 
					 | 
				
				 | 
				
					   | 
				
			
			
		
	
	
		
			
				
					| 
						
							
								
							
						
						
						
					 | 
				
				 | 
				
					
 |