R/relocate_columns.R

In tsostarics/stimulist:

#' Relocate columns in completed experiment
#'
#' This is just a wrapper around dplyr::relocate to manipulate the ordering
#' of columns in the complete_experiment entry. Right now it doesn't allow for
#' the use of .before and .after, but I'll fix that later.
#'
#' @param design Experiment design
#' @param ... Series of unquoted columns to move to the far left
#'
#' @export
relocate_columns <- function(design, ...) {
  if (!"complete_experiment" %in% names(design)) {
    stop("Complete experiment not found, please run fill_experiment() first")
  }
  dots <- vapply(enexprs(...), as.character, "char")
  design[["complete_experiment"]] <-
    dplyr::relocate(
      design[["complete_experiment"]],
      tidyselect::all_of(dots)
    )
  design
}