diff --git a/RellenarOVBD.R b/RellenarOVBD.R index 661b051..5181198 100644 --- a/RellenarOVBD.R +++ b/RellenarOVBD.R @@ -81,7 +81,7 @@ rownames(upd.samples)<-(nsamples+1):(nsamples+nrow(upd.samples)) %>% as.characte sqlSave(dta, upd.samples, tablename="SAMPLES", append = T) ## 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))] rnames<-sqlFetch(dta, "CLINICS") %>% filter(OVID %in% ovid.mod) %>% rownames clinics.mod<-upd.clinics %>% filter(OVID %in% ovid.mod) %>% select(-NHC)