R/usesSemanticArgumentNames.R

In wyz.code.metaTesting: Wizardry Code Meta Testing

Defines functions usesSemanticArgumentNames

Documented in usesSemanticArgumentNames

usesSemanticArgumentNames <- function(fun_f_1) {
  qfa <- qualifyFunctionArguments(fun_f_1)
  l <- length(qfa$argument_names)
  all(sapply(seq_len(l), function(k) {
    x <- wyz.code.offensiveProgramming::FunctionParameterName(qfa$argument_names[k])
    x$isSemanticName()
  }))
}

Try the wyz.code.metaTesting package in your browser