From 6f5910ea618c789cfa9b4bdc55ddf247b842f138 Mon Sep 17 00:00:00 2001
From: Soumya Banerjee <neel.soumya@gmail.com>
Date: Sat, 12 Feb 2022 19:11:38 +0000
Subject: [PATCH] Create retStrDS.R

---
 retStrDS.R | 35 +++++++++++++++++++++++++++++++++++
 1 file changed, 35 insertions(+)
 create mode 100644 retStrDS.R

diff --git a/retStrDS.R b/retStrDS.R
new file mode 100644
index 0000000..e406e49
--- /dev/null
+++ b/retStrDS.R
@@ -0,0 +1,35 @@
+#' 
+#' @title returns a string from a serverside environment
+#' @description returns a string from the server side environment afetr appending it to a string passed from the client side
+#' @details Serverside aggregate function {retStrDS} called by clientside function.
+#' {ds.retStr}.
+#' returns a string from the server side environment afetr appending it to a string passed from the client side. 
+#' This request is not disclosive as it only returns a string.
+#' For further details see help for {ds.retStr} function.
+#' @param search.filter either NULL or a character string (potentially including '*'
+#' wildcards) specifying required search criteria. This argument is
+#' fully specified by its corresponding argument in the clientside function.
+#' @return a string containing a Hello World from server-side appended to whatever string was passed from client-side
+#' @author Soumya Banerjee (2020).
+#' @export
+retStrDS<-function(search.filter=NULL)
+{
+      #########################################################################
+      # DataSHIELD MODULE: CAPTURE THE nfilter SETTINGS                       #
+      thr <- listDisclosureSettingsDS()                                       #
+      #nfilter.tab<-as.numeric(thr$nfilter.tab)                               #
+      #nfilter.glm<-as.numeric(thr$nfilter.glm)                               #
+      #nfilter.subset<-as.numeric(thr$nfilter.subset)                         #
+      nfilter.string<-as.numeric(thr$nfilter.string)                          #
+      #nfilter.stringShort<-as.numeric(thr$nfilter.stringShort)               #
+      #nfilter.kNN<-as.numeric(thr$nfilter.kNN)                               #
+      #datashield.privacyLevel<-as.numeric(thr$datashield.privacyLevel)       #
+      #########################################################################
+
+      cat('\n Hello World from server-side function retStrDS() in dsBase \n')
+      temp_str <- 'Hello World from server-side dsBase::retStrDS()'
+      outlist <- paste0(search.filter, temp_str)
+      return(outlist)
+}
+#AGGREGATE FUNCTION
+# retStrDS