tests/testthat/test-table_subsetting.R

context("table_subsetting")

test_that("Remove rows from meta data", {
  data(RS.data)
  units <- c("UserName", "Condition")
  conversation <- c("GroupName")
  codes <- c("Data", "Technical.Constraints", "Performance.Parameters",
              "Client.and.Consultant.Requests", "Design.Reasoning",
              "Collaboration")

  set_end <- ena(
      RS.data,
      units = c(units, "GroupName"),
      conversation = conversation,
      codes = codes,
      window.size.back = 4
    )

  testthat::expect_true(all(sapply(set_end$meta.data, is, "ena.metadata")))
  testthat::expect_true(all(sapply(set_end$meta.data[-1, ], is, "ena.metadata")))
})

Try the rENA package in your browser

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

rENA documentation built on March 26, 2022, 1:10 a.m.