I see on the first slide for the back button you have the html style style="display: none;". I would like to never show the back button even when the advance. Here is what I tried so far. However this approach removes both the previous and next butons.
controls <- fluidRow(
div(class="col-xs-6 text-right", style="display: none;",
prevButton(class = "btn btn-warning")
),
div(class="col-xs-6 text-left",
nextButton(class = "btn btn-success")
)
)
ui <- fluidPage(
mainPanel(
tags$hr(),
glide(
id = "plot-glide",
custom_controls = controls,
controls_position = "top",
next_label = "Go to next screen",
previous_label = "Go Back",
screen(
next_condition = "input.Name != ''",
p("Please enter your name:"),
textInput("Name","Guesser")),
screen(
next_condition = "input.Photo1 > 0 & input.Photo1 < 101",
p("Please enter age guess:"),
numericInput("Photo1",
"Photo 1 Age Guess:",
min = 0,
max = 100,
value = NULL),
img(src='photo 01.png', align = "center" ),
p(paste("Copyright: ",copyright[1]))
),
screen(
next_condition = "input.Photo2 > 0 & input.Photo2 < 101",
p("Please enter age guess:"),
numericInput("Photo2",
"Photo 2 Age Guess:",
min = 0,
max = 100,
value = NULL),
img(src='photo 02.jpg', align = "center" ),
p(paste("Copyright: ",copyright[2]))
)
)
)
I see on the first slide for the back button you have the html style
style="display: none;". I would like to never show the back button even when the advance. Here is what I tried so far. However this approach removes both the previous and next butons.