# Add a small console log to show the api is alive
pa <- api() |>
api_on("cycle-end", function(server) {
server$log("message", "tick-tock")
}, id = "lifesign")
# Remove it again
pa |>
api_off("lifesign")
Run the code above in your browser using DataLab