#' #' @export
#' nextStep <- function(nextStep){
#' current <- input$shinysteps_current
#' steps <- input$shinysteps_stepIds
#' if(is.numeric(nextStep)){
#' nextStep <- steps[nextStep]
#' }
#' session$sendCustomMessage("mymessage", nextStep)
#' }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.