tests/testthat/test_arrange.R

test_that("test arrange on eventlog", {

  load("./testdata/patients.rda")
  load("./testdata/patients_df.rda")

  log <- patients %>%
    arrange(!!activity_id_(.))

  df <- patients_df %>%
    arrange(activity)

  expect_s3_class(log, "eventlog")

  expect_equal(log[[activity_id(log)]], df[["activity"]])
})

test_that("test arrange on grouped_eventlog", {

  load("./testdata/patients_grouped.rda")
  load("./testdata/patients_grouped_df.rda")

  log <- patients_grouped %>%
    arrange(!!activity_id_(.))

  df <- patients_grouped_df %>%
    arrange(activity)

  expect_s3_class(log, "grouped_eventlog")

  expect_equal(log[[activity_id(log)]], df[["activity"]])
})

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.