getCaCnames: #' @export sameFringes <- function(f1,f2) all(...

In datasketch/homodatum: Data types for humans

#' @export sameFringes <- function(f1,f2) all( identical(getCnames(f1),getCnames(f2)), identical(gethdtypes(f1),gethdtypes(f2)), identical(getCformats(f1),getCformats(f2)), identical(f1$dic_$d,f2$dic_$d), identical(f1$d,f2$d) )

Description

#' @export getDatafringe <- function(fringe, withNames = TRUE) if(!isFringe(fringe)) stop('class is not Fringe') if(withNames) return(fringe$data) else return(fringe$d)

Usage

getCaCnames(fringe, n = 4)

Details

#' @export getCnames <- function(fringe) if(isFringe(fringe)) return(fringe$dic_$d$id) if(is.data.frame(fringe)) return(names(fringe))

#' @export getClabels <- function(fringe) if(isFringe(fringe)) return(fringe$dic_$d$label) if(is.data.frame(fringe)) return(names(fringe))

#' @export getCdescriptions <- function(fringe) if(!isFringe(fringe)) stop('class is not Fringe') fringe$dic_$d$cdescription

#' @export gethdtypes <- function(fringe, cols = NULL) if(!isFringe(fringe)) fringe <- fringe(fringe) fringe$dic_$d$ctype

#' @export getCformats <- function(fringe) if(!isFringe(fringe)) fringe <- fringe(fringe) fringe$dic_$d$cformat

datasketch/homodatum documentation built on May 1, 2023, 12:17 a.m.