1 files changed, 9 insertions, 0 deletions
diff --git a/R/serenitasdb.R b/R/serenitasdb.R
index 071df331..89cc7733 100644
--- a/R/serenitasdb.R
+++ b/R/serenitasdb.R
@@ -4,6 +4,15 @@ serenitasdb <- dbConnect(RPostgres::Postgres(),
                          user = "serenitas_user",
                          host="debian")
 
+sqlArray <- function(vec){
+    vec[is.na(vec)] <- "NULL"
+    return( sprintf("Array[%s]", paste(vec, collapse=",")) )
+}
+
+sqlQuote <- function(slist){
+    return( unlist(lapply(slist, function(s) sprintf("'%s'", s)) ) )
+}
+
 nameToBasketID <- function(name, date=Sys.Date()){
     sqlstr <- "SELECT * from nametobasketid($1, $2)"
     r <- dbGetQuery(serenitasdb, sqlstr, params=list(name, date))