R/setFilterDS.R

In stefvanbuuren/dsMice: DataSHIELD server-side functions for the mice package

#' 
#' @title Sets the privacy level
#' @description This is an internal function that set the number of observation
#' that are allowed in any table or vector. The function gets the value from opal
#' and if no value was set in opal it uses the default value 5.
#' @details The function is called by server side functios
#' @param x a dummy argument
#' @return an integer between 1 and 5
#' @keywords internal
#' @author Gaye, A.
#'
setFilterDS <- function(x=getOption("datashield.privacyLevel", default=1)){
  a <- as.numeric(as.character(x))
  return(a)
}