"Test that every type of datacut gives the expected result, when special_dm=TRUE"
"Test that process_cut() errors when a source SDTM dataset is not
          referenced in any input list"
"sc exists in source_sdtm_data but no cut method has been assigned"
"Test that process_cut() errors when an input list includes a source
           SDTMv dataset that does not exist in the source SDTMv data"
"Cut types have been assigned for vs which does not exist in source_sdtm_data"
"Test that process_cut() errors when a source SDTMv dataset is
          referenced in more than one input list"
"Multiple cut types have been assigned for ae"
"Test that process_cut() errors when special_dm = TRUE and dm is also
          referenced in an input list"
"Multiple cut types have been assigned for dm"
"Test that Correct .Rmd file is ran successfully when read_out = TRUE"
"Test that every type of datacut gives the expected result, when special_dm=FALSE"

Test that Correct .Rmd file is ran successfully when read_out = TRUE

Error in `convert(output_file, run_citeproc)`: failed to copy rendered pandoc artefact to 'C:/Users/CRAN/Documents/dummyfile/datacut_ 2024-11-15_19:55:57.html'

Error in `convert(output_file, run_citeproc)`: failed to copy rendered pandoc artefact to 'D:/RCompile/CRANincoming/R-devel/datacutr.Rcheck/tests/testthat/datacut_ 2024-11-15_19:55:59.html'

~USUBJID, ~AETERM, ~AESTDTC, ~DCUT_TEMP_SDTM_DATE, ~DCUT_TEMP_DCUTDTM, ~DCUT_TEMP_REMOVE,
~USUBJID, ~LBORRES, ~LBDTC, ~DCUT_TEMP_SDTM_DATE, ~DCUT_TEMP_DCUTDTM, ~DCUT_TEMP_REMOVE,
~USUBJID, ~DTHFL, ~DTHDTC, ~DCUT_TEMP_REMOVE, ~DCUT_TEMP_DTHDT, ~DCUT_TEMP_DCUTDTM, ~DCUT_TEMP_DTHCHANGE,
# Test that .Rmd gives the expected result when all fields are set to default or contain valid data -----------
# Correct .Rmd file is run successfully when fields contain correct data inputs
test_that("Correct .Rmd file is run successfully when fields contain correct data inputs", {
# Call read_out() to generate the .Rmd file
# Assert that the output file is generated successfully
# Test that Correct .Rmd file is ran successfully when fields are empty
test_that("Correct .Rmd file is ran successfully when fields are empty", {
# Test read_out() errors when data cut fields are incorrect input types -----------
# Test that read_out() errors dcut data frame does not contain the var DCUTDTC
test_that("Test that read_out() errors dcut data frame does not contain the var DCUTDTC", {
# Test that read_out() errors when patient_cut_data input is not a list
test_that("Test that read_out() errors when patient_cut_data input is not a list", {
regexp = "patient_cut_data must be a list. \n
Note: If you have not used or do not with to view patient cut on any SDTMv domains, then
please leave patient_cut_data empty, in which case a default value of NULL will be used."
# Test that read_out() errors when elements in the patient_cut_data list are not data frames
test_that("Test that read_out() errors when elements in the patient_cut_data list are not data frames", {
# Test that read_out() errors when data frames in patient_cut_data are unnamed
test_that("Test that read_out() errors when data frames in patient_cut_data are unnamed", {
regexp = "All elements patient_cut_data must be named with corresponding domain"
# Test that read_out() errors when date_cut_data input is not a list
test_that("Test that read_out() errors when date_cut_data input is not a list", {
regexp = "date_cut_data must be a list. \n
Note: If you have not used or do not with to view date cut on any SDTMv domains, then please
leave date_cut_data empty, in which case a default value of NULL will be used."
# Test that read_out() errors when elements in the date_cut_data list are not data frames
test_that("Test that read_out() errors when elements in the date_cut_data list are not data frames", {
# Test that read_out() errors when data frames in date_cut_data are unnamed
test_that("Test that read_out() errors when data frames in date_cut_data are unnamed", {
regexp = "All elements in date_cut_data must be named with corresponding domain"
# Test that read_out() errors when dm_cut data frame does not contain the vars DCUT_TEMP_REMOVE & DCUT_TEMP_DTHCHANG
test_that("Test that read_out() errors when dm_cut data frame does not contain the vars DCUT_TEMP_REMOVE & DCUT_TEMP_DTHCHANGE", {
# Test that read_out() errors when no_cut_list is not a list
test_that("Test that read_out() errors when no_cut_list is not a list", {
regexp = "no_cut_list must be a list. \n
Note: If you have not used or do not with to view the SDTMv domains where no cut has been
applied, then please leave no_cut_list empty, in which case a default value of NULL will be
# Test that read_out() errors when elements in the no_cut_list list are not data frames
test_that("Test that read_out() errors when elements in the no_cut_list list are not data frames", {
# Test that read_out() errors when elements in the no_cut_list list are not named with the corresponding domain
test_that("Test that read_out() errors when elements in the no_cut_list list are not named with the corresponding domain", {
regexp = "All elements in no_cut_list must be named with corresponding domain"