hablar
Non-Astonishing Results in R

Package index
Search the hablar package
Vignettes
Functions
126
Source code
19
Man pages
19
Home
/
CRAN
/
hablar
/
tests/testthat/test.retype.R

tests/testthat/test.retype.R
In hablar: Non-Astonishing Results in R 

library(testthat)
library(hablar)

context("retype")
test_that("vectors", {
  expect_equal(retype(as.numeric(c(3.56))), as.numeric(c(3.56)))
  expect_equal(retype(as.numeric(c(3))), as.integer(c(3)))
  expect_equal(retype(as.numeric(c(NA, NA))), as.numeric(c(NA, NA)))

  expect_equal(retype(as.logical(c(T))), as.integer(c(1)))
  expect_equal(retype(as.logical(c(NA, F))), as.integer(c(NA, 0)))

  expect_equal(retype(as.integer(c(NA, NA))), as.integer(c(NA, NA)))
  expect_equal(retype(as.integer(c(1, NA, 3))), as.integer(c(1, NA, 3)))

  expect_equal(retype(as.character(c("a"))), as.character(c("a")))
  expect_equal(retype(as.character(c(NA, NA))), as.character(c(NA, NA)))
  expect_equal(retype(as.character(c("1", "2", NA))), as.integer(c(1, 2, NA)))
  expect_equal(retype(as.character(c("1", "2,0", NA))), as.character(c("1", "2,0", NA)))
  expect_equal(retype(as.character(c("1", "2.5", NA))), as.numeric(c(1, 2.5, NA)))
  expect_equal(retype(as.character(c("2018-01-25", "2018-01-27", NA))), as.Date(c("2018-01-25", "2018-01-27", NA)))
  expect_equal(retype(as.character(c("2018-10-10 11:30:20 CEST", "2018-10-10 11:30:20 CEST", NA))), 
               as.POSIXct(c("2018-10-10 11:30:20 CEST", "2018-10-10 11:30:20 CEST", NA)))
  expect_equal(retype(as.character(c("2018-10-10 11:30:20 CEST", "2018-10-10 11:30:25 CEST", NA))), as.POSIXct(c("2018-10-10 11:30:20 CEST", "2018-10-10 11:30:25 CEST", NA)))

  expect_equal(retype(as.factor(c("a"))), as.character(c("a")))
  expect_equal(retype(as.factor(c(NA, NA))), as.character(c(NA, NA)))
  expect_equal(retype(as.factor(c("3", "2", NA))), as.integer(c(3, 2, NA)))
  expect_equal(retype(as.factor(c("1", "7,0", NA))), as.character(c("1", "7,0", NA)))
  expect_equal(retype(as.factor(c("1", "2.5", NA))), as.numeric(c(1, 2.5, NA)))
  expect_equal(retype(as.factor(c("1", "2,5", NA))), as.character(c("1", "2,5", NA)))
  expect_equal(retype(as.factor(c("2018-01-25", "2018-01-27", NA))), as.Date(c("2018-01-25", "2018-01-27", NA)))
  expect_equal(retype(as.factor(c("2018-10-10 11:30:20 CEST", "2018-10-10 11:30:20 CEST", NA))), as.POSIXct(c("2018-10-10 11:30:20 CEST", "2018-10-10 11:30:20 CEST", NA)))
  expect_equal(retype(as.factor(c("2018-10-10 11:30:20 CEST", "2018-10-10 11:30:25 CEST", NA))), as.POSIXct(c("2018-10-10 11:30:20 CEST", "2018-10-10 11:30:25 CEST", NA)))

  expect_equal(retype(list("a", "b")), list("a", "b"))
})



