R/mod-barplot_migration_server.R

In ikbentimkramer/cdphmd: Collaborative Data Project Housing Market Dashboard

#' Barplot for the migration indicator Module Server
#'
#' The barplot module server makes a barplot in shiny
#'
#' @param id a string to use as namespace
#' @param df a data frame containing the data to plot
#' @param x a string that equals the name of the column in df to use
#'   on the x-axis
#' @param y a string that equals the name of the column in df to use
#'   on the y axis
#' @return a module server function
#' @import shiny
#' @import plotly
#' @importFrom ggplot2 ggplot aes geom_bar xlab
#'   element_blank xlab theme element_line
#' @noRd
barplot_migration_server <- function(id, x, y, df){
  shiny::moduleServer(id, function(input, output, session) {
    output$barplotmigration  <- plotly::renderPlotly({
          if (shiny::is.reactive(df)) {
            df <- df()
          }
          plot <- ggplot2::ggplot(data = df,
                                 aes(x = Percentage, y = reorder(municipality, Percentage),
                                     fill = Change,
                                     text = paste0(.data$Percentage, " %")))+
                            geom_bar(stat = "identity")+ 
                            theme(
                              plot.background = element_blank(),
                              panel.background = element_blank(),
                              panel.border = element_blank(),
                              panel.grid.major = element_blank(),
                              axis.title.y = element_blank(),
                              panel.grid.minor = element_blank(),
                              axis.line = element_line(colour = "black"))+
                            xlab("Percentage change")
                            plot
        fig <- plotly::ggplotly(plot, tooltip = c("text"))
        fig
      })
  })
}