library(shiny)
# dummy variables for the example
data_loaded <- TRUE
# UI code
ravedash_footer("my_module")
# server code to set message
server <- function(input, output, session){
module_server_common(input, output, session, function(){
# check if data has been loaded
if(data_loaded) {
# if yes, then set the footer message
fire_rave_event("loader_message",
"my_project/subject - Epoch: Auditory")
return(TRUE)
} else {
# No data found, unset the footer message
fire_rave_event("loader_message", NULL)
return(FALSE)
}
})
}
Run the code above in your browser using DataLab