tests/testthat/helper-preload.R

In immunomind/immunarch: Bioinformatics Analysis of T-Cell and B-Cell Immune Repertoires

apply_DF_DT <- function(df_data, dt_data, .fun, ...) {
  res1 <- .fun(df_data, ...)
  res2 <- .fun(dt_data, ...)
  list(df = res1, dt = res2)
}

vis_results <- function(res_list, ...) {
  p_df <- vis(res_list$df, ...)
  p_dt <- vis(res_list$dt, ...)
  list(df = p_df, dt = p_dt)
}

check_for_mutation <- function(.frame, .table) {
  expect_equal(lapply(.frame, as.data.table), .table)
}

# add pretfix
ap <- function(.name, .prefix) {
  paste0(.prefix, .name)
}

add_mock_sample <- function(.immdata, .sample_name, .meta = list(), .empty = FALSE) {
  if (.empty) {
    # copy only column headers
    .immdata$data[[.sample_name]] <- .immdata$data[[1]][0, ]
  } else {
    # copy dataframe of 1st sample to the new sample
    .immdata$data[[.sample_name]] <- .immdata$data[[1]]
  }

  # .meta must be a named list containing metadata row (full or partial) for the sample
  .meta[["Sample"]] <- .sample_name
  .immdata$meta %<>% bind_rows(as.data.frame(.meta))

  return(.immdata)
}

data(immdata)
frame_data <- immdata$data
table_data <- lapply(frame_data, as.data.table)