Limpieza de código.

sqlFunctions.R

@@ -15,7 +15,7 @@ sqlLastDrop<-function(conn, tablename, droplast=1,dbtype=NULL){
 
 
 sqlInitialize<-function(ruta="ruta_database.R"){
-  library(tidyverse)
+  # library(tidyverse)
   library(RODBC)
   library(openxlsx)
   
@@ -24,10 +24,12 @@ sqlInitialize<-function(ruta="ruta_database.R"){
 }
 
 sqlBackUp<-function(dbfile=file,conn=dta,bu.dir=NULL){
+  print(dbfile)
   if(sqlTables(conn) %>% filter(TABLE_NAME == "UMID") %>% nrow > 0){bu.dir<-"BU_UM"}
   if(sqlTables(conn) %>% filter(TABLE_NAME == "OVID") %>% nrow > 0){bu.dir<-"BU_OVARIO"}
   
-  db=strsplit(dbfile, "/")[[1]]%>% tail(n=1)
+  db=tail(strsplit(dbfile, "/")[[1]], n=1)
+  print(db)
   bu_path<-gsub(db,bu.dir,dbfile)
   if (!dir.exists(bu_path)){
     dir.create(bu_path)
@@ -75,12 +77,12 @@ sqlGenOVID<-function(conn=dta, nhcs=nhc.test, verb=T, sinc=F, dbtype=NULL){
     db<-c("dbcode"="PATID", "dbpref"="CCID")
   }
   
-  dbid<-sqlFetch(conn,db["dbcode"])
+  dbid<-sqlFetch(conn,db["dbcode"], as.is=T)
   new.nhc<-nhcs[!nhcs %in% dbid$NHC] %>% unique()
 
   if(length(new.nhc) > 0){
     if (nrow(dbid) == 0){next.num<-1}else{
-    next.num<-gsub(db["dbcode"],"",dbid[,db["dbcode"]]) %>% as.numeric %>% max(na.rm=T)+1
+    next.num<-gsub(db["dbpref"],"",dbid[,db["dbcode"]]) %>% as.numeric %>% max(na.rm=T)+1
     }
     print(next.num)
     last.num<-next.num+(length(new.nhc)-1)
@@ -91,7 +93,7 @@ sqlGenOVID<-function(conn=dta, nhcs=nhc.test, verb=T, sinc=F, dbtype=NULL){
     if(dbtype=="UM"){
       dbid<-merge(dbid, newtab, all=T) %>% select(NHC,UMID) %>% arrange(UMID)
       # dbid$Id<-as.numeric(rownames(dbid))
-      dbid$NHC<-as.numeric(dbid$NHC)
+      # dbid$NHC<-dbid$NHC
     }
     if (dbtype=="CC"){
       dbid<-merge(dbid, newtab, all=T) %>% select(NHC,PATID) %>% arrange(PATID)