Merge pull request #454 from svalvaro/develop

fix: updated function that was used in an example

DESCRIPTION

@@ -58,4 +58,4 @@ VignetteBuilder:
 Encoding: UTF-8
 Language: en-US
 LazyData: TRUE
-RoxygenNote: 7.2.3
+RoxygenNote: 7.3.1

R/dropdown.R

@@ -153,32 +153,26 @@ selectInput <- function(inputId, label, choices, selected = NULL, multiple = FAL
 #'
 #' @examples
 #' if (interactive()) {
+#'   library(shiny)
+#'   library(shiny.semantic)
 #'
-#' library(shiny)
-#' library(shiny.semantic)
-#'
-#' ui <- function() {
-#'   shinyUI(
-#'     semanticPage(
-#'       title = "Dropdown example",
-#'       dropdown_input("simple_dropdown", LETTERS[1:5], value = "A", type = "selection multiple"),
-#'       p("Selected letter:"),
-#'       textOutput("selected_letter"),
-#'       shiny.semantic::actionButton("simple_button", "Update input to D")
-#'     )
+#'   ui <- semanticPage(
+#'     title = "Dropdown example",
+#'     dropdown_input("simple_dropdown", LETTERS[1:5], value = "A", type = "selection multiple"),
+#'     p("Selected letter:"),
+#'     textOutput("selected_letter"),
+#'     shiny.semantic::actionButton("simple_button", "Update input to D")
 #'   )
-#' }
 #'
-#' server <- shinyServer(function(input, output, session) {
-#'   output$selected_letter <- renderText(paste(input[["simple_dropdown"]], collapse = ", "))
-#'
-#'   observeEvent(input$simple_button, {
-#'     update_dropdown(session, "simple_dropdown", value = "D")
-#'   })
-#' })
+#'   server <- function(input, output, session) {
+#'     output$selected_letter <- renderText(paste(input[["simple_dropdown"]], collapse = ", "))
 #'
-#' shinyApp(ui = ui(), server = server)
+#'     observeEvent(input$simple_button, {
+#'       update_dropdown_input(session, "simple_dropdown", value = "D")
+#'     })
+#'   }
 #'
+#'   shinyApp(ui, server)
 #' }
 #'
 #' @export