|
|
@ -106,7 +106,8 @@ server <- function(input, output) { |
|
|
paste("Nitrogen", ".xlsx", sep="") |
|
|
paste("Nitrogen", ".xlsx", sep="") |
|
|
}, |
|
|
}, |
|
|
content = function(file){ |
|
|
content = function(file){ |
|
|
write.xlsx(dades$taula, file) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
writexl::write_xlsx(dades$taula, file) |
|
|
} |
|
|
} |
|
|
) |
|
|
) |
|
|
|
|
|
|
|
|
|
