####################################################################################################################################
################################## setRStudioActive ################################################################################
# >>
setRStudioActive <- function(plot) {
dev.set( 2 )
}
# <<
################################## setRStudioActive ################################################################################
####################################################################################################################################
# 1 -> noActiveDev
# 2 -> rStudioDev
# 3 -> ----------
# 4 -> popUpDev
# 5 -> popUpDev
####################################################################################################################################
################################## Help Code #######################################################################################
# >>
# setRStudioActive( )
# <<
################################## Help Code #######################################################################################
####################################################################################################################################
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.