Adding dbtype in functions.
This commit is contained in:
+1
-1
@@ -26,7 +26,7 @@ sqlBackUp<-function(dbfile=file,bu.dir){
|
|||||||
file.copy(dbfile, cp_bu)
|
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)){
|
if (isFALSE(verb)){
|
||||||
sqlQuery(conn, "SELECT O.NHC,S.*
|
sqlQuery(conn, "SELECT O.NHC,S.*
|
||||||
FROM SAMPLES S
|
FROM SAMPLES S
|
||||||
|
|||||||
Reference in New Issue
Block a user