Nothing
#' 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
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.