tests/testthat/test-pin-dataframe.R

In javierluraschi/pins: Pin, Discover and Share Resources

context("pin dataframe")

test_that("can pin() data frame", {
  roundtrip <- pin(iris, "iris")

  expect_equal(as.data.frame(roundtrip), iris)
  expect_equal(as.data.frame(pin_get("iris")), iris)
})

test_that("can sanitize data frame names", {
  name <- "___sdf ds32___42342     dsf dsf dsfds____"
  expect_equal(
    pin_dataframe_sanitize(name),
    "sdf-ds32-42342-dsf-dsf-dsfds"
  )

  expect_equal(
    pin_dataframe_sanitize("iris"),
    "iris-pin"
  )
})