library(shiny)
library(shinythemes)
ui <- fluidPage(theme = shinythemes::shinytheme("cyborg"),
shiny::checkboxInput("check1","Toggle a condition"),
uiOutput("myout")
)
server <- function(input, output, session) {
output$myout <- renderUI({
h_label <- "HOME2"
if(isTruthy(input$check1))
h_label <- "HOME"
actionLink(inputId = "Home",label = h_label,
style="color: white; display: block;padding-top: 20px;}")
})
}
shinyApp(ui, server)