# NOT RUN {
if(interactive()){
library(shiny)
library(shiny.info)
ui <- fluidPage(
info_value("session_info")
)
server <- function(input, output, session) {
outputsession_info <- render_session_info()
# next line is required to work with toggle_info()
outputOptions(output, "session_info", suspendWhenHidden = FALSE)
}
}
# }
Run the code above in your browser using DataLab