marcelcosta
/
BDAccess
1
0
Fork 0
Code Issues 1 Pull Requests Projects Releases Wiki Activity
Browse Source

Corrección entrada samples

main
Marin Jimenez 2 years ago
parent
e09e2c6344
commit
de5459e8d2
1 changed files with 1 additions and 1 deletions
Unified View
Diff Options
Show Stats Download Patch File Download Diff File
  1. +1
    -1
      RellenarOVBD.R

+ 1
- 1
RellenarOVBD.R
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:

Write Preview
Loading…
Cancel
Save