append

R/block.R

@@ -223,6 +223,12 @@ new_filter_block <- function(data, column = character(),
   )
 }
 
+#' @rdname new_block
+#' @export
+filter_block <- function(data, ...) {
+  initialize_block(new_filter_block(data, ...), data)
+}
+
 #' @param dat Tabular data in which to select some columns.
 #' @param cols Column(s) to select.
 #' @rdname new_block
@@ -245,6 +251,12 @@ new_select_block <- function(dat, cols = colnames(dat)[1L], ...) {
   )
 }
 
+#' @rdname new_block
+#' @export
+select_block <- function(data, ...) {
+  initialize_block(new_select_block(data, ...), data)
+}
+
 #' @param dat Tabular data in which to select some columns.
 #' @param x X axis variable.
 #' @param y Y axis variable.
@@ -280,11 +292,11 @@ new_plot_block <- function(dat, x, y, plot_opts = list(color = "blue"), ...) {
   )
 }
 
-#' @rdname new_block
-#' @export
-filter_block <- function(data, ...) {
-  initialize_block(new_filter_block(data, ...), data)
-}
+##' @rdname new_block
+##' @export
+#plot_block <- function(data, ...) {
+#  initialize_block(new_plot_block(data, ...), data)
+#}
 
 #' @rdname new_block
 #' @export