I have a Shiny app like the below:
library(tidyverse)
library(shiny)
ui <- fluidPage(
titlePanel("Hello Shiny!"),
fluidRow(
column(4,
sliderInput("obs", "Number of observations:",
min = 1, max = 1000, value = 500)
),
column(8,
plotOutput("distPlot")
)
)
)
server <- function(input, output) {
}
shinyApp(ui = ui, server = server)
#>
#> Listening on http://127.0.0.1:6857
Created on 2020-03-08 by the reprex package (v0.3.0)
I would like to have an image behind the sliderInput such that the sliderInput is visible on top of the image.
Would love any help! Thanks.