update docs and lint fix

R/label_operators.R

@@ -1,10 +1,10 @@
 #' Apply Labels to a dataset
 #'
 #' This function adds "label" attributes to all columns in a dataset
-#' Using the labels_app.csv file which contains common labels for ADPP
-#' and ADPC column names
 #'
 #' @param data The dataset to which labels will be applied.
+#' @param labels_file A data frame with two columns: Variable and Label,
+#'  for the dataset you are applying it .
 #'
 #' @return The same dataset with label attributes applied to all columns.
 #' If a column is not present in the labels list, it will be assigned the name of the col.

inst/shiny/functions/generate_col_defs.R

@@ -41,4 +41,4 @@ generate_col_defs <- function(data) {
     }
   }) |>
     setNames(names(data))
-}
+}

inst/shiny/functions/mapping_selectize_inputs.R

@@ -51,4 +51,4 @@ update_selectize_inputs <- function(session, input_ids, column_names, manual_uni
     session, "select_Grouping_Variables",
     choices = setdiff(column_names, desired_order)
   )
-}
+}

inst/shiny/modules/column_mapping.R

@@ -355,4 +355,4 @@ column_mapping_server <- function(id, data, manual_units, on_submit) {
       grouping_variables = grouping_variables
     )
   })
-}
+}

inst/shiny/modules/tab_data.R

@@ -184,4 +184,4 @@ tab_data_server <- function(id) {
       grouping_variables = grouping_variables
     )
   })
-}
+}

tests/testthat/test-apply_labels.R

@@ -26,4 +26,4 @@ describe("apply_labels", {
     expect_equal(attr(data$COL1, "label"), "COL1")
     expect_equal(attr(data$COL2, "label"), "COL2")
   })
-})
+})

tests/testthat/test-generate_col_defs.R

@@ -20,4 +20,4 @@ describe("generate_col_defs", {
     col_defs <- generate_col_defs(data)
     expect_type(col_defs, "list")
   })
-})
+})