#'
#' @title checkPermissivePrivacyControlLevel
#' @description This serverside function check that the server is running in "permissive" privacy control level.
#' @details Tests whether the R option "datashield.privacyControlLevel" is set to "permissive", if it isn't
#' will cause a call to stop() with the message "BLOCKED: The server is running in 'non-permissive' mode which
#' has caused this method to be blocked".
#' @param privacyControlLevels is a vector of strings which contains the privacy control level names which are permitted by the calling method.
#' @author Wheater, Dr SM., DataSHIELD Team.
#' @export
#'
checkPermissivePrivacyControlLevel <- function(privacyControlLevels){
disclosureSettings <- dsBase::listDisclosureSettingsDS()
if (is.null(disclosureSettings) || is.null(disclosureSettings$datashield.privacyControlLevel) ||
(! any(disclosureSettings$datashield.privacyControlLevel %in% privacyControlLevels))) {
stop("BLOCKED: The server is running in 'non-permissive' mode which has caused this method to be blocked", call. = TRUE)
}
invisible()
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.