Register data frames?

[ddsjoberg]

We could include information on how that df was filtered. Anything else? How would this information then be passed and stored in the ARD?

Mock function that does not work :)

register_data <- function(data, 
                                 label, 
                                 filter, 
                                 data_name = rlang::caller_arg(data)) {
  

  if (!rlang::is_missing(filter)) {
    data <- data |> dplyr::filter({{ filter }})
  }
  filter_expr <- rlang::enexpr(filter)  

  attr(data, "ARD Data Name") <- data_name
  attr(data, "ARD label") <- label
  attr(data, "ARD filter expression") <- filter_expr
  
  class(data) <- c("card_registered", class(data))
  
  data
}

register_data(
  data = cards::ADSL, 
  label = "Safety Pop", 
  filter = SAFFL == "Y", 
  data_name = "ADSL"
)

[ddsjoberg]

We also need a function to add the registered data frames information to the ARD as a new column. It should accept multiple data frames, e.g. add_registered_ard_data().

add_registered_ard_data <- function(x, ...) {
  dots <- rlang::dots_list()

   # add check that all datasets are registered, if not, just return x 

 data_info_list <-  map(dots, .registered_data_info_as_list)

  dplyr::mutate(x, data = list(data_info_list))
}

.registered_data_info_as_list <- function(x) {
  list(
    label = attr(x, "ARD label")
    filter_expr =  attr(x, "ARD filter expression")
  ) |>
    stats::setNames(attr(x, "Data Name"))
}

[ddsjoberg]

Perhaps for the print method, we print it with '<< ADSL: AGE > 50 >>'