R/shiny_bellman.R

In rte-antares-rpackage/antaresWaterValues: Generating water values for Antares

bellmanUI <- function(id,opts) {
  shiny::sidebarLayout(
    shiny::sidebarPanel(
      shiny::h1("Bellman plot"),
      shiny::sliderInput(
        NS(id,"week_id"),
        "Week to show",
        value = c(2, 2),
        min = 1,
        max = 52
      ),

      shinyBS::bsTooltip(
        NS(id,"week_id"),
        "Weeks for which you want to plot (Bellman values and watervalues are plotted at the end of the wanted weeks)",
        "bottom"
      ),


    ),
    #siderbarpanel
    shiny::mainPanel(
      shiny::plotOutput(NS(id,"plot_Bellman")),
      shinyWidgets::downloadBttn(
        outputId = NS(id,"download_Bellman_plot"),
        style = "unite",
        color = "primary",
        block = T
      ),

    )
  )
  # Siderbar

}

bellmanServer <- function(id, opts, watervalues) {
  moduleServer(id, function(input, output, session) {
    plot <- reactive(plot_Bellman(
      watervalues(),
      input$week_id[1]:input$week_id[2]))

    output$plot_Bellman <-
      shiny::renderPlot(plot())

    output$download_Bellman_plot <- shiny::downloadHandler(
      filename = function() {
        paste('Bellman-', Sys.Date(), '.png', sep = '')
      },
      content = function(con) {
        grDevices::png(con , width = 1200,
                       height = 766)
        print(
          plot()
        )
        grDevices::dev.off()
      }
    )
  })
}