Adding dbtype in functions.

2021-11-15 17:42:40 +01:00
parent 3f927a5364
commit ec3a8328e7
1 changed files with 1 additions and 1 deletions
@@ -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