library(shinysteps)
library(shinyjs)
library(tidyverse)
ui <- stepsPage(
stepsHeader(show = FALSE),
stepsBody(initStep = "step1",
stepPanel(id="step1",
sideBarStep(title = "FIRST",
verbatimTextOutput("debug"),
p("sidebar step1")
),
mainStep(
p("main step1")
)
)
)
)
server <- function(input,output,session){
output$debug <- renderPrint({
input$shinysteps_current
})
}
shinyApp(ui,server)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.