how about

```
getDummyContext <- local({
  dummyContext <- NULL
  function() {
    if (is.null(dummyContext))
      dummyContext <<- Context$new('[none]', type='isolate')
    return(dummyContext)
  }
})
```