# \donttest{
# typical use case
op_sum <- opwf(sum, c('...', 'removeNA_b_1'))
rv_sum <- exploreSignatures(op_sum, list(... = c('im', 'r', 'cm')))
# which are the errors of exploration and in what context do they occur?
print(rv_sum$failure$synthesis)
# which are the good behaviors of exploration and in what context do they occur?
print(rv_sum$success$synthesis)
# Restrict signatures to use for exploration testing on op_sum
# Consider only two cases: no argument and ellipsis1_, ellispsis2_
cac_sum <- computeArgumentsCombination(op_sum)
rv_sum_f <- exploreSignatures(op_sum, list(... = c('im', 'r', 'cm')),
cac_sum$signatures[c(1, 5)])
# }
Run the code above in your browser using DataLab