Compare commits

..

2 Commits

Author SHA1 Message Date
Marin Jimenez 722399997a Merge branch 'main' of https://git.ratg.cat/marcelcosta/BDAccess 2021-10-25 16:42:30 +02:00
Marin Jimenez de5459e8d2 Corrección entrada samples 2021-10-25 16:41:53 +02:00
+1 -1
View File
@@ -74,7 +74,7 @@ saveWorkbook(wb,"queryOV.xlsx",overwrite = TRUE)
## Añadir código de muestra nueva a la base de datos ## Añadir código de muestra nueva a la base de datos
nsamples<-sqlFetch(dta, "SAMPLES") %>% nrow nsamples<-sqlFetch(dta, "SAMPLES") %>% nrow
upd.samples<-read.xlsx("QuerySamplesOV.xlsx") upd.samples<-read.xlsx("QueryOV.xlsx", sheet = "samples", detectDates = T)
rownames(upd.samples)<-(nsamples+1):(nsamples+nrow(upd.samples)) %>% as.character rownames(upd.samples)<-(nsamples+1):(nsamples+nrow(upd.samples)) %>% as.character
### !! Atención, esto cambia la base de datos: ### !! Atención, esto cambia la base de datos: