|
|
@ -238,7 +238,7 @@ sqlSincBD<-function(conn=dta, filetemp="queryOV.xlsx", sinc.samples=F, sinc.clin |
|
|
|
for (i in fechas){ |
|
|
|
clinics.mod[,i]<-as.Date(clinics.mod[,i]) |
|
|
|
} |
|
|
|
sqlUpdate(conn, clinics.mod,"CLINICOS") |
|
|
|
sqlUpdate(conn, clinics.mod,"CLINICOS", index="UMID") |
|
|
|
print("Tabla CLINICOS modificada.") |
|
|
|
} |
|
|
|
} |
|
|
@ -276,7 +276,7 @@ sqlSincBD<-function(conn=dta, filetemp="queryOV.xlsx", sinc.samples=F, sinc.clin |
|
|
|
for (i in fechas){ |
|
|
|
clinics.new[,i]<-as.Date(clinics.new[,i]) |
|
|
|
} |
|
|
|
sqlSave(conn, clinics.new, tablename="CLINICOS", append = T, varTypes = varTypes) |
|
|
|
sqlSave(conn, clinics.new, tablename="CLINICOS", append = T, varTypes = varTypes, rownames = F) |
|
|
|
print("Tabla CLINICOS sincronizada.") |
|
|
|
} |
|
|
|
} |
|
|
|