marcelcosta/Elispots-app
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Añadir overwrite=T en write.xlsx, requerido tras actualizar paquete en servidor.

Browse Source
This commit is contained in:
Costa
2021-07-15 09:49:25 +02:00
parent d58e3d6e0e
commit 348ae5193b
1 changed files with 3 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
app.R
+3 -3
View File
@@ -103,7 +103,7 @@ server <- function(input, output) {
t_substr_gp<-t_substr_gp[order(factor(t_substr_gp$Mice, levels = unique(table$Mice))),] t_substr_gp<-t_substr_gp[order(factor(t_substr_gp$Mice, levels = unique(table$Mice))),]
doc<-t(t_substr_gp) doc<-t(t_substr_gp)
write.xlsx(doc, "data4graphpad.xlsx",rowNames=T) write.xlsx(doc, "data4graphpad.xlsx",rowNames=T, overwrite=T)
t<-melt(t_substr[,!colnames(t_substr) %in% c(ctrl, mock)]) t<-melt(t_substr[,!colnames(t_substr) %in% c(ctrl, mock)])
@@ -269,8 +269,8 @@ server <- function(input, output) {
png("plot.png", width = input$width, height=input$height, units = "px", res=720) png("plot.png", width = input$width, height=input$height, units = "px", res=720)
plot(dades$plot) plot(dades$plot)
dev.off() dev.off()
plot<-dades$plot elispot.plot<-dades$plot
save(plot, file="plot.RObject") save(elispot.plot, file="plot.RObject")
zip(file, zip(file,
c("plot.png", "plot.RObject") c("plot.png", "plot.RObject")
) )