Apply suggestions from code review

Co-authored-by: Aleksander Chlebowski <[email protected]> Signed-off-by: Dawid Kałędkowski <[email protected]>
insightsengineering · Dec 7, 2023 · d93853d · d93853d
1 parent 65fdbf3
commit d93853d
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/data_extract_module.R b/R/data_extract_module.R
@@ -659,7 +659,7 @@ data_extract_multiple_srv <- function(data_extract, datasets, ...) {
 #' @rdname data_extract_multiple_srv
 #' @export
 data_extract_multiple_srv.reactive <- function(data_extract, datasets, ...) {
-  # convert teal_data to list of reactives
+  # convert reactive containing teal_data to list of reactives with one dataset each
   datasets_new <- convert_teal_data(datasets)
   data_extract_multiple_srv.list(data_extract, datasets_new, ...)
 }

diff --git a/R/resolve.R b/R/resolve.R
@@ -175,7 +175,7 @@ resolve.default <- function(x, datasets, keys) {
 #'
 #' @param x (`function`) Function that is applied on dataset.
 #' It must take only a single argument "data" and return character vector with columns / values.
-#' @param ds (`data.frame`) dataset on which the function is applied to.
+#' @param ds (`data.frame`)
 #' @param is_value_choices (`logical`) Determines which check of the returned value will be applied.
 #'
 #' @return Character vector - result of calling function `x` on dataset `ds`.