Reorganinze package structure

Have one file per exported function

R/as_sql_array.R

@@ -0,0 +1,10 @@
+#' @export
+#' @title Transform a vector into a SQL-interpreted array.
+#'
+#' @param vector character vector
+#' @return
+#'   List with a single string that's interpreted as a SQL array to interpolate in a query.
+as_sql_array <- function(vector) {
+  array <- paste0("(", paste(paste0("'", vector, "'"), collapse = ", "), ")")
+  list(array)
+}

R/db_table.R

@@ -0,0 +1,15 @@
+#' @export
+#' @title Create a tbl that references a schema.table in the `conn` database.
+#'
+#' @param conn A database connection.
+#' @param schema A string with schema name.
+#' @param table A string with table name.
+#'
+#' @return
+#'  A reference to a database table.
+#'
+#' @importFrom dbplyr in_schema
+#' @importFrom dplyr tbl
+db_table <- function(conn, schema, table) {
+  tbl(conn, in_schema(schema, table))
+}

R/dbutils.R → R/fetch_db.R

@@ -1,19 +1,3 @@
-#' @export
-#' @title Create a tbl that references a schema.table in the `conn` database.
-#'
-#' @param conn A database connection.
-#' @param schema A string with schema name.
-#' @param table A string with table name.
-#'
-#' @return
-#'  A reference to a database table.
-#'
-#' @importFrom dbplyr in_schema
-#' @importFrom dplyr tbl
-db_table <- function(conn, schema, table) {
-  tbl(conn, in_schema(schema, table))
-}
-
 #' @export
 #' @title Fetch data from db
 #'
@@ -43,14 +27,3 @@ fetch_db <- function(conn, path, ...) {
     stop(e)
   })
 }
-
-#' @export
-#' @title Transform a vector into a SQL-interpreted array.
-#'
-#' @param vector character vector
-#' @return
-#'   List with a single string that's interpreted as a SQL array to interpolate in a query.
-as_sql_array <- function(vector) {
-  array <- paste0("(", paste(paste0("'", vector, "'"), collapse = ", "), ")")
-  list(array)
-}