tests/testthat/test-read.file.R

In mosaic: Project MOSAIC Statistics and Mathematics Teaching Utilities

# context("read.file()")

testthat::test_that("read.file works", {
  
  testcase <- structure(
    list(
      Cond = 
        c("Head", "Head", "Head", "Head", "Head",
          "Head", "Head", "Head", "Head", "Head", "Head", "Head", "Head",
          "Head", "Head", "Head", "Head", "Head", "Head", "Tail", "Tail",
          "Tail", "Tail", "Tail", "Tail", "Tail", "Tail", "Tail", "Tail",
          "Tail", "Tail", "Tail", "Tail", "Tail"), 
      Velocity = 
        c(149.3,
          149.9, 153.2, 154.1, 155.9, 154.1, 156.3, 151.7, 154.1, 160.2,
          157.3, 157.1, 158.8, 160.9, 156.7, 155.8, 154.5, 155.6, 155.3,
          157.4, 155.7, 154.7, 156.3, 156.4, 155.7, 155.7, 155.4, 153.8,
          154.8, 156, 153.5, 154.5, 152.1, 153.6), 
      Angle = 
        c(50.2, 50,
          49.5, 50.1, 50, 49.1, 49.9, 50, 50.2, 50.8, 50.6, 49.1, 49.6,
          50.9, 50.6, 49.4, 50.2, 50.9, 50.7, 49.4, 49.1, 50.6, 48.3, 49.2,
          49, 50.3, 49.6, 50.1, 49.8, 51, 49.5, 49.9, 51, 50.8), 
      BallWt = 
        c(141.1,
          140.33, 140.099, 140.099, 140.099, 140.98, 140.98, 140.98, 140.099,
          140.567, 140.98, 140.567, 140.98, 140.567, 140.98, 141.855, 141.855,
          140.98, 140.98, 140.98, 140.099, 140.98, 140.099, 140.98, 140.099,
          140.98, 140.099, 140.98, 140.98, 140.099, 140.98, 140.099, 140.099,
          141.855), 
      BallDia = 
        c(2.84, 2.84, 2.81, 2.81, 2.81, 2.86, 2.86,
          2.86, 2.81, 2.88, 2.86, 2.88, 2.86, 2.88, 2.86, 2.83, 2.83, 2.86,
          2.86, 2.86, 2.81, 2.86, 2.81, 2.86, 2.81, 2.86, 2.81, 2.86, 2.86,
          2.81, 2.86, 2.81, 2.81, 2.83), 
      Dist = 
        c(329.3, 351.5, 343.9,
          356.8, 350.1, 355.8, 356.8, 346.8, 338.5, 364.4, 349.8, 358.8,
          359.3, 373.8, 349.6, 347.6, 340.1, 339.1, 352.6, 371.1, 364.6,
          361.1, 356.8, 369.2, 346.3, 363.3, 349.9, 349.5, 363.4, 348.5,
          351.5, 344.8, 357.1, 352.4)), 
    class = "data.frame", 
    row.names = c(NA, -34L))
  
  
  Dome <- read.file("http://www.mosaic-web.org/go/datasets/Dome.csv")
  expect_equal(ignore_attr = TRUE, testcase, Dome)
})