fix dont run example to showcase new functionalities refresh docs

NEWS.md

@@ -3,13 +3,13 @@
 * added citation and start up message
 * added `major_x_labels` argument for custom x labels
 * added `interval_linewidth` argument to control interval linewidth
-* added possibility to add different ref line(s) by parameter via
- `ref_value_by_panel` and `ref_value_by_panel_data` function arguments (not in the shiny, app)
 * added and exported `expand_modelframe` function
 * added the possibility to select the shapes manually via `interval_shape` and `bsv_shape`
 * added capability for user to reverse color legend separately via `legend_color_reverse`
 * added capability for user to specify text for legend titles via `interval_legend_title` and `shape_legend_title` as well as to control text size via `legend_title_size`
 * added capability for user to specify facet text color via `x_facet_text_col` and `y_facet_text_col`
+* added possibility to add different ref line(s)/area(s) by parameter via
+ `ref_value_by_panel` and `ref_value_by_panel_data` function arguments (not in the shiny, app)
 
 # coveffectsplot 1.0.3
 * fixed a bug when ref_value when not equal 1 affecting y axis limits

R/forest_plot.R

@@ -258,10 +258,10 @@ label_wrap <- function(width) {
 #' plotdata$paramname <- c(rep("1-OH",30),rep("BZD",30))
 #' plotdata$paramname2 <- c(rep("AUC",15),rep("CMAX",15),rep("AUC",15),rep("CMAX",15))
 #'forest_plot(plotdata,
-#'            show_ref_area = FALSE,
+#'            show_ref_area = TRUE,
 #'            x_facet_text_size = 13,
 #'            y_facet_text_size = 13,
-#'            ref_legend_text = "Reference (vertical line))",
+#'            ref_legend_text = "Reference (vertical line)",
 #'            area_legend_text = "Reference (vertical line)",
 #'            xlabel = "Fold Change Relative to Parameter",
 #'            facet_formula = covname~paramname2,
@@ -278,18 +278,18 @@ label_wrap <- function(width) {
 #'            legend_color_reverse = TRUE,
 #'            interval_legend_title="Median (points)\n95% CI (horizontal lines)",
 #'            table_position = "right", plot_title = "",
-#'            ref_area_col = rgb( col2rgb("gray50")[1], col2rgb("gray50")[2],col2rgb("gray50")[3],
-#'                                max = 255, alpha = 0.1*255 ) ,
-#'            interval_col = c("steelblue","red","steelblue","red"),
-#'            strip_col = "lightblue",
+#'            ref_area_col = "gray85" ,
+#'            interval_col = c("#ee3124", "#fdbb2f"),
+#'            strip_col = "#475c6b",
+#'            y_facet_text_col = "white",x_facet_text_col = "white",
 #'            major_x_labels         = c("1/2", "0.8","1", "1.25", "2"),
 #'            logxscale = TRUE, major_x_ticks =c(0.5,0.8,1,1.25,2),
 #'            table_text_size = 5,
 #'            plot_table_ratio = 1.5,
 #'            ref_value_by_panel = TRUE,
 #'            ref_value_by_panel_data = as.data.frame(
 #'            plotdata %>% 
-#'            distinct(paramname2) %>% 
+#'            distinct(paramname2,covname) %>% 
 #'            mutate(xintercept=ifelse(paramname2=="CMAX",1,1.2))))
 #'
 #' # Example 3