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

Corrección ficheros clinics.

Browse Source
This commit is contained in:
Marin Jimenez
2021-10-25 16:44:25 +02:00
parent 722399997a
commit 473eee46ca
1 changed files with 1 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
RellenarOVBD.R
+1 -1
View File
@@ -81,7 +81,7 @@ rownames(upd.samples)<-(nsamples+1):(nsamples+nrow(upd.samples)) %>% as.characte
sqlSave(dta, upd.samples, tablename="SAMPLES", append = T) sqlSave(dta, upd.samples, tablename="SAMPLES", append = T)
## Añadir datos clínicos modificados a la base de datos ## Añadir datos clínicos modificados a la base de datos
upd.samples<-read.xlsx("QuerySamplesOV.xlsx", sheet = "CLINICS",detectDates = T) upd.samples<-read.xlsx("QueryOV.xlsx", sheet = "CLINICS",detectDates = T)
ovid.mod<-upd.clinics$OVID[upd.clinics$OVID %in% (sqlFetch(dta, "CLINICS") %>% pull(OVID))] ovid.mod<-upd.clinics$OVID[upd.clinics$OVID %in% (sqlFetch(dta, "CLINICS") %>% pull(OVID))]
rnames<-sqlFetch(dta, "CLINICS") %>% filter(OVID %in% ovid.mod) %>% rownames rnames<-sqlFetch(dta, "CLINICS") %>% filter(OVID %in% ovid.mod) %>% rownames
clinics.mod<-upd.clinics %>% filter(OVID %in% ovid.mod) %>% select(-NHC) clinics.mod<-upd.clinics %>% filter(OVID %in% ovid.mod) %>% select(-NHC)