tests_tutorial_01.R

library(testthat)
library(digest)

test_revision <- function(){
    test_that('Solution is incorrect', {
        expect_equal(digest(A), 'dbc09cba9fe2583fb01d63c70e1555a8') # we hid the answer to the test here so you can't see it, but we can still run the test
        expect_equal(digest(B), 'db8e490a925a60e62212cefc7674ca02') # we hid the answer to the test here so you can't see it, but we can still run the test)
        expect_equal(digest(C), '0aee9b78301d7ec8998971363be87c03') # we hid the answer to the test here so you can't see it, but we can still run the test
        expect_equal(digest(D), '5e338704a8e069ebd8b38ca71991cf94') # we hid the answer to the test here so you can't see it, but we can still run the test
        expect_equal(digest(E), '6717f2823d3202449301145073ab8719') # we hid the answer to the test here so you can't see it, but we can still run the test
        expect_equal(digest(F), 'e5b57f323c7b3719bbaaf9f96b260d39') # we hid the answer to the test here so you can't see it, but we can still run the test
    })
print("Success!")
    }

test_1.1 <- function(){
    test_that('Solution is incorrect', {
        expect_equal(digest(answer1), '75f1160e72554f4270c809f041c7a776') # we hid the answer to the test here so you can't see it, but we can still run the test
        })
print("Success!")
    }

test_1.2 <- function(){
    test_that('Solution is incorrect', {
        expect_equal(digest(answer2), 'd2a90307aac5ae8d0ef58e2fe730d38b') # we hid the answer to the test here so you can't see it, but we can still run the test
        })
print("Success!")
    }

test_1.3 <- function(){
    test_that('Solution is incorrect', {
        expect_equal(digest(answer3), '475bf9280aab63a82af60791302736f6') # we hid the answer to the test here so you can't see it, but we can still run the test
        })
print("Success!")
    }

test_1.4 <- function(){
    test_that('The tidyverse package needs to be loaded.', {
        expect_that("package:tidyverse" %in% search() , is_true())
        })
print("Success!")
    }

test_1.5 <- function(){
    test_that('Did not create an object named marathon_small.', {
        expect_true(exists("marathon_small")) 
        })
    test_that('marathon_small should be a data frame.', {
        expect_true('data.frame' %in% class(marathon_small))
        })
    test_that('marathon_small does not contain the correct data.', {
        expect_equal(dim(marathon_small), c(1833, 5))
        expect_equal(sum(marathon_small$age), 66455.5)
        expect_equal(colnames(marathon_small), c("age", "bmi", "km5_time_seconds", "km10_time_seconds", "sex"))
        })
print("Success!")
    }

test_1.6 <- function(){
    test_that('Did not create an object named marathon_age.', {
        expect_true(exists("marathon_age")) 
        })
    test_that('Did not create an object named marathon_select.', {
        expect_true(exists("marathon_select")) 
        })
    test_that('marathon_age does not contain the correct number of rows and/or columns.', {
        expect_equal(dim(marathon_age), c(922, 5))
        })
    test_that('marathon_select does not contain the correct number of rows and/or columns.', {
        expect_equal(dim(marathon_select), c(922, 2))
        })
    test_that('Columns in marathon_select contain incorrect values.', {
        expect_equal(digest(as.integer(sum(marathon_select$bmi))), '26b0ef5c0ff9f596d71bec8beb2fd961') # we hid the answer to the test here so you can't see it, but we can still run the test
        expect_equal(digest(as.integer(sum(marathon_select$km5_time_seconds, na.rm = TRUE))), '34a5cc5cac5c7e94d58a8de9c1d25d2a') # we hid the answer to the test here so you can't see it, but we can still run the test
        })
print("Success!")
    }

test_1.7 <- function(){
    test_that('Did not create an object named marathon_mutate.', {
        expect_true(exists("marathon_mutate")) 
        })
    test_that('Did not create an object named marathon_exact.', {
        expect_true(exists("marathon_exact")) 
        })
    test_that('marathon_mutate does not contain the correct number of rows and/or columns.', {
        expect_equal(dim(marathon_mutate), c(922, 3))
        })
    test_that('marathon_exact does not contain the correct number of rows and/or columns.', {
        expect_equal(dim(marathon_exact), c(922, 2))
        })
    test_that('Columns in marathon_exact contain incorrect values.', {
        expect_equal(digest(as.integer(sum(marathon_exact$bmi))), '26b0ef5c0ff9f596d71bec8beb2fd961') # we hid the answer to the test here so you can't see it, but we can still run the test
        expect_equal(digest(as.integer(sum(marathon_exact$km5_time_minutes, na.rm = TRUE))), '2d07e1d5bee213ac567286a85e4e74af') # we hid the answer to the test here so you can't see it, but we can still run the test
        })
print("Success!")
    }

