5 files changed, 26 insertions(+), 10 deletions(-)

M DESCRIPTION
M R/schemas.R
M man/drill_show_files.Rd
M man/drill_show_schemas.Rd
M man/drill_use.Rd

@@ 5,7 5,8 @@ Authors@R: c(
       person("Bob", "Rudis", email = "bob@rud.is", role = c("aut", "cre"), 
              comment = c(ORCID = "0000-0001-5670-2640")),
       person("Edward", "Visel", email = "edward.visel@gmail.com", role = "ctb"),
-      person("Andy", "Hine", email = "andyyhine@gmail.com", role = "ctb")
+      person("Andy", "Hine", email = "andyyhine@gmail.com", role = "ctb"),
+      person("Scott", "Came", email = "scottcame10@gmail.com", role = "ctb")
     )
 Description: 'Apache Drill' is a low-latency distributed query engine designed to enable 
     data exploration and 'analytics' on both relational and non-relational 'datastores', 

@@ 1,11 1,13 @@
 #' Returns a list of available schemas.
 #'
 #' @param drill_con drill server connection object setup by \code{drill_connection()}
+#' @param .progress if \code{TRUE} (default if in an interactive session) then ask
+#'                  \code{httr::POST} to display a progress bar
 #' @references \href{https://drill.apache.org/docs/}{Drill documentation}
 #' @family Dill direct REST API Interface
 #' @export
-drill_show_schemas <- function(drill_con) {
-  drill_query(drill_con, "SHOW SCHEMAS")
+drill_show_schemas <- function(drill_con, .progress=interactive()) {
+  drill_query(drill_con, "SHOW SCHEMAS", .progress = .progress)
 }
 
 #' Change to a particular schema.


@@ 13,12 15,14 @@ drill_show_schemas <- function(drill_con) {
 #' @param drill_con drill server connection object setup by \code{drill_connection()}
 #' @param schema_name A unique name for a Drill schema. A schema in Drill is a configured
 #'                   storage plugin, such as hive, or a storage plugin and workspace.
+#' @param .progress if \code{TRUE} (default if in an interactive session) then ask
+#'                  \code{httr::POST} to display a progress bar
 #' @references \href{https://drill.apache.org/docs/}{Drill documentation}
 #' @family Dill direct REST API Interface
 #' @export
-drill_use <- function(drill_con, schema_name) {
+drill_use <- function(drill_con, schema_name, .progress=interactive()) {
   query <- sprintf("USE `%s`", schema_name)
-  out <- drill_query(drill_con, query)
+  out <- drill_query(drill_con, query, .progress = .progress)
   if (!("errorMessage" %in% names(out))) message(out)
   invisible(out)
 }


@@ 27,6 31,8 @@ drill_use <- function(drill_con, schema_name) {
 #'
 #' @param drill_con drill server connection object setup by \code{drill_connection()}
 #' @param schema_spec properly quoted "filesystem.directory_name" reference path
+#' @param .progress if \code{TRUE} (default if in an interactive session) then ask
+#'                  \code{httr::POST} to display a progress bar
 #' @export
 #' @references \href{https://drill.apache.org/docs/}{Drill documentation}
 #' @family Dill direct REST API Interface


@@ 34,8 40,8 @@ drill_use <- function(drill_con, schema_name) {
 #' try({
 #' drill_connection() %>% drill_show_files("dfs.tmp")
 #' }, silent=TRUE)
-drill_show_files <- function(drill_con, schema_spec) {
+drill_show_files <- function(drill_con, schema_spec, .progress=interactive()) {
   query <- sprintf("SHOW FILES IN %s", schema_spec)
-  drill_query(drill_con, query, uplift=TRUE) %>%
+  drill_query(drill_con, query, uplift=TRUE, .progress = .progress) %>%
     dplyr::select(name, isDirectory, permissions, dplyr::everything())
 }

@@ 4,12 4,15 @@
 \alias{drill_show_files}
 \title{Show files in a file system schema.}
 \usage{
-drill_show_files(drill_con, schema_spec)
+drill_show_files(drill_con, schema_spec, .progress = interactive())
 }
 \arguments{
 \item{drill_con}{drill server connection object setup by \code{drill_connection()}}
 
 \item{schema_spec}{properly quoted "filesystem.directory_name" reference path}
+
+\item{.progress}{if \code{TRUE} (default if in an interactive session) then ask
+\code{httr::POST} to display a progress bar}
 }
 \description{
 Show files in a file system schema.

@@ 4,10 4,13 @@
 \alias{drill_show_schemas}
 \title{Returns a list of available schemas.}
 \usage{
-drill_show_schemas(drill_con)
+drill_show_schemas(drill_con, .progress = interactive())
 }
 \arguments{
 \item{drill_con}{drill server connection object setup by \code{drill_connection()}}
+
+\item{.progress}{if \code{TRUE} (default if in an interactive session) then ask
+\code{httr::POST} to display a progress bar}
 }
 \description{
 Returns a list of available schemas.

@@ 4,13 4,16 @@
 \alias{drill_use}
 \title{Change to a particular schema.}
 \usage{
-drill_use(drill_con, schema_name)
+drill_use(drill_con, schema_name, .progress = interactive())
 }
 \arguments{
 \item{drill_con}{drill server connection object setup by \code{drill_connection()}}
 
 \item{schema_name}{A unique name for a Drill schema. A schema in Drill is a configured
 storage plugin, such as hive, or a storage plugin and workspace.}
+
+\item{.progress}{if \code{TRUE} (default if in an interactive session) then ask
+\code{httr::POST} to display a progress bar}
 }
 \description{
 Change to a particular schema.