diff --git a/Docs/Readme.md b/Docs/Readme.md index e264a6e..498bf40 100644 --- a/Docs/Readme.md +++ b/Docs/Readme.md @@ -128,7 +128,7 @@ sqlBackUp() ```r sqlBackUp<-function(dbfile=file,conn=dta,bu.dir=NULL){ if(sqlTables(conn) %>% filter(TABLE_NAME == "UMID") %>% nrow > 0){bu.dir<-"BU_UM"} - if(sqlTables(conn) %>% filter(TABLE_NAME == "OVID") %>% nrow > 0){dbtype<-"BU_OVARIO"} + if(sqlTables(conn) %>% filter(TABLE_NAME == "OVID") %>% nrow > 0){bu.dir<-"BU_OVARIO"} db=strsplit(dbfile, "/")[[1]]%>% tail(n=1) bu_path<-gsub(db,bu.dir,dbfile) diff --git a/Docs/sqlFunctions-doc.Rmd b/Docs/sqlFunctions-doc.Rmd index e7e5544..05986fb 100644 --- a/Docs/sqlFunctions-doc.Rmd +++ b/Docs/sqlFunctions-doc.Rmd @@ -126,7 +126,7 @@ sqlBackUp() ```r sqlBackUp<-function(dbfile=file,conn=dta,bu.dir=NULL){ if(sqlTables(conn) %>% filter(TABLE_NAME == "UMID") %>% nrow > 0){bu.dir<-"BU_UM"} - if(sqlTables(conn) %>% filter(TABLE_NAME == "OVID") %>% nrow > 0){dbtype<-"BU_OVARIO"} + if(sqlTables(conn) %>% filter(TABLE_NAME == "OVID") %>% nrow > 0){bu.dir<-"BU_OVARIO"} db=strsplit(dbfile, "/")[[1]]%>% tail(n=1) bu_path<-gsub(db,bu.dir,dbfile) diff --git a/Docs/sqlFunctions-doc.html b/Docs/sqlFunctions-doc.html index e7d4a33..116fa38 100644 --- a/Docs/sqlFunctions-doc.html +++ b/Docs/sqlFunctions-doc.html @@ -13,13 +13,49 @@