test_1.8 <- function(){
    test_that('Did not create a plot named marathon_plot', {
        expect_true(exists("marathon_plot")) 
        })
    test_that('bmi should be on the x-axis.', {
        expect_that("bmi" %in% c(rlang::get_expr(marathon_plot$mapping$x),rlang::get_expr(marathon_plot$layers[[1]]$mapping$x)), is_true())
        })
    test_that('km5_time_minutes should be on the y-axis.', {
        expect_that("km5_time_minutes" %in% c(rlang::get_expr(marathon_plot$mapping$y), rlang::get_expr(marathon_plot$layers[[1]]$mapping$y)) , is_true())
        })
    test_that('marathon_plot should be a scatter plot.', {
        expect_that("GeomPoint" %in% c(class(marathon_plot$layers[[1]]$geom)) , is_true())
        })
    test_that('Labels on the axes should be descriptive and human readable.', {
        expect_that((marathon_plot$labels$y) == 'km5_time_minutes', is_false())
        expect_that((marathon_plot$labels$x) == 'bmi', is_false())
        })
print("Success!")
    }

test_1.10 <- function(){
    test_that('Did not create a plot named age_vs_time', {
        expect_true(exists("age_vs_time")) 
        })
    test_that('age should be on the x-axis.', {
        expect_that("age" %in% c(rlang::get_expr(age_vs_time$mapping$x),rlang::get_expr(age_vs_time$layers[[1]]$mapping$x)), is_true())
        })
    test_that('km5_time_minutes should be on the y-axis.', {
        expect_that("km5_time_minutes" %in% c(rlang::get_expr(age_vs_time$mapping$y), rlang::get_expr(age_vs_time$layers[[1]]$mapping$y)) , is_true())
        })
    test_that('age_vs_time should be a scatter plot.', {
        expect_that("GeomPoint" %in% c(class(age_vs_time$layers[[1]]$geom)) , is_true())
        })
    test_that('Labels on the axes should be descriptive and human readable.', {
        expect_that((age_vs_time$labels$y) == 'km5_time_minutes', is_false())
        expect_that((age_vs_time$labels$x) == 'age', is_false())
        })
print("Success!")
    }

test_2.1 <- function(){
    test_that('Solution is incorrect', {
        expect_equal(digest(answer2.1), '3a5505c06543876fe45598b5e5e5195d') # we hid the answer to the test here so you can't see it, but we can still run the test
        })
print("Success!")
    }

test_2.2 <- function(){
    test_that('Solution is incorrect', {
        expect_equal(digest(answer2.2), '475bf9280aab63a82af60791302736f6') # we hid the answer to the test here so you can't see it, but we can still run the test
        })
print("Success!")
    }

test_2.3 <- function(){
    test_that('Did not create an object named bike_data.', {
        expect_true(exists("bike_data")) 
        })
    test_that('bike_data should be a data frame.', {
        expect_true('data.frame' %in% class(bike_data))
        })
    test_that('bike_data does not contain the correct information.', {
        expect_equal(dim(bike_data), c(731, 4))
        expect_equal(sum(bike_data$casual_users), 620017)
        expect_equal(colnames(bike_data), c("temperature", "casual_users", "registered_users", "season"))
        })
print("Success!")
    }

test_2.4 <- function(){
    test_that('Did not create an object named bike_mutate.', {
        expect_true(exists("bike_mutate")) 
        })
    test_that('bike_mutate does not contain the correct number of rows and/or columns.', {
        expect_equal(dim(bike_mutate), c(731, 5))
        })
    test_that('Columns in bike_mutate contain incorrect values.', {
        expect_equal(digest(as.integer(sum(bike_mutate$total_users))), 'ca696c077151dc0a05b3e3862ab38f52') # we hid the answer to the test here so you can't see it, but we can still run the test
        expect_equal(digest(as.integer(sum(bike_mutate$temperature, na.rm = TRUE))), '01a2384f7d878a7355399ff2517925cc') # we hid the answer to the test here so you can't see it, but we can still run the test
        })
print("Success!")
    }

test_2.5 <- function(){
    test_that('Did not create an object named bike_filter.', {
        expect_true(exists("bike_filter")) 
        })
    test_that('The season column in bike_filter should only contain Spring.', {
        expect_equal(unique(bike_filter$season), "Spring")
        })
    test_that('bike_filter does not contain the correct number of rows and/or columns.', {
        expect_equal(dim(bike_filter), c(181, 5))
        })
    test_that('Columns in bike_filter contain incorrect values.', {
        expect_equal(digest(as.integer(sum(bike_filter$total_users))), '051a1e8b9293438bbc0cb8ed6fa4e959') # we hid the answer to the test here so you can't see it, but we can still run the test
        expect_equal(digest(as.integer(sum(bike_filter$temperature, na.rm = TRUE))), '15865a3cff7594d62b7897f23fb27fa8') # we hid the answer to the test here so you can't see it, but we can still run the test
        })
print("Success!")
    }

test_3.1 <- function(){
    test_that('Solution is incorrect', {
        expect_equal(digest(answer_filter), '3a5505c06543876fe45598b5e5e5195d') # we hid the answer to the test here so you can't see it, but we can still run the test
        })
print("Success!")
    }