Make function hai_hyperbolic_augment()

[spsanderson]

hai_hyperbolic_augment <- function(.data
                               , .value
                               , .names = "auto"
                               , .scale_type = c("sin","cos","tan","all")
                               ){
  
  column_expr <- rlang::enquo(.value)
  
  if(rlang::quo_is_missing(column_expr)) stop(call. = FALSE, "hyperbolic_augment(.value) is missing.")
  
  col_nms <- names(tidyselect::eval_select(rlang::enquo(.value), .data))
  
  make_call <- function(col, scale_type){
    rlang::call2(
      "hai_hyperbolic_vec",
      x             = rlang::sym(col)
      , .scale_type = scale_type
      #, .ns = "healthyR.ai"
    )
  }
  
  grid <- expand.grid(
    col                = col_nms
    , scale_type       = .scale_type
    , stringsAsFactors = FALSE
  )
  
  calls <- purrr::pmap(.l = list(grid$col, grid$scale_type), make_call)
  
  if(any(.names == "auto")) {
    newname <- paste0(grid$col, "_", grid$scale_type)
  } else {
    newname <- as.list(.names)
  }
  
  calls <- purrr::set_names(calls, newname)
  
  ret <- tibble::as_tibble(dplyr::mutate(.data, !!!calls))
  
  return(ret)
    
}