R/make_legend_plotly.R

In BCEA: Bayesian Cost Effectiveness Analysis

#' Legend Positioning
#' 
#' @param pos_legend Position of legend
#' @return String
#'
#' @export
#' @keywords internal
#' 
make_legend_plotly <- function(pos_legend) {
  
  legend_params <- list(orientation = "v",
                        xanchor = "center",
                        x = 0.5,
                        y = 0)
  
  if (is.character(pos_legend))
    legend_params <- switch(
      pos_legend,
      "left" = list(orientation = "v", x = 0, y = 0.5),
      "bottomleft" = list(orientation = "v", x = 0, y = 0),
      "topleft" = list(orientation = "v", x = 0, y = 1),
      "right" = list(orientation = "v", x = 0, y = 0.5),
      "bottomright" = list(orientation = "v", x = 1, y = 0),
      "topright" = list(orientation = "v", x = 1, y = 1),
      "bottom" = list(orientation = "v", xanchor = "center", x = 0.5, y = 0),
      "top" = list(orientation = "h", xanchor = "center", x = 0.5, y = 100))
  
  legend_params
}