R/get.R

In christian-million/ToSurveyMan: Functions to handle Survey Data

# Find Better Way to access variables based on non-name attributes

## Get Columns Based On Classes
get_response <- function(x){
  responses <- sapply(x, is.response)
  x[responses]
}

get_categorical <- function(x){
  cats <- sapply(x, is.categorical)
  x[cats]
}

#TO-DO: Create GET Functions for rest of response_type classes


## Get Columns With Attributes as Labels