Remove = NULL from function header

ianmcook · Sep 7, 2019 · 6059cff · 6059cff
1 parent 34e6718
commit 6059cff
Show file tree

Hide file tree

Showing 2 changed files with 9 additions and 4 deletions.
diff --git a/R/query.R b/R/query.R
@@ -71,11 +71,16 @@ NULL
 #' @importFrom queryparser parse_query
 #' @importFrom utils head
 #' @export
-query <- function(data = NULL, sql = NULL) {
-
-  if (is.null(data) && is.null(sql)) {
+query <- function(data, sql) {
+  if (missing("data") && missing("sql")) {
     stop("0 arguments passed to query() which requires 1 or 2 arguments")
   }
+  if (missing("sql")) {
+    sql <- NULL
+  }
+  if (missing("data")) {
+    data <- NULL
+  }
   if (!is.data.frame(data) && !inherits(data, "tbl") && is.character(data)) {
     if (is.data.frame(sql) || inherits(sql, "tbl")) {
       stop("When calling query() with two arguments, specify the data first and the SQL statement second")

diff --git a/man/query.Rd b/man/query.Rd