R/dropdown_menu_output.R

In PaskalSunari/semantic.dashboard-develop: Dashboard with Fomantic UI Support for Shiny

#' Create a dropdown menu output.
#' @description UI-side function for dynamic dropdownMenu.
#' @param outputId Id of the output.
#' @return A dropdown menu that can be passed to \code{\link[semantic.dashboard]{dashboardHeader}}
#' @export
#' @examples
#' \dontrun{
#' dropdownMenuOutput("dropdown")
#'
#' output$dropdown <- renderDropdownMenu({
#'   dropdownMenu(messageItem("Michał", "Test message", color = "teal"),
#'               messageItem("Marek", "Another test!", icon = "warning", color = "red"))
#' })
#' }
dropdown_menu_output <- function(outputId){
  shiny::uiOutput(outputId, class = "right icon menu")
}

#' @describeIn dropdown_menu_output Create a dropdown menu output (alias for \code{dropdown_menu_output} for compatibility with \code{shinydashboard})
#' @export
dropdownMenuOutput <- dropdown_menu_output

#' Create a dropdown menu output.
#' @description Server-side function for dynamic dropdownMenu.
#' @param expr dropdownMenu.
#' @param env The environment in which to evaluate expr.
#' @param quoted Is expr a quoted expression (with \code{quote()})? This is useful if you want to save an expression in a variable.
#' @return A dynamic dropdown menu that can be assigned to output.
#' @export
#' @examples
#' \dontrun{
#' dropdownMenuOutput("dropdown")
#'
#' output$dropdown <- renderDropdownMenu({
#'   dropdownMenu(messageItem("Michał", "Test message", color = "teal"),
#'               messageItem("Marek", "Another test!", icon = "warning", color = "red"))
#' })
#' }
render_dropdown_menu <- function(expr, env = parent.frame(), quoted = FALSE){
  fun <- shiny::exprToFunction(expr, env, quoted)
  shiny::renderUI(fun())
}

#' @describeIn render_dropdown_menu Create a dropdown menu output (alias for \code{render_dropdown_menu} for compatibility with \code{shinydashboard})
#' @export
renderDropdownMenu <- render_dropdown_menu