chore: set privacy level to permissive, fix expDS authorship

timcadman · timcadman · commit 94f1c0a9406e · 2026-04-13T12:50:28.000+02:00
diff --git a/R/expDS.R b/R/expDS.R
@@ -14,7 +14,7 @@ expDS <- function(x) {
   x.var <- .loadServersideObject(x)
   .checkClass(obj = x.var, obj_name = x, permitted_classes = c("numeric", "integer"))
 
-  out <- exp(x.var)
+out <- exp(x.var)
   return(out)
 }
 # ASSIGN FUNCTION
diff --git a/inst/DATASHIELD b/inst/DATASHIELD
@@ -163,7 +163,7 @@ AssignMethods:
     unlist=base::unlist
 Options:
     datashield.privacyLevel=5,
-    default.datashield.privacyControlLevel="banana",
+    default.datashield.privacyControlLevel="permissive",
     default.nfilter.glm=0.33,
     default.nfilter.kNN=3,
     default.nfilter.string=80,

Original file line number	Diff line number	Diff line change
`@@ -14,7 +14,7 @@ expDS <- function(x) {`
`14`	`14`	`x.var <- .loadServersideObject(x)`
`15`	`15`	`.checkClass(obj = x.var, obj_name = x, permitted_classes = c("numeric", "integer"))`
`16`	`16`
`17`		`- out <- exp(x.var)`
	`17`	`+out <- exp(x.var)`
`18`	`18`	`return(out)`
`19`	`19`	`}`
`20`	`20`	`# ASSIGN FUNCTION`