diff --git a/sqlFunctions.R b/sqlFunctions.R index 7a49400..83b93ec 100644 --- a/sqlFunctions.R +++ b/sqlFunctions.R @@ -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.") } }