Nothing
context("Testing diffdf_has_issues")
test_that( "diffdf_has_issues works as expected",{
### Note that the first 2 comparisons in list_of_datasets are identical so we expect true
### all others are different so we expect false
for ( i in 1:length(list_of_comparisons)){
x <- diffdf(
list_of_comparisons[[i]][[1]] ,
list_of_comparisons[[i]][[2]] ,
suppress_warnings = T
)
if ( i %in% c(1,2)) {
expect_false(diffdf_has_issues(x))
} else {
expect_true( diffdf_has_issues(x))
}
}
## Testing with keys
comp <- list_of_comparisons[["everything"]]
expect_true(
diffdf_has_issues(
diffdf( comp[[1]] , comp[[2]] , keys = c("ID" , "GROUP1"), suppress_warnings = T)
)
)
expect_false(
diffdf_has_issues(
diffdf( TDAT , TDAT , keys = c("ID" , "GROUP1"), suppress_warnings = T)
)
)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.