##---- typical case ----
library('data.table')
source(system.file('code-samples/frt-defs/good/full/AdditionFI.R',
package = 'wyz.code.offensiveProgramming'))
identifyOPInstrumentationLevel(AdditionFI())
#$offensive_programming
#[1] TRUE
#$full_instrumentation
#[1] FALSE
#$semantic_naming
#[1] TRUE
#$function_return_type
#[1] TRUE
#$test_case_definition
#[1] FALSE
Run the code above in your browser using DataLab