tests/testthat/test-dog_combine_accession_numberes.R

In davidbaniadam/rispacs: Functions for Working with RISPACS Data

test_that("Sum of diff equal to the number of accession numbers lost",{

df <- dog_combine_accession_numbers(df = rispacs_left, CPR = Patient_RK, time_passed = 30)
result <- sum(df$diff)
expect_equal(result, length(unique(df$Accession_number)) -  length(unique(df$Accession_number2))  )

})

test_that("give name", {
  df <- dog_combine_accession_numbers(df = rispacs_left, CPR = Patient_RK, time_passed = 30)
  a <- unique(df$Accession_number)
  b <- unique(df$Accession_number2)
  k <- a[!a %in% b]

  aaa <- df %>%
    dplyr::filter(diff== 1 ) %>%
    dplyr::select(Accession_number) %>%
    dplyr::pull()

  expect_equal(sum(aaa ==k), length(k) )



})