Commit f98963c8 authored by houyun's avatar houyun
Browse files

improve empty() when data is not a df

parent cbeb953e

R/utils.R

+5 −1
Original line number Diff line number Diff line
@@ -57,7 +57,11 @@ make_list_names <- function(x, pre = "X", sep = "") 
#' @noRd

empty <- function (df)

{

  if (inherits(df, "data.frame") || inherits(df, "matrix")) {

    is.null(df) || nrow(df) == 0 || ncol(df) == 0

  } else {

    is.null(df) || length(df) == 0

  }

}



#' @noRd

CRA Git | Maintained and supported by SUSTech CRA and CCSE