How to setup a secure code evaluator in LearnR like rstudio.cloud does?

[Elvincth]

When we use the self-hosted version of Learn R or hosted version in shinyapps.io, the user can print out variables that contain the tutorial source code using the code evaluator.

For example in shinyapps hosted version, the user can run .server_context to get the source code of the current rmd:

(UPDATED) Example 2:

By running cat(system("cat /srv/connect/apps/ex-data-filter/ex-data-filter.Rmd", intern = TRUE), sep = '\n') can get the source code of the current rmd too:

But interestingly in rstudio.cloud hosted version, the code evaluator seems to be sandboxed, and all "sensitive" variables cannot be run through the evaluator.

Can I get some advice on how to implement such a secure code evaluator?

Thanks!

[gadenbuie]

The short answer is that, specifically in shinyapps.io, it's not really possible to block access to that file. 😞