|
|
@ -91,8 +91,9 @@ sqlSincBD<-function(conn=dta, filetemp="QueryOV.xlsx", sinc.samples=F, sinc.clin |
|
|
|
|
|
|
|
if (sinc.samples & nrow(upd.samples) > 0){ |
|
|
|
upd.samples$IQ_date<-as.Date(upd.samples$IQ_date) |
|
|
|
upd.samples$TIL_date<-as.Date(upd.samples$TIL_date) |
|
|
|
### !! Atención, esto cambia la base de datos: |
|
|
|
sqlSave(conn, upd.samples, tablename="SAMPLES", append = T, varTypes = c("IQ_date"="date")) |
|
|
|
sqlSave(conn, upd.samples, tablename="SAMPLES", append = T, varTypes = c("IQ_date"="date","TIL_date"="date")) |
|
|
|
print("Tabla SAMPLES sincronizada.") |
|
|
|
} |
|
|
|
|
|
|
|