R/has_pgen_table_attributes.R

In richelbilderbeek/plinkr: Interface to PLINK

#' Determine if the table has the attributes of a `pgen_table`
#'
#' Determine if the table has the attributes of a `pgen_table`
#' @param table a table
#' @return TRUE if the table has the attributes of a `pgen_table`
#' @author Richèl J.C. Bilderbeek
#' @export
has_pgen_table_attributes <- function(table) {
  "plinkr_datatype" %in% names(attributes(table)) &&
    attributes(table)$plinkr_datatype == "pgen_table"
}