tests/test-ci/test-cache.R

In xfun: Supporting Functions for Packages Maintained by 'Yihui Xie'

library(testit)

assert('find_globals() identifies global variables', {
  env = list2env(
    list(qwer = 1, g = 2, y = 3, d = 4, z = 5), parent = emptyenv()
  )
  # nothing from outside environment
  (find_globals('x=1', env) %==% character(0))
  # qwer must be created outside somewhere
  (find_globals('a=1; b=a; d=qwer', env) %==% 'qwer')
  (find_globals('a=function(){f=2;g}', env) %==% 'g')
  # y was assigned locally in z, but there is another y outside from nowhere
  (find_globals('z=function(){y=1};y', env) %==% 'y')
  # more complicated cases: operators, subscripts, ...
  (find_globals(c('a=1%*%1%o%2 %in% d', 'b=d%%10+3%/%2-z[1:3]'), env) %==% c('d', 'z'))
})