From 1613207bf65a4cdce1ac9aba79256561dda399a5 Mon Sep 17 00:00:00 2001
From: Costa <47926492N@ICO.SCS.local>
Date: Thu, 27 Jan 2022 15:04:13 +0100
Subject: [PATCH] =?UTF-8?q?Corregir=20funci=C3=B3n=20sqlBackup.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
---
Docs/Readme.md | 2 +-
Docs/sqlFunctions-doc.Rmd | 2 +-
Docs/sqlFunctions-doc.html | 311 ++++++++++++++++++++++++++++++++-----
sqlFunctions.R | 2 +-
4 files changed, 274 insertions(+), 43 deletions(-)
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 @@
sqlFunctions-Doc
-
-
+
+
-
-
-
-
+
+
+
+
-
-
+
+