View source: R/vec_classified.R
vec_ptype2.classified.classified | R Documentation |
Find common type for classified, classified.
## S3 method for class 'classified.classified'
vec_ptype2(x, y, ...)
x |
classified |
y |
classified |
... |
ignored |
library(vctrs)
library(magrittr)
c1 <- classified('a', levels = c('a','b')) %>% structure(label = 'c1')
c2 <- classified('b', levels = c('a','b')) %>% structure(label = 'c2')
c3 <- classified('c', levels = c('a','c')) %>% structure(label = 'c3')
f1 <- factor('a', levels = c('a','b')) %>% structure(label = 'f1')
f2 <- factor('b', levels = c('a','b')) %>% structure(label = 'f2')
f3 <- factor('c', levels = c('a','c')) %>% structure(label = 'f3')
vec_c(c1, c1) # combined data, same codelist
vec_c(c1, c2) # combined data, same codelist
vec_c(c2, c1) # reversed data, same codelist
vec_c(c1, c3) # combined data, combined codelist
vec_c(c3, c1) # reversed data, revised codelist
vec_c(c1, f1) # matching levels: return classified
vec_c(f1, c1) # matching levels: return classified
vec_c(c1, f2) # matching levels: return classified
vec_c(f2, c1) # matching levels: return classified
vec_c(c1, f3) # mismatched levels: return factor
vec_c(f3, c1) # mismatched levels: return factor
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.