# =========================================================================== #
# Demo App for the shinyhelper functions - ui #
# =========================================================================== #
# Packages ----------------------------------------------------------------
library(shiny)
library(magrittr)
library(shinyhelper)
# User Interface ----------------------------------------------------------
ui <- fluidPage(
# title of demo app
titlePanel(title = "Demo - shinyhelper"),
# use a sidebar layout
sidebarLayout(
# sidebapanel with inputs for kmeans clustering of iris
sidebarPanel = sidebarPanel(
selectInput(inputId = "xcol", label = "X Variable",
choices = names(iris)) %>%
helper(icon = "question",
colour = "green",
type = "markdown",
content = "Columns"),
selectInput(inputId = "ycol", "Y Variable",
choices = names(iris),
selected = names(iris)[[2]]) %>%
helper(type = "inline",
title = "Inline Help",
content = c("This helpfile is defined entirely in the UI!",
"This is on a new line.",
"This is some <b>HTML</b>.",
"Note this modal has a different button label, fades in and is harder to close."),
buttonLabel = "Got it!",
easyClose = FALSE,
fade = TRUE,
size = "s"),
sliderInput(inputId = "clusters", "Cluster count",
value = 3, min = 1, max = 9) %>%
helper(icon = "exclamation",
colour = "red",
content = "Clusters"),
hr(),
uiOutput(outputId = "dynamicUI"),
hr()
),
# mainpanel with output plot
mainPanel = mainPanel(
plotOutput(outputId = "kmeans") %>%
helper(size = "l",
content = "PlotHelp")
)
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.