|
|
|
@ -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) |
|
|
|
} |
|
|
|
) |
|
|
|
|
|
|
|
|