Compare commits
2 Commits
bb09abb995
...
722399997a
| Author | SHA1 | Date | |
|---|---|---|---|
| 722399997a | |||
| de5459e8d2 |
+1
-1
@@ -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:
|
||||||
|
|||||||
Reference in New Issue
Block a user