format_sse(data = "Hello")
#> "data: Hello\n\n"
format_sse(data = "Hello", event = "greeting")
#> "event: greeting\ndata: Hello\n\n"
format_sse(data = "Line 1\nLine 2")
#> "data: Line 1\ndata: Line 2\n\n"
# Typical SSE endpoint setup
h <- handler_stream("/events", function(conn, req) {
conn$set_header("Content-Type", "text/event-stream")
conn$set_header("Cache-Control", "no-cache")
conn$set_header("X-Accel-Buffering", "no")
conn$send(format_sse(data = "connected", id = "1"))
})
Run the code above in your browser using DataLab