|
|
@ -74,7 +74,7 @@ saveWorkbook(wb,"queryOV.xlsx",overwrite = TRUE) |
|
|
|
|
|
|
|
## Añadir código de muestra nueva a la base de datos |
|
|
|
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 |
|
|
|
|
|
|
|
### !! Atención, esto cambia la base de datos: |
|
|
|