Defines functions assert_nrows

Documented in assert_nrows

#' Assert that a data.frame contains a specified number of rows
#' Given a data.frame or data.table object and a target number of rows, check that a dataset has that many rows

#' @param data A data.frame or data.table
#' @param target_nrows Numeric -- number of expected rows
#' @param quiet Do you want to suppress the printed message when a test is passed? Default = F.

#' @return Throws error if test is violated
#' @export
#' @examples
#' assert_nrows(CO2,84)

assert_nrows <- function(data, target_nrows, quiet=FALSE) {
  if(nrow(data) != target_nrows) stop(paste0("Have ", nrow(data), " rows, expecting ",target_nrows))
  if(!quiet) print("All rows present")

Try the assertable package in your browser

Any scripts or data that you put into this service are public.

assertable documentation built on Jan. 27, 2021, 9:07 a.m.