R/simplify_if_one_col_df.R

Defines functions simplify_if_one_col_df

simplify_if_one_col_df <- function(obj) {
  if (is.data.frame(obj) && identical(length(obj), 1L)) {
    return(obj[[1L]])
  }
  obj
}
2DegreesInvesting/PACTA_analysis documentation built on April 19, 2023, 6:42 p.m.