From ec3a8328e743f0a7a827918920f0d935c9196ef1 Mon Sep 17 00:00:00 2001
From: Costa <47926492N@ICO.SCS.local>
Date: Mon, 15 Nov 2021 17:42:40 +0100
Subject: [PATCH] Adding dbtype in functions.

---
 sqlFunctions.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/sqlFunctions.R b/sqlFunctions.R
index dd14145..d697b1a 100644
--- a/sqlFunctions.R
+++ b/sqlFunctions.R
@@ -26,7 +26,7 @@ sqlBackUp<-function(dbfile=file,bu.dir){
   file.copy(dbfile, cp_bu)
 }
 
-sqlShowSamples<-function(conn=dta, nhcs=nhc.test, verb=F){
+sqlShowSamples<-function(conn=dta, nhcs=nhc.test, verb=F, dbtype){
   if (isFALSE(verb)){
     sqlQuery(conn, "SELECT O.NHC,S.* 
          FROM SAMPLES S