Show a modal dialog with a plot in Shiny Application - r

Question

I have the following Shiny Application:
dates <- seq(as.Date("2018-01-01"), as.Date("2018-05-01"), by="days")
point_duration = rnorm(n=length(dates), mean=6, sd=1)
point_duration_bench = rnorm(n=length(dates), mean=5, sd=2)
df <- data.frame(dates, point_duration, point_duration_bench)
df$week <- strftime(df$dates, format = "%V")
df$month <- strftime(df$dates, format = "%m")
current_day = Sys.Date()
current_week = strftime(current_day, format = "%V")
current_month = strftime(current_day, format = "%m")
library(shiny)
library(ggplot2)
library(plotly)
library(shinyBS)
UI <- fluidPage(
actionButton("month","Show last week"),
plotOutput("line_graph"),
bsModal("modalExample", "Your plot", "go", size = "large",plotOutput("plot"),downloadButton('downloadPlot', 'Download'))
)
Server <- function(input, output) {
observeEvent(input$month, {
output$plot <- renderPlot({
hist(50)
})
})
output$line_graph <- renderPlot({
ggplot(df, aes(x=dates, y=point_duration)) +
geom_bar(stat = "identity") +
geom_line(aes(x=dates, y = point_duration_bench), colour = "blue") +
geom_point() +
labs(y="Amount of calls (#1000)",x="")
})
}
shinyApp(ui = UI, server = Server)
With the bsModal function I try to achieve that when you press the month button you get a popup screen showing a the plot output (in this case a simple hist(50)).
However, it does not seem to work... Any thoughts on where I go wrong?

Answer 1

You need to connect the modal output to the right button. You had it attached to 'go' when it needed 'month' to work. Also, I don't think you need the observer as the behavior is built in tobsModal(). See working code:
dates <- seq(as.Date("2018-01-01"), as.Date("2018-05-01"), by="days")
point_duration = rnorm(n=length(dates), mean=6, sd=1)
point_duration_bench = rnorm(n=length(dates), mean=5, sd=2)
df <- data.frame(dates, point_duration, point_duration_bench)
df$week <- strftime(df$dates, format = "%V")
df$month <- strftime(df$dates, format = "%m")
current_day = Sys.Date()
current_week = strftime(current_day, format = "%V")
current_month = strftime(current_day, format = "%m")
library(shiny)
library(ggplot2)
library(plotly)
library(shinyBS)
UI <- fluidPage(
actionButton("month","Show last week"),
plotOutput("line_graph"),
bsModal("modalExample",
"Your plot",
"month", # <----set the observer to the right button
size = "large",
plotOutput("plot"),
downloadButton('downloadPlot', 'Download'))
)
Server <- function(input, output) {
output$plot <- renderPlot({
hist(50)
})
output$line_graph <- renderPlot({
ggplot(df, aes(x=dates, y=point_duration)) +
geom_bar(stat = "identity") +
geom_line(aes(x=dates, y = point_duration_bench), colour = "blue") +
geom_point() +
labs(y="Amount of calls (#1000)",x="")
})
}
shinyApp(ui = UI, server = Server)