R/foip.R

In Zanidean/sRa: Functions for improving the life of a research analyst.

#'FOIP your data!
#'@description Really can be useful for protecting privacy, but have to be aware of how to use it safely.
#'@param column column to subset on
#'@param dataframe data to be foiped
#'
#'@examples foip(program, survey)
#'
#'@export foip
foip <- function(column, dataframe){
  df <- dataframe
  dfsum <- select(dataframe, as.name(column))
  dfsum <- as.data.frame(table(dfsum[[column]]), responseName="Count")
  dfsum <- dfsum[dfsum$Count >=5,]
  df <- dataframe[df[[column]] %in% dfsum$Var1,]
  return(df)
}