#'
#' @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)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.