Removed 'dsBaseClient:::'s

StuartWheater · StuartWheater · commit d9b0af89138e · 2020-10-15T19:59:32.000+01:00
diff --git a/R/ds.boxPlot.R b/R/ds.boxPlot.R
@@ -24,8 +24,8 @@ ds.boxPlot <- function(x, variables = NULL, group = NULL, group2 = NULL, xlabel
     datasources <- DSI::datashield.connections_find()
   }
   
-  dsBaseClient:::isDefined(datasources, x)
-  cls <- dsBaseClient:::checkClass(datasources, x)
+  isDefined(datasources, x)
+  cls <- checkClass(datasources, x)
   
   if(any(cls %in% c("data.frame"))){
     ds.boxPlotGG_table(x, variables, group, group2, xlabel, ylabel, type, datasources)
@@ -35,4 +35,4 @@ ds.boxPlot <- function(x, variables = NULL, group = NULL, group2 = NULL, xlabel
   }
   else(stop("The selected object is not a data frame nor a numerical vector"))
   
-}
+}

Original file line number	Diff line number	Diff line change
`@@ -24,8 +24,8 @@ ds.boxPlot <- function(x, variables = NULL, group = NULL, group2 = NULL, xlabel`
`24`	`24`	`datasources <- DSI::datashield.connections_find()`
`25`	`25`	`}`
`26`	`26`
`27`		`- dsBaseClient:::isDefined(datasources, x)`
`28`		`- cls <- dsBaseClient:::checkClass(datasources, x)`
	`27`	`+ isDefined(datasources, x)`
	`28`	`+ cls <- checkClass(datasources, x)`
`29`	`29`
`30`	`30`	`if(any(cls %in% c("data.frame"))){`
`31`	`31`	`ds.boxPlotGG_table(x, variables, group, group2, xlabel, ylabel, type, datasources)`
`@@ -35,4 +35,4 @@ ds.boxPlot <- function(x, variables = NULL, group = NULL, group2 = NULL, xlabel`
`35`	`35`	`}`
`36`	`36`	`else(stop("The selected object is not a data frame nor a numerical vector"))`
`37`	`37`
`38`		`-}`
	`38`	`+}`