Setting global variable names

DESCRIPTION

@@ -48,7 +48,12 @@ Suggests:
     testthat,
     rmarkdown,
     spelling,
-    covr
+    covr,
+    roxyglobals
 Depends: R(>= 3.5.0)
 VignetteBuilder: knitr
 Language: en-GB
+Roxygen: list(roclets = c("collate", "namespace", "rd",
+    "roxyglobals::global_roclet"))
+Config/roxyglobals/filename: globals.R
+Config/roxyglobals/unique: FALSE

NAMESPACE

@@ -61,6 +61,7 @@ importFrom(dplyr,select)
 importFrom(dplyr,summarise)
 importFrom(dplyr,summarize)
 importFrom(dplyr,ungroup)
+importFrom(dplyr,where)
 importFrom(eurostat,get_eurostat)
 importFrom(eurostat,label_eurostat)
 importFrom(forcats,fct_reorder)

R/globals.R

@@ -0,0 +1,14 @@
+# Generated by roxyglobals: do not edit by hand
+
+utils::globalVariables(c(
+  "vars", # <uk_2010_get>
+  "values", # <uk_2010_get>
+  "rowname", # <uk_2010_get>
+  "value", # <uk_2010_get>
+  ".", # <uk_2010_get>
+  "uk_col_lab", # <uk_2010_get>
+  "uk_col", # <uk_2010_get>
+  "uk_row_lab", # <uk_2010_get>
+  "uk_row", # <uk_2010_get>
+  NULL
+))

R/input_flow_get.R

@@ -11,7 +11,8 @@
 #' @param empty_remove Defaults to \code{TRUE}. If you want to keep empty 
 #' primary input rows, choose \code{FALSE}. Empty product/industry rows are always 
 #' removed to avoid division by zero error in the analytic functions.
-#' @importFrom dplyr mutate across left_join select
+#' @importFrom dplyr mutate across left_join select where
+#' @autoglobal
 #' @return A data flow matrix (a symmetric use table) with a key column.
 #' @family analytic object functions
 #' @examples 

R/iotable_get.R

@@ -86,6 +86,7 @@ iotable_get <- function ( labelled_io_data = NULL,
   iotables_row <- iotables_col <- prod_na <- induse <- variable <-  NULL
   row_order <- col_order <- code <- label <- NULL
   uk_col <- uk_col_label <- uk_row <- uk_row_label <- indicator <- NULL
+  numeric_label <- iotables_label <- values <- NULL
 
   if ( labelling == 'eurostat' ) labelling <- 'short'
   ## Parameter exception handling -------------------------------------

R/primary_input_get.R

@@ -4,10 +4,11 @@
 #' @param data_table A symmetric input-output table, a use table, or a 
 #' supply table retrieved by the  \code{\link{iotable_get}} function. 
 #' @param primary_input The primary input to be returned from the table.
-#' @importFrom dplyr select mutate across
+#' @importFrom dplyr select mutate across where
 #' @return A data frame with the vector of multipliers and the an 
 #' auxiliary metadata column (for joining with other matrixes.)
 #' @family iotables processing functions
+#' @autoglobal
 #' @examples
 #' comp_employees_de <- primary_input_get(
 #'   data_table = iotable_get(), 

R/uk_2010_get.R

@@ -15,6 +15,7 @@
 #' @importFrom rlang set_names
 #' @importFrom utils download.file
 #' @importFrom readxl read_excel
+#' @autoglobal
 #' @examples
 #' \dontrun{
 #' uk2010 <- uk_2010_get()

R/utils.R

@@ -53,3 +53,5 @@ chars_collapse <- function (x, collapse = ", ") {
   if (length(x)>1) x <- paste(x, collapse = ", ")
   x
 }
+
+