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