R/hides_df.R

In moodymudskipper/hidden: A Package For Detecting Hidden Types

#' @rdname hides
#' @export
hides_df <- function(x, ...){
  UseMethod("hides_df")
}

hides_df.environment <- function(x, ...){
  hides_df.list(x, ...)
}

hides_df.list <- function(x,...){
  l <- unique(lengths(x))
  length(l) == 1 && l > 1
}

hides_df.data.frame <- function(x, na.values=NULL, obvious = FALSE, ...){
  obvious
}

hides_df.default <- function(x, ...){
  FALSE
}