tests/test-helpers/app7-port/option-broken.R

library(shiny)

op <- options(shiny.port = httpuv::randomPort())
onStop(function() { options(op) })

stop("boom")

Try the shiny package in your browser

Any scripts or data that you put into this service are public.

shiny documentation built on Nov. 18, 2023, 1:08 a.m.