tests/testthat/futurelearn/test_week_01.R

In iNZightVIT/iNZight: A GUI for Data Exploration and Visualisation

context("Week 1: Introduction")

wd <- getwd()

test_that("Exercise 1.15: Import data into iNZight", {
    ui <- iNZGUI$new()
    ui$initializeGui()
    on.exit(gWidgets2::dispose(ui$win))
    setwd(wd)

    Sys.sleep(1)

    ## Load course data files stored inside iNZight
    # File > Example data
    expect_silent(exwin <- iNZight:::iNZImportExampleWin$new(ui))

    # > FutureLearn
    expect_silent(svalue(exwin$dsPkg) <- "FutureLearn")

    # > nhanes_1000
    expect_silent(svalue(exwin$dsData) <- "nhanes_1000")

    # > Ok
    expect_silent(
        exwin$ok_button$invoke_change_handler()
    )

    # Check:
    expect_equal(ui$dataNameWidget$datName, "nhanes_1000_ex")

    ## Drag variables into Var1
    expect_silent(svalue(ui$ctrlWidget$V1box) <- "Gender")
    expect_equal(ui$plotType, "bar")
    expect_silent(svalue(ui$ctrlWidget$V1box) <- "Age")
    expect_equal(ui$plotType, "dot")

    ## Load gapminder_2008:
    expect_silent(exwin <- iNZight:::iNZImportExampleWin$new(ui))
    expect_silent(svalue(exwin$dsPkg) <- "FutureLearn")
    expect_silent(svalue(exwin$dsData) <- "gapminder_2008")
    expect_silent(
        exwin$ok_button$invoke_change_handler()
    )
    expect_equal(ui$dataNameWidget$datName, "gapminder_2008_ex")

    ## Load "olympics100m.csv"
    # Download file
    skip_if_offline()
    url <- "https://www.stat.auckland.ac.nz/~wild/data/FutureLearn/olympics100m.csv"
    f <- tempfile(fileext = ".csv")
    on.exit(unlink(f), add = TRUE)
    download.file(url, f, quiet = TRUE, mode = "wb")

    # File > Import Data
    expect_silent(imp <- iNZight:::iNZImportWin$new(ui))

    # > Browse
    imp$fname <- f
    expect_silent(imp$setfile())

    # > Import
    expect_silent(imp$ok_button$invoke_change_handler())

    # Check:
    expect_equal(
        ui$dataNameWidget$datName,
        tools::file_path_sans_ext(basename(f))
    )
    expect_equal(
        colnames(ui$getActiveData()),
        c("YEAR", "NAME", "TIME", "Country", "Gender")
    )
})