test_that("data.frame", {
  df <- tibble(a = as.numeric(c(1, Inf, 3, 2, 4)),
               b = as.numeric(c(1, 7, 3, 2, 4)),
               c = as.numeric(c(1, NA, 3, 2, 4)),
               d = as.numeric(c(Inf, Inf, Inf, Inf, Inf)),
               e = as.numeric(c(3.5, 3.7, NaN, Inf, Inf)),

               f = as.integer(c(1, 2, 3, NA, 5)),

               g = as.numeric(c(NA, NA, NA, NA, NA)),
               h = as.integer(c(NA, NA, NA, NA, NA)),
               i = as.Date(c(NA, NA, NA, NA, NA)),
               j = as.POSIXct(c(NA, NA, NA, NA, NA)),
               k = as.factor(c(NA, NA, NA, NA, NA)),

               l = as.factor(c("2018-02-01", "2018-04-15", NA, NA, "2016-05-15")),
               m = as.factor(c(1, 2, 3, 4, 5)),
               n = as.factor(c("a", "b", NA, "q", NA)),

               o = as.character(c("2018-02-01", "2018-04-15", NA, NA, "2016-05-15")),
               p = as.character(c("2018-02-01 01:00", "2018-04-15 01:00", NA, NA, "2016-05-15 01:00")),
               q = as.character(c("2018-02-01 01:00", "2018-04-15 16:56", NA, NA, "2016-05-15 17:10")),
               r = as.character(c("2018-02-01 01:00 CEST", "2018-04-15 16:56 CEST", NA, NA, "2016-05-15 17:10 CEST")),
               s = as.character(c("2018-02-01 01:00 CEST", "2018-04-15 16:56 CEST", NA, NA, "2016-05-15 17:10 CEST")),

               t = as.POSIXct(c("2018-02-01 01:00", "2018-04-15 01:00", NA, NA, "2016-05-15 01:00")),
               u = as.POSIXct(c("2018-02-01 01:00 CEST", "2018-04-15 16:56 CEST", NA, NA, "2016-05-15 17:10 CEST")),

               v = as.logical(c(T, T, NA, F, T)),
               w = as.character(c("1", "1.78", NA, "NaN", "1")))

  expect_equal(retype(df), tibble(a = as.numeric(c(1, Inf, 3, 2, 4)),
                                      b = as.integer(c(1, 7, 3, 2, 4)),
                                      c = as.integer(c(1, NA, 3, 2, 4)),
                                      d = as.numeric(c(Inf, Inf, Inf, Inf, Inf)),
                                      e = as.numeric(c(3.5, 3.7, NaN, Inf, Inf)),

                                      f = as.integer(c(1, 2, 3, NA, 5)),

                                      g = as.numeric(c(NA, NA, NA, NA, NA)),
                                      h = as.integer(c(NA, NA, NA, NA, NA)),
                                      i = as.Date(c(NA, NA, NA, NA, NA)),
                                      j = as.POSIXct(c(NA, NA, NA, NA, NA)),
                                      k = as.character(c(NA, NA, NA, NA, NA)),

                                      l = as.Date(c("2018-02-01", "2018-04-15", NA, NA, "2016-05-15")),
                                      m = as.integer(c(1, 2, 3, 4, 5)),
                                      n = as.character(c("a", "b", NA, "q", NA)),

                                      o = as.Date(c("2018-02-01", "2018-04-15", NA, NA, "2016-05-15")),
                                      p = as.POSIXct(c("2018-02-01 01:00", "2018-04-15 01:00", NA, NA, "2016-05-15 01:00")),
                                      q = as.POSIXct(c("2018-02-01 01:00", "2018-04-15 16:56", NA, NA, "2016-05-15 17:10")),
                                      r = as.POSIXct(c("2018-02-01 01:00 CEST", "2018-04-15 16:56 CEST", NA, NA, "2016-05-15 17:10 CEST")),
                                      s = as.POSIXct(c("2018-02-01 01:00 CEST", "2018-04-15 16:56 CEST", NA, NA, "2016-05-15 17:10 CEST")),

                                      t = as.POSIXct(c("2018-02-01 01:00", "2018-04-15 01:00", NA, NA, "2016-05-15 01:00")),
                                      u = as.POSIXct(c("2018-02-01 01:00 CEST", "2018-04-15 16:56 CEST", NA, NA, "2016-05-15 17:10 CEST")),

                                      v = as.integer(c(1, 1, NA, 0, 1)),
                                      w = as.numeric(c(1, 1.78, NA, NaN, 1))))

  expect_equal(retype(df, p), df %>% mutate_at(vars(p), ~retype(.)))
  expect_equal(retype(df, p), df %>% mutate_at(vars(p), ~as.POSIXct(.)))
  expect_equal(retype(df, -t), tibble(a = as.numeric(c(1, Inf, 3, 2, 4)),
                                          b = as.integer(c(1, 7, 3, 2, 4)),
                                          c = as.integer(c(1, NA, 3, 2, 4)),
                                          d = as.numeric(c(Inf, Inf, Inf, Inf, Inf)),
                                          e = as.numeric(c(3.5, 3.7, NaN, Inf, Inf)),

                                          f = as.integer(c(1, 2, 3, NA, 5)),

                                          g = as.numeric(c(NA, NA, NA, NA, NA)),
                                          h = as.integer(c(NA, NA, NA, NA, NA)),
                                          i = as.Date(c(NA, NA, NA, NA, NA)),
                                          j = as.POSIXct(c(NA, NA, NA, NA, NA)),
                                          k = as.character(c(NA, NA, NA, NA, NA)),

                                          l = as.Date(c("2018-02-01", "2018-04-15", NA, NA, "2016-05-15")),
                                          m = as.integer(c(1, 2, 3, 4, 5)),
                                          n = as.character(c("a", "b", NA, "q", NA)),

                                          o = as.Date(c("2018-02-01", "2018-04-15", NA, NA, "2016-05-15")),
                                          p = as.POSIXct(c("2018-02-01 01:00", "2018-04-15 01:00", NA, NA, "2016-05-15 01:00")),
                                          q = as.POSIXct(c("2018-02-01 01:00", "2018-04-15 16:56", NA, NA, "2016-05-15 17:10")),
                                          r = as.POSIXct(c("2018-02-01 01:00 CEST", "2018-04-15 16:56 CEST", NA, NA, "2016-05-15 17:10 CEST")),
                                          s = as.POSIXct(c("2018-02-01 01:00 CEST", "2018-04-15 16:56 CEST", NA, NA, "2016-05-15 17:10 CEST")),

                                          t = as.POSIXct(c("2018-02-01 01:00", "2018-04-15 01:00", NA, NA, "2016-05-15 01:00")),
                                          u = as.POSIXct(c("2018-02-01 01:00 CEST", "2018-04-15 16:56 CEST", NA, NA, "2016-05-15 17:10 CEST")),

                                          v = as.integer(c(1, 1, NA, 0, 1)),
                                          w = as.numeric(c(1, 1.78, NA, NaN, 1))))
})

Try the hablar package in your browser

Any scripts or data that you put into this service are public.

hablar documentation built on March 31, 2023, 11:54 p.m.

R Package Documentation

rdrr.io home R language documentation Run R code online

Browse R Packages

CRAN packages Bioconductor packages R-Forge packages GitHub packages

We want your feedback!

Note that we can't provide technical support on individual packages. You should contact the package authors for that.
GitHub issue tracker
ian@mutexlabs.com
Personal blog

 
Embedding an R snippet on your website

Add the following code to your website.

For more information on customizing the embed code, read Embedding Snippets.

Close