# NOT RUN {
if (interactive()){
library(shiny)
library(shiny.info)
ui <- fluidPage(
toggle_info(),
shiny.info::display("test message"),
shiny.info::info_value("test_input_value", "bottom right"),
textInput(inputId = "test_input", label = NULL)
)
server <- function(input, output, session) {
output$test_input_value <- shiny.info::render_info_value(input$test_input)
outputOptions(output, "test_input_value", suspendWhenHidden = FALSE)
}
shinyApp(ui = ui, server = server)
}
# }
Run the code above in your browser using DataLab