R/container-type2.R

In DavisVaughan/rray: Simple Arrays

#' Find the container type of a pair of vectors
#'
#' `vec_ptype_container2()` finds the common container type of two vectors.
#' Like `vec_ptype2()`, `vec_ptype_container2()` powers coercion but should
#' usually not be called directly. Instead, [vec_ptype_container_common()]
#' should be used.
#'
#' @param x,y Vectors.
#'
#' @examples
#'
#' vec_ptype_container2(1, 2L)
#'
#' vec_ptype_container2(1, rray(2L))
#'
#' @keywords internal
#' @noRd
vec_ptype_container2 <- function(x, y) {

  if (is.null(x)) {
    return(vec_ptype_container(y))
  }

  if (is.null(y)) {
    return(vec_ptype_container(x))
  }

  UseMethod("vec_ptype_container2", y)
}

# ------------------------------------------------------------------------------

vec_ptype_container2.default <- function(x, y) {
  stop_incompatible_type(x, y)
}

# ------------------------------------------------------------------------------

vec_ptype_container2.logical <- function(x, y) {
  UseMethod("vec_ptype_container2.logical")
}

vec_ptype_container2.logical.default <- function(x, y) {
  stop_incompatible_type(x, y)
}

vec_ptype_container2.logical.logical <- function(x, y) {
  logical()
}

vec_ptype_container2.logical.double <- vec_ptype_container2.logical.logical

vec_ptype_container2.logical.integer <- vec_ptype_container2.logical.logical

vec_ptype_container2.logical.character <- vec_ptype_container2.logical.logical

vec_ptype_container2.logical.vctrs_rray <- function(x, y) {
  shared$empty_rray_lgl
}

# ------------------------------------------------------------------------------

vec_ptype_container2.integer <- function(x, y) {
  UseMethod("vec_ptype_container2.integer")
}

vec_ptype_container2.integer.default <- function(x, y) {
  stop_incompatible_type(x, y)
}

vec_ptype_container2.integer.logical <- vec_ptype_container2.logical.logical

vec_ptype_container2.integer.double <- vec_ptype_container2.logical.logical

vec_ptype_container2.integer.integer <- vec_ptype_container2.logical.logical

vec_ptype_container2.integer.character <- vec_ptype_container2.logical.logical

vec_ptype_container2.integer.vctrs_rray <- vec_ptype_container2.logical.vctrs_rray

# ------------------------------------------------------------------------------

vec_ptype_container2.double <- function(x, y) {
  UseMethod("vec_ptype_container2.double")
}

vec_ptype_container2.double.default <- function(x, y) {
  stop_incompatible_type(x, y)
}

vec_ptype_container2.double.logical <- vec_ptype_container2.logical.logical

vec_ptype_container2.double.double <- vec_ptype_container2.logical.logical

vec_ptype_container2.double.integer <- vec_ptype_container2.logical.logical

vec_ptype_container2.double.character <- vec_ptype_container2.logical.logical

vec_ptype_container2.double.vctrs_rray <- vec_ptype_container2.logical.vctrs_rray

# ------------------------------------------------------------------------------

vec_ptype_container2.character <- function(x, y) {
  UseMethod("vec_ptype_container2.character")
}

vec_ptype_container2.character.default <- function(x, y) {
  stop_incompatible_type(x, y)
}

vec_ptype_container2.character.logical <- vec_ptype_container2.logical.logical

vec_ptype_container2.character.double <- vec_ptype_container2.logical.logical

vec_ptype_container2.character.integer <- vec_ptype_container2.logical.logical

vec_ptype_container2.character.character <- vec_ptype_container2.logical.logical

vec_ptype_container2.character.vctrs_rray <- vec_ptype_container2.logical.vctrs_rray

# ------------------------------------------------------------------------------

vec_ptype_container2.vctrs_rray <- function(x, y) {
  UseMethod("vec_ptype_container2.vctrs_rray")
}

vec_ptype_container2.vctrs_rray.default <- function(x, y) {
  stop_incompatible_type(x, y)
}

vec_ptype_container2.vctrs_rray.logical <- vec_ptype_container2.logical.vctrs_rray

vec_ptype_container2.vctrs_rray.double <- vec_ptype_container2.logical.vctrs_rray

vec_ptype_container2.vctrs_rray.integer <- vec_ptype_container2.logical.vctrs_rray

vec_ptype_container2.vctrs_rray.character <- vec_ptype_container2.logical.vctrs_rray

vec_ptype_container2.vctrs_rray.vctrs_rray <- vec_ptype_container2.logical.vctrs_rray