inst/text/shiny/page_1_functions.R

In Health-SocialCare-Scotland/phstemplates: PHS R Templates

####################### Page 1 functions #######################

mtcars_plot <- function(dataset) {
  dataset$name <- row.names(dataset)

  yaxis_plots[["title"]] <- "Displacement (cu.in.)"
  xaxis_plots[["title"]] <- "Gross horsepower"

  p <- dataset %>%
    plot_ly(
      x = ~hp,
      y = ~disp,
      color = ~ factor(cyl),
      text = ~name,
      type = "scatter",
      mode = "markers",
      # PHS palette (paste removes names from named list)
      colors = paste(phsstyles::phs_palettes$main)
    ) %>%
    layout(
      margin = list(b = 30, t = 10), # to avoid labels getting cut out
      legend = list(
        x = 100,
        y = 0.5,
        title = list(text = 'Number of cylinders')
      ),
      yaxis = yaxis_plots,
      xaxis = xaxis_plots
    ) %>%
    # leaving only save plot button
    config(
      displaylogo = F,
      displayModeBar = TRUE,
      modeBarButtonsToRemove = bttn_remove
    )

  return(p)
}