fixed bug with wtp in polygon_params()

n8thangreen · Feb 22, 2024 · d4467e6 · d4467e6
1 parent 3d8a770
commit d4467e6
Show file tree

Hide file tree

Showing 8 changed files with 12 additions and 8 deletions.
diff --git a/.Rbuildignore b/.Rbuildignore
@@ -25,3 +25,4 @@
 ^CONTRIBUTING\.md$
 ^revdep$
 ^CRAN-SUBMISSION$
+^CITATION\.cff$
diff --git a/R/ceplane.plot.R b/R/ceplane.plot.R
@@ -103,7 +103,7 @@ ceplane.plot.bcea <- function(he,
                               pos = c(0, 1),
                               graph = c("base", "ggplot2", "plotly"),
                               ...) {
-
+  browser()
   graph <- match.arg(graph)
 
   he <- setComparisons(he, comparison)

diff --git a/R/ceplane_base_params.R b/R/ceplane_base_params.R
@@ -8,7 +8,7 @@ ceplane_base_params <- function(he,
   c(list(
     setup = setup_params(graph_params),
     points = points_params(graph_params),
-    polygon = polygon_params(graph_params, wtp),
+    polygon = polygon_params(graph_params),
     k_txt = k_text(graph_params, wtp),
     wtp = wtp,
     ref_first = graph_params$ref_first),

diff --git a/R/ceplane_base_params_xxx.R b/R/ceplane_base_params_xxx.R
@@ -17,7 +17,9 @@ setup_params <- function(graph_params) {
 
 #' @keywords dplot
 #' 
-polygon_params <- function(graph_params, wtp) {
+polygon_params <- function(graph_params) {
+
+  wtp <- graph_params$wtp_value
 
   x_max <- graph_params$xlim[2]
   y_min <- graph_params$ylim[1]

diff --git a/R/ceplane_ggplot_params.R b/R/ceplane_ggplot_params.R
@@ -13,11 +13,11 @@ ceplane_ggplot_params <- function(he,
                                   pos_legend,
                                   graph_params,
                                   ...) {
-  
+
   ext_params <- ceplane_geom_params(...)
 
   graph_params$area <-
-    modifyList(polygon_params(graph_params, wtp),
+    modifyList(polygon_params(graph_params),
                graph_params$area)
 
   graph_params$legend <- make_legend_ggplot(he, pos_legend)

diff --git a/R/ceplane_plot_graph.R b/R/ceplane_plot_graph.R
@@ -140,6 +140,7 @@ ceplane_plot_base <- function(he, ...) {
 ceplane_plot_ggplot.bcea <- function(he,
                                      pos_legend,
                                      graph_params, ...) {
+  browser()
   # single long format for ggplot data
   delta_ce <-
     merge(

diff --git a/R/prep_ceplane_params.R b/R/prep_ceplane_params.R
@@ -14,7 +14,7 @@
 #' @keywords internal
 #'
 prep_ceplane_params <- function(he, wtp_params, ...) {
-
+  browser()
   graph_params <- list(...)
 
   # back compatibility
@@ -35,7 +35,7 @@ prep_ceplane_params <- function(he, wtp_params, ...) {
       ifelse(he$n_comparisons == 1,  #he$change_comp,
              yes = intervs_in_title,
              no = ""))
-  browser()
+
   axes_lim <- xy_params(he, wtp_params$value, graph_params)
 
   default_params <-

diff --git a/cran-comments.md b/cran-comments.md
@@ -1,5 +1,5 @@
 ## R CMD check results
 
-0 errors | 0 warnings | 0 note
+0 errors | 0 warnings | 0 notes
 
 * This is an updated release.