devtools::install_github("MangoTheCat/cyclocomp")

library(cyclocomp)

cyclocomp(quote( if (condition) "foo" else "bar" ))

cyclocomp(quote( while (condition) { loop } ))

cyclocomp(
  function(arg) { calulate(this); and(that) }
)

cyclocomp(ls)

cyclocomp(cyclocomp)

cyclocomp(quote({
  if (condition) this
}))

cyclocomp(quote({
  if (condition) this else that
}))

cyclocomp(quote({
  for (var in seq) expr
}))

cyclocomp(quote({
  while (cond) expr
}))

cyclocomp(quote({
  repeat expr
}))

cyclocomp(quote({
  for (var in seq) {
    this
    break
    that
  }
}))

cyclocomp(quote({
  for (var in seq) {
    this
    next
    that
  }
}))

f <- function(arg) {
  if (arg) {
    return("this")
  } else {
    return("that")
  }
  "Otherwise return me"
}
cyclocomp(f)