Build Default ggpaintr Control Widgets
Usage
ptr_input_ui(ids = ptr_build_ids(), ui_text = NULL)Examples
ui <- ptr_input_ui(
ptr_build_ids(draw_button = "render_plot"),
ui_text = list(shell = list(draw_button = list(label = "Render plot")))
)
inherits(ui, "shiny.tag.list")
#> [1] TRUE