R/old-table.R

#' Table API [deprecated]
#'
#' See [api-table] for recommended API.
#' @keywords internal
#' @name table-dep
NULL

#' @rdname table-dep
#' @export
insert_table <- function(project, dataset, table, ...) {
  x <- bq_table(project, dataset, table)
  bq_table_create(x, ...)
}

#' @rdname table-dep
#' @export
get_table <- function(project, dataset, table) {
  x <- bq_table(project, dataset, table)
  bq_table_meta(x)
}

#' @rdname table-dep
#' @export
exists_table <- function(project, dataset, table) {
  x <- bq_table(project, dataset, table)
  bq_table_exists(x)
}

#' @rdname table-dep
#' @export
delete_table <- function(project, dataset, table) {
  x <- bq_table(project, dataset, table)
  bq_table_delete(x)
}
wilpoole-essence/bigrquery documentation built on May 6, 2019, 8:06 p.m.