tests/testthat/test_dtpaste.R

In MilesMcBain/datapasta: R Tools for Data Copy-Pasta

context("test data.table paste")
skip_msg <- "System clipboard is not available - skipping test."
is_clipr_available <- clipr::clipr_available()
is_RStudio_session <- interactive() & rstudioapi::isAvailable()

test_that("Test data.test text wrapping works", {
  skip_if_not(is_clipr_available, skip_msg)
  skip_on_cran()
  skip_if_not(is_RStudio_session)
  expect_equal({
    clipr::write_clip(content = readr::read_lines(file = "./route_length.txt"))
    dfdt_construct(class = "data.table")
  },
  {
    "data.table::data.table(\n               Route = c(40010L,40015L,40020L,\n                         40025L,40030L,40035L,40040L,40045L,40050L,40055L,\n                         40060L,40065L,40070L,40075L,40080L,40085L,40090L,\n                         40092L,40095L,40100L,40105L,40110L,40115L,40120L,\n                         40125L,40130L,40135L,40140L,40145L,40150L,41010L,\n                         41015L,41020L,41025L,41030L,41035L,41040L,41045L,\n                         41050L,41055L,41060L,41065L,41070L,41075L,\n                         41080L,41085L,41090L,41095L,41100L,41105L,41110L,\n                         41115L,41120L,41125L,41130L,41135L,41140L,41145L,\n                         41150L,41155L,41160L),\n  Approximate.length = c(2000L,500L,2000L,500L,\n                         500L,500L,1500L,2000L,1500L,500L,2000L,500L,\n                         4000L,500L,1000L,500L,1000L,2000L,2500L,500L,1000L,\n                         500L,3500L,3500L,500L,6000L,500L,3000L,1000L,\n                         2000L,2000L,1000L,3000L,500L,5500L,1000L,3500L,\n                         3500L,500L,1000L,500L,1000L,500L,2000L,1500L,\n                         500L,3500L,500L,500L,1500L,1000L,500L,1000L,2000L,\n                         1000L,1000L,500L,500L,2000L,500L,2000L)\n)"
  })
})

test_that("A data.table can be parsed correctly", {
  skip_if_not(is_clipr_available, skip_msg)
  skip_on_cran()
  skip_if_not(is_RStudio_session)
  expect_equal({
    clipr::write_clip(content = readr::read_lines(file = "./route_length.txt"))
    eval(parse(text = dfdt_construct(class = "data.table")))
  },
  {
    data.table::data.table(
      Route = c(40010, 40015, 40020, 40025, 40030, 40035, 40040,
                40045, 40050, 40055, 40060, 40065, 40070, 40075,
                40080, 40085, 40090, 40092, 40095, 40100, 40105,
                40110, 40115, 40120, 40125, 40130, 40135, 40140,
                40145, 40150, 41010, 41015, 41020, 41025, 41030, 41035,
                41040, 41045, 41050, 41055, 41060, 41065, 41070,
                41075, 41080, 41085, 41090, 41095, 41100, 41105,
                41110, 41115, 41120, 41125, 41130, 41135, 41140,
                41145, 41150, 41155, 41160),
      Approximate.length = c(2000, 500, 2000, 500, 500, 500, 1500, 2000, 1500,
                             500, 2000, 500, 4000, 500, 1000, 500, 1000, 2000,
                             2500, 500, 1000, 500, 3500, 3500, 500, 6000, 500,
                             3000, 1000, 2000, 2000, 1000, 3000, 500, 5500,
                             1000, 3500, 3500, 500, 1000, 500, 1000, 500, 2000,
                             1500, 500, 3500, 500, 500, 1500, 1000, 500, 1000, 2000,
                             1000, 1000, 500, 500, 2000, 500, 2000)
    )
  })
})

test_that("A pasted multi-type data.table is rendered and parsed correctly", {
  skip_if_not(is_clipr_available, skip_msg)
  skip_on_cran()
  skip_if_not(is_RStudio_session)
  expect_equal({
    clipr::write_clip(content = readr::read_lines(file = "./brisbane_weather.txt"))
    eval(parse(text = dfdt_construct(class = "data.table")))
  },
  {
    data.table::data.table(
               Precis.Icon = c("Possible shower.", "Mostly sunny.",
                               "Shower or two. Possible storm.", "Possible shower.",
                               "Shower or two. Possible storm.", "Possible shower or storm.",
                               "Possible shower or storm.", "Mostly sunny.", "Possible shower.",
                               "Possible shower.", "Mostly sunny."),
               Location = c("Brisbane", "Brisbane Airport", "Beaudesert", "Chermside",
                            "Gatton", "Ipswich", "Logan Central", "Manly",
                            "Mount Gravatt", "Oxley", "Redcliffe"),
               Min = c(17, 16, 14, 16, 14, 14, 16, 18, 16, 15, 18),
               Max = c(29, 28, 30, 30, 32, 31, 30, 26, 29, 30, 28)
    )
  })
})

test_that("stringsAsFactors=FALSE is not added", {
  skip_if_not(is_clipr_available, skip_msg)
  skip_on_cran()
  skip_if_not(is_RStudio_session)
  expect_equal({
    clipr::write_clip(content = c("char,int", "a,1", "b,3"))
    eval(parse(text = dfdt_construct(class = "data.table")))
  },
  {
    data.table::data.table(
               char = c("a", "b"),
               int = c(1, 3)
    )
  })
})

test_that("data.table contruct recognises raw data with no column headings and adds dummy headers", {
  skip_if_not(is_clipr_available, skip_msg)
  skip_on_cran()
  skip_if_not(is_RStudio_session)
  expect_equal(
    { data.table::data.table(
                 V1 = c(52.4, 53.4, 86, 73, 79, 73),
                 V2 = c(46.9, 52, 86.6, 73.3, 79.5, 73.5),
                 V3 = c(33.7, 51.8, 84, 71, 77.5, 73.6),
                 V4 = c("A", "A", "B", "B", "B", "C"))
    },
    { clipr::write_clip(readr::read_lines("./just_data.txt"))
      eval(parse(text = dfdt_construct(class = "data.table")))}
  )
})

test_that("Columns with non-valid names can be parsed as a table, with names surrounded by backticks and check.names FALSE", {
  skip_if_not(is_clipr_available, skip_msg)
  skip_on_cran()
  skip_if_not(is_RStudio_session)
  expect_equal(
    {clipr::write_clip(readr::read_lines(file = "./non_valid_colnames.txt"))
      eval(parse(text = dfdt_construct(class = "data.table")))},
    {
      data.table::data.table(stringsAsFactors=FALSE,
                 check.names=FALSE,
                 `!!` = c(1L),
                 `2015` = c("b"),
                 `%` = c(3L),
                 `TRUE` = c("D")
      )
    }
  )
})

test_that("Input tibbles with columns with non-valid names can be parsed as a data.frame, with names surrounded by backticks and check.names FALSE", {
  expect_equal(
    {eval( parse(text = dfdt_construct(tibble::tribble(
      ~`!!`, ~`2015`, ~`%`, ~`TRUE`,
      1L,     "b",   3L,   "D"
    ), class = "data.table")) )},
    {
      data.table::data.table(
                 check.names=FALSE,
                 `!!` = c(1L),
                 `2015` = c("b"),
                 `%` = c(3L),
                 `TRUE` = c("D")
      )
    }
  )
})