#' Open MeetupParticipantGrouping App
#'
#' This function opens the MeetupParticipantGrouping example app for editing.
#' @export
#' @examples
#' openMeetupParticipantGroupingExampleApp()
openMeetupParticipantGroupingApp <- function(){
file.edit(file.path(find.package("Jan2018ShinyMeetupCRUG"),"Apps", "MeetupParticipantGrouping","app.R"))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.