export additional utility functions (tidyverse#1864)

NAMESPACE

@@ -280,6 +280,7 @@ S3method(union_all,default)
 S3method(union_all,tbl_lazy)
 S3method(unique,sql)
 export("%>%")
+export(add_op_single)
 export(add_row)
 export(add_rownames)
 export(all_equal)
@@ -404,6 +405,7 @@ export(n)
 export(n_distinct)
 export(n_groups)
 export(na_if)
+export(named_commas)
 export(near)
 export(nth)
 export(ntile)
@@ -467,6 +469,7 @@ export(sql_subquery)
 export(sql_translate_env)
 export(sql_translator)
 export(sql_variant)
+export(sql_vector)
 export(src)
 export(src_desc)
 export(src_df)

R/lazy-ops.R

@@ -77,6 +77,13 @@ op_single <- function(name, x, dots = list(), args = list()) {
   )
 }
 
+#' @export
+#' @rdname lazy_ops
+add_op_single <- function(name, .data, dots = list(), args = list()) {
+  .data$ops <- op_single(name, x = .data$ops, dots = dots, args = args)
+  .data
+}
+
 #' @export
 print.op_single <- function(x, ...) {
   print(x$x)

R/sql-escape.r

@@ -162,6 +162,8 @@ escape.list <- function(x, parens = TRUE, collapse = ", ", con = NULL) {
   sql_vector(pieces, parens, collapse)
 }
 
+#' @export
+#' @rdname sql
 sql_vector <- function(x, parens = NA, collapse = " ", con = NULL) {
   if (is.na(parens)) {
     parens <- length(x) > 1L

R/tbl-lazy.R

@@ -33,11 +33,6 @@ print.tbl_lazy <- function(x, ...) {
 
 # Single table methods ----------------------------------------------------
 
-add_op_single <- function(name, .data, dots = list(), args = list()) {
-  .data$ops <- op_single(name, x = .data$ops, dots = dots, args = args)
-  .data
-}
-
 #' @export
 filter_.tbl_lazy <- function(.data, ..., .dots) {
   dots <- lazyeval::all_dots(.dots, ...)

R/utils.r

@@ -109,6 +109,10 @@ deparse_all <- function(x) {
   vapply(x, deparse2, FUN.VALUE = character(1))
 }
 
+#' Provides comma-separated string out ot the parameters
+#' @export
+#' @keywords internal
+#' @param ... Arguments to be constructed into the string
 named_commas <- function(...) {
   x <- c(...)
   if (is.null(names(x))) {