R/design_to_tibble.R

In ggDoE: Modern Graphs for Design of Experiments with 'ggplot2'

#' Convert an object of class `design` to `tibble`
#'
#' @param design An object of class `design`
#'
#' @return Converted design to tibble
#' @export
#'
#' @examples
#' dat <- DoE.base::fac.design(factor.names = list(temp = c(16,32),
#' time = c(4,12)),replications = 5, randomize = FALSE)
#' Thk <- c(116.1, 106.7, 116.5, 123.2, 116.9, 107.5, 115.5, 125.1, 112.6, 105.9,
#' 119.2, 124.5, 118.7, 107.1, 114.7, 124, 114.9, 106.5, 118.3, 124.7)
#' design <- DoE.base::add.response(dat, Thk)
#' design
#' design_to_tibble(design)
design_to_tibble <- function(design){
  if(!inherits(design,'design')){
    stop("Design should be of class 'design'")
  }
  as_double_factor <- function(x) {as.numeric(levels(x))[x]}

  dat <- lapply(design, function(column) {
    if (is.factor(column)) {
      return(as_double_factor(column))
    } else {
      return(column)
    }
  })
  return(tibble::as_tibble(dat))
}