R/renderPanel.R

In sigbertklinke/mmstat: Support for the development of interactive Shiny apps

#' Render a conditional panel
#'
#' @param inputId input element for the condition
#' @param ... parameter sets for the widget to render
#' @param session session parameter of the server function
#'
#' @seealso \code{\link{conditionalPanel}}
#'
#' @return HTML code which can be used instead of \code{renderUI}
#' @export
#'
#' @examples
#' \dontrun{
#'   shinyDemo('mmstatDiscreteDistributions')
#' }
renderPanel <- function(inputId, ..., session=NULL) {
  widgets <- list(...)
  ret     <- list()
  for (i in seq(length(widgets))) {
    ret[[i]] <- conditionalPanel(sprintf("input['%s']==%i", inputId, i),
                                 renderWidget(widgets[[i]], session=session)
                                 )  
  }
  return(ret)
}