use parent.frame() as the default environment for knitting shiny documents

otherwise the parent.frame() when knit() is really called is an environment inside rmarkdown_shiny_server(), which does not make much sense