fixed import issues

Author: timcadman

DESCRIPTION

@@ -70,6 +70,7 @@ Imports:
     data.table,
     methods,
     dplyr,
+    purrr,
     assertthat,
     cli
 Suggests:
@@ -85,4 +86,4 @@ Suggests:
     DSLite
 Encoding: UTF-8
 Language: en-GB
-Config/roxygen2/version: 8.0.0
+Config/roxygen2/version: 8.0.0.9000

NAMESPACE

@@ -121,8 +121,6 @@ export(ds.var)
 export(ds.vectorCalc)
 export(subsetHelper)
 import(DSI)
-import(data.table)
-import(dplyr)
 importFrom(DSI,datashield.aggregate)
 importFrom(DSI,datashield.assign)
 importFrom(assertthat,assert_that)
@@ -136,6 +134,13 @@ importFrom(cli,cli_li)
 importFrom(cli,cli_ol)
 importFrom(cli,cli_text)
 importFrom(cli,cli_ul)
+importFrom(data.table,.SD)
+importFrom(dplyr,"%>%")
+importFrom(dplyr,all_of)
+importFrom(dplyr,bind_rows)
+importFrom(dplyr,case_when)
+importFrom(dplyr,row_number)
+importFrom(dplyr,where)
 importFrom(purrr,map)
 importFrom(purrr,map_lgl)
 importFrom(purrr,pmap)

R/computeWeightedMeans.R

@@ -11,7 +11,7 @@
 #' @param by character vector of the columns to group by
 #' @return Returns a data table object with computed weighted means.
 #'
-#' @import data.table
+#' @importFrom data.table .SD
 #' @importFrom stats as.formula na.omit ts weighted.mean
 #' @keywords internal
 computeWeightedMeans <- function(data_table, variables, weight, by) {

R/ds.bp_standards.R

@@ -26,7 +26,6 @@
 #' blood pressure in children and adolescents:
 #' https://www.nhlbi.nih.gov/sites/default/files/media/docs/hbp_ped.pdf
 #' @author Demetris Avraam for DataSHIELD Development Team
-#' @import data.table
 #' @export
 ds.bp_standards <- function(sex=NULL, age=NULL, height=NULL, bp=NULL, systolic=TRUE, 
                             newobj=NULL, datasources=NULL){

R/ds.standardiseDf.R

@@ -129,7 +129,7 @@ ds.standardiseDf <- function(df.name = NULL, newobj = NULL, fix_class = "ask", f
 #' @param df.name Name of the input DataFrame.
 #' @param datasources Data sources from which to aggregate data.
 #' @return A DataFrame containing the variable classes from each data source.
-#' @import dplyr
+#' @importFrom dplyr %>% bind_rows row_number where all_of case_when
 #' @noRd
 .get_var_classes <- function(df.name, datasources) {
   cally <- call("getClassAllColsDS", df.name)
@@ -144,7 +144,6 @@ ds.standardiseDf <- function(df.name = NULL, newobj = NULL, fix_class = "ask", f
 #'
 #' @param classes A DataFrame containing variable classes across data sources.
 #' @return A list of variables that have class conflicts.
-#' @import dplyr
 #' @importFrom purrr map
 #' @noRd
 .identify_class_conflicts <- function(classes) {