tests/testthat/test_fill.R

#### eventlog ####

test_that("test fill on eventlog with default .direction", {

  load("./testdata/patients_fill_na.rda")
  load("./testdata/patients_fill_na_df.rda")

  log <- patients_fill_na %>%
    fill(!!resource_id_(.))

  df <- patients_fill_na_df %>%
    fill(resource)

  expect_s3_class(log, "eventlog")

  expect_false(any(is.na(log[[resource_id(log)]])))
  expect_equal(log[[resource_id(log)]], df[["resource"]])
})

test_that("test fill on eventlog with .direction = 'downup'", {

  load("./testdata/patients_fill_na.rda")
  load("./testdata/patients_fill_na_df.rda")

  log <- patients_fill_na %>%
    fill(!!resource_id_(.), .direction = "downup")

  df <- patients_fill_na_df %>%
    fill(resource, .direction = "downup")

  expect_s3_class(log, "eventlog")

  expect_false(any(is.na(log[[resource_id(log)]])))
  expect_equal(log[[resource_id(log)]], df[["resource"]])
})

test_that("test fill on grouped_eventlog with default .direction", {

  load("./testdata/patients_fill_na_grouped.rda")
  load("./testdata/patients_fill_na_grouped_df.rda")

  log <- patients_fill_na_grouped %>%
    fill(!!resource_id_(.))

  df <- patients_fill_na_grouped_df %>%
    fill(resource)

  expect_s3_class(log, "grouped_eventlog")

  # Expect 10th element (first Samanta of Jane Doe) to be NA.
  expect_true(is.na(log[[resource_id(log)]][10]))
  expect_equal(log[[resource_id(log)]], df[["resource"]])
  expect_equal(group_vars(log), group_vars(patients_fill_na_grouped))
})

test_that("test fill on grouped_eventlog with .direction = 'downup'", {

  load("./testdata/patients_fill_na_grouped.rda")
  load("./testdata/patients_fill_na_grouped_df.rda")

  log <- patients_fill_na_grouped %>%
    fill(!!resource_id_(.), .direction = "downup")

  df <- patients_fill_na_grouped_df %>%
    fill(resource, .direction = "downup")

  expect_s3_class(log, "grouped_eventlog")

  expect_false(any(is.na(log[[resource_id(log)]])))
  expect_equal(log[[resource_id(log)]], df[["resource"]])
  expect_equal(group_vars(log), group_vars(patients_fill_na_grouped))
})


#### activitylog ####

test_that("test fill on activitylog with default .direction", {

  load("./testdata/patients_act_fill_na.rda")
  load("./testdata/patients_act_fill_na_df.rda")

  log <- patients_act_fill_na %>%
    fill(!!resource_id_(.))

  df <- patients_act_fill_na_df %>%
    fill(resource)

  expect_s3_class(log, "activitylog")

  expect_false(any(is.na(log[[resource_id(log)]])))
  expect_equal(log[[resource_id(log)]], df[["resource"]])
})

Try the bupaR package in your browser

Any scripts or data that you put into this service are public.

bupaR documentation built on May 29, 2024, 7:46 a.m.