tests/testthat/test-fitutil.R

In fitcoach: Personalized Coach for Fitbit and R API

context("Fit util tests")

test_that("Fitutil test cases", {

    ### Tests for daily analysis
    
    # Test 1 - Create master dataframe
    masterPath <-
        system.file("extdata", "daily-time-series", package = "fitcoach")
    master <- createTsMasterFrame(masterPath)
    master <- markValidRows(master)
    master <- master[master$valid == TRUE, ]
    master <- augmentData(master)
    expect_equal(nrow(master), 191)
    
    # Test 2 - createGoalVariableVector()
    y <- createGoalVariableVector(master, goal = "calories")
    expect_gte(mean(y), 2632)
    
    # Test 3 - createDependentVariableFrame()
    x <- createDependentVariableFrame(master, goal = "calories")
    expect_equal(ncol(x), 9)
    
    # Test 4 - Distance Goal
    y <- createGoalVariableVector(master, goal = "distance")
    expect_lte(mean(y), 4.9)
    
    # Test 5 - Distance X
    x <- createDependentVariableFrame(master, goal = "distance")
    expect_equal(ncol(x), 8)
    
        
    ### Tests for intra-day analysis
    
    # Test 6 - createIntraFrame()
     folder <-
         system.file("extdata", "intra-daily-timeseries", package = "fitcoach")
     intraMaster <- createIntraFrame(folder)
     expect_equal(nrow(intraMaster), 2016)

     # Test 7 - augmentIntraData()
     intraMaster <- augmentIntraData(intraMaster)
     expect_equal(ncol(intraMaster),24)
     
})