#' Widget for a Poisson or exponential distribution
#'
#' @param inputId widget name
#' @param lambda \code{sliderInput} parameter for the intensity parameter
#' @param lang language widget
#'
#' @seealso \code{\link{sliderInput}}, \code{\link{dpois}}, \code{\link{dexp}}
#'
#' @return a widget object (environment)
#' @export
#'
#' @examples
#' \dontrun{
#' # Press ESC after finishing the demo
#' shinyDemo('testIntensity')
#' shinyDemo('testIntensityLang')
#' shinyDemo('mmstatDiscreteDistribution') # see Poisson distribution
#' shinyDemo('mmstatContinuousDistribution') # see Exponential distribution
#' }
widgetIntensity <- function(inputId,
lambda=list(),
lang=NULL) {
env <- widget(inputId, lang)
args <- list(inputId='lambda', label='Intensity',
min=0, max=10, value=1, step=0.05)
env[['ui']]$lambda <- list(func='sliderInput',
args=mergeListsByName(args, lambda))
return(env)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.