Skip to content

Instantly share code, notes, and snippets.

@alandipert alandipert/app.R
Created Aug 2, 2019

Embed
What would you like to do?
Shiny app with malformed HTML ui
library(shiny)
ui <- fluidPage(
titlePanel("Shiny App with Malformed HTML"),
sidebarLayout(
sidebarPanel(
sliderInput("bins",
"Number of bins:",
min = 1,
max = 50,
value = 30)
),
mainPanel(
tags$p("This app is like any other, except it contains malformed HTML. It's for testing shinyloadtest and shinycannon."),
plotOutput("distPlot"),
HTML('<blink')
)
)
)
server <- function(input, output) {
output$distPlot <- renderPlot({
x <- faithful[, 2]
bins <- seq(min(x), max(x), length.out = input$bins + 1)
hist(x, breaks = bins, col = 'darkgray', border = 'white')
})
}
shinyApp(ui = ui, server = server)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment
You can’t perform that action at this time.