Numeric Input for Foundation UI
1 |
1 2 3 4 5 6 7 8 9 10 | if (interactive()) {
ui <- fd_page(
fd_numeric("test_num", "Number", 5, min = 1, max = 10),
shiny::textOutput("out_num")
)
server <- function(input, output) {
output$out_num <- shiny::renderText(input$test_num)
}
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.