Merge pull request datashield#361 from StuartWheater/v6.1.1-dev

StuartWheater · web-flow · commit c757ffd0bca8 · 2021-04-07T13:29:49.000+01:00
Change '=' to '&lt;-'
diff --git a/R/ds.asCharacter.R b/R/ds.asCharacter.R
@@ -54,7 +54,7 @@
 #' }   
 #' @author DataSHIELD Development Team
 #' @export
-ds.asCharacter = function(x.name=NULL, newobj=NULL, datasources=NULL){
+ds.asCharacter <- function(x.name=NULL, newobj=NULL, datasources=NULL){
 
   # look for DS connections
   if(is.null(datasources)){
diff --git a/R/ds.asDataMatrix.R b/R/ds.asDataMatrix.R
@@ -55,7 +55,7 @@
 #' }   
 #' @author DataSHIELD Development Team
 #' @export
-ds.asDataMatrix = function(x.name=NULL, newobj=NULL, datasources=NULL){
+ds.asDataMatrix <- function(x.name=NULL, newobj=NULL, datasources=NULL){
 
   # look for DS connections
   if(is.null(datasources)){
diff --git a/R/ds.asList.R b/R/ds.asList.R
@@ -55,7 +55,7 @@
 #' }   
 #' @author  DataSHIELD Development Team
 #' @export
-ds.asList = function(x.name=NULL, newobj=NULL, datasources=NULL){
+ds.asList <- function(x.name=NULL, newobj=NULL, datasources=NULL){
 
   # look for DS connections
   if(is.null(datasources)){
diff --git a/R/ds.asLogical.R b/R/ds.asLogical.R
@@ -55,7 +55,7 @@
 #' }   
 #' @author DataSHIELD Development Team
 #' @export
-ds.asLogical = function(x.name=NULL, newobj=NULL, datasources=NULL){
+ds.asLogical <- function(x.name=NULL, newobj=NULL, datasources=NULL){
 
   # look for DS connections
   if(is.null(datasources)){
diff --git a/R/ds.asNumeric.R b/R/ds.asNumeric.R
@@ -69,7 +69,7 @@
 #' }   
 #' @author DataSHIELD Development Team
 #' @export
-ds.asNumeric = function(x.name=NULL, newobj=NULL, datasources=NULL){
+ds.asNumeric <- function(x.name=NULL, newobj=NULL, datasources=NULL){
 
   # look for DS connections
   if(is.null(datasources)){
diff --git a/R/ds.corTest.R b/R/ds.corTest.R
@@ -51,7 +51,7 @@
 #' }   
 #'
 #'
-ds.corTest = function(x=NULL, y=NULL, datasources=NULL){
+ds.corTest <- function(x=NULL, y=NULL, datasources=NULL){
 
   # look for DS connections
   if(is.null(datasources)){
diff --git a/R/ds.exp.R b/R/ds.exp.R
@@ -55,7 +55,7 @@
 #'
 #' }
 #'
-ds.exp = function(x=NULL, newobj=NULL, datasources=NULL){
+ds.exp <- function(x=NULL, newobj=NULL, datasources=NULL){
 
   # look for DS connections
   if(is.null(datasources)){
diff --git a/R/ds.isValid.R b/R/ds.isValid.R
@@ -57,7 +57,7 @@
 #'
 #' }
 #'
-ds.isValid = function(x=NULL, datasources=NULL){
+ds.isValid <- function(x=NULL, datasources=NULL){
 
   # look for DS connections
   if(is.null(datasources)){
diff --git a/R/ds.length.R b/R/ds.length.R
@@ -74,7 +74,7 @@
 #'   datashield.logout(connections)
 #' }
 #'
-ds.length = function(x=NULL, type='both', checks='FALSE', datasources=NULL){
+ds.length <- function(x=NULL, type='both', checks='FALSE', datasources=NULL){
 
   ##################################################################################################################
   #MODULE 1: IDENTIFY DEFAULT CONNECTIONS                                                                          #
diff --git a/R/ds.levels.R b/R/ds.levels.R
@@ -56,7 +56,7 @@
 #'
 #' }
 #'
-ds.levels = function(x=NULL, datasources=NULL) {
+ds.levels <- function(x=NULL, datasources=NULL) {
 
   # look for DS connections
   if(is.null(datasources)){
diff --git a/R/ds.list.R b/R/ds.list.R
@@ -6,7 +6,7 @@
 #' 
 #' Server function called: \code{listDS}
 #' @param x a character string specifying the names of the objects to coerce into a list.
-#' @param newobj 	a character string that provides the name for the output variable 
+#' @param newobj a character string that provides the name for the output variable 
 #' that is stored on the data servers. Default \code{list.newobj}.
 #' @param datasources a list of \code{\link{DSConnection-class}} 
 #' objects obtained after login. If the \code{datasources} argument is not specified
@@ -51,7 +51,7 @@
 #'   datashield.logout(connections)
 #' }
 #'
-ds.list = function(x=NULL, newobj=NULL, datasources=NULL){
+ds.list <- function(x=NULL, newobj=NULL, datasources=NULL){
 
   # look for DS connections
   if(is.null(datasources)){
diff --git a/R/ds.log.R b/R/ds.log.R
@@ -55,7 +55,7 @@
 #'   datashield.logout(connections) 
 #'}
 #'
-ds.log = function(x=NULL, base=exp(1), newobj=NULL, datasources=NULL){
+ds.log <- function(x=NULL, base=exp(1), newobj=NULL, datasources=NULL){
 
   # look for DS connections
   if(is.null(datasources)){
diff --git a/R/ds.numNA.R b/R/ds.numNA.R
@@ -52,7 +52,7 @@
 #'
 #' }
 #'
-ds.numNA = function(x=NULL, datasources=NULL) {
+ds.numNA <- function(x=NULL, datasources=NULL) {
 
   # look for DS connections
   if(is.null(datasources)){
diff --git a/R/ds.replaceNA.R b/R/ds.replaceNA.R
@@ -76,7 +76,7 @@
 
 
 
-ds.replaceNA = function(x=NULL, forNA=NULL, newobj=NULL, datasources=NULL) {
+ds.replaceNA <- function(x=NULL, forNA=NULL, newobj=NULL, datasources=NULL) {
 
   # look for DS connections
   if(is.null(datasources)){
diff --git a/R/ds.rowColCalc.R b/R/ds.rowColCalc.R
@@ -64,7 +64,7 @@
 #'
 #' }
 #' @export
-ds.rowColCalc = function(x=NULL, operation=NULL, newobj=NULL, datasources=NULL){
+ds.rowColCalc <- function(x=NULL, operation=NULL, newobj=NULL, datasources=NULL){
 
   # look for DS connections
   if(is.null(datasources)){
diff --git a/R/ds.vectorCalc.R b/R/ds.vectorCalc.R
@@ -37,7 +37,7 @@
 #'
 #' }
 #'
-ds.vectorCalc = function(x=NULL, calc=NULL, newobj=NULL, datasources=NULL){
+ds.vectorCalc <- function(x=NULL, calc=NULL, newobj=NULL, datasources=NULL){
   .Deprecated("ds.make")
   
   # look for DS connections
diff --git a/R/meanByClassHelper0a.R b/R/meanByClassHelper0a.R
@@ -15,7 +15,7 @@
 #' @keywords internal
 #' @author Gaye, A.
 #'
-meanByClassHelper0a = function(a, b, type, datasources){
+meanByClassHelper0a <- function(a, b, type, datasources){
 
   # generate a data frame from the two vector
   x <- c(a,b)
diff --git a/R/meanByClassHelper0b.R b/R/meanByClassHelper0b.R
@@ -16,7 +16,7 @@
 #' @keywords internal
 #' @author Gaye, A.
 #'
-meanByClassHelper0b = function(x, outvar, covar, type, datasources){
+meanByClassHelper0b <- function(x, outvar, covar, type, datasources){
   if(is.null(outvar)){
     stop(" Please specify at least 1 continuous variables - see parameter 'outvar'!", call.=FALSE)
   }
