tests/testthat/test-cat_categorical-coersion.R

In mabafaba/categorical: Representing and Manipulating categorical data in R

context("casting / coersion")
# for now, casting alternated vectors is not supported.

# testthat::test_that("coersion - character --> categorical",{
#
#
#
  mydays <- categorical(c(1,2,1,5,6,3,7),
                        levels=1:7,
                        alternatives = list(
                          labels_english = c('Monday','Tuesday','Wednesday','Thursday','Friday','Saturday','Sunday'),
                          labels_german = c('Montag','Dienstag','Mittwoch','Donnerstag','Freitag','Samstag','Sonntag'))
  )
  mydays_en<-alternate(mydays,'labels_english')

#

#   expect_true(all(
#     c(mydays_en[c(1,2)],monday_tuesday_char)==c(mydays_en[c(1,2)],monday_tuesday_char))
#     )
#
#   expect_true(all(
#     c(mydays_en[c(1,2)],monday_tuesday_char)==c(mydays_en[c(1,2)],monday_tuesday_char))
#   )
#
#   rhs<-c(monday_tuesday_char,monday_tuesday_char)
#   lhs<-mydays_en[c(1,2,1,2)]
#   expect_true(all(
#     lhs == rhs
#   ))
#   expect_true(all(
#     rhs == lhs
#   )
# )
#   x<-c('Monday','Tuesday')
#
#   expect_error(categorical:::vec_cast.cat_categorical.character(x,mydays_en))
#   # maybe later:
#   # expect_equal(as.character(levels(coerced)),as.character(1:7))
# })