Show plots in examples

YuhangTom · Sep 24, 2023 · 0c2ecca · 0c2ecca
1 parent 9a43438
commit 0c2ecca
Show file tree

Hide file tree

Showing 14 changed files with 22 additions and 16 deletions.
diff --git a/R/vec_align_sigs_list.R b/R/vec_align_sigs_list.R
@@ -24,7 +24,8 @@
 #' concavity = concavity, ifsave = FALSE, dir_name = NULL, ifplot = FALSE)
 #'
 #' x3p_bin_rotate <- x3p_vertical(x3p_inner_impute, min_score_cut = 0.1)
-#' vec_align_sigs_list(x3p_raw_sig_vec(x3p_bin_rotate), x3p_shift_sig_vec(x3p_bin_rotate))
+#' vec_align_sigs_list(x3p_raw_sig_vec(x3p_bin_rotate), x3p_shift_sig_vec(x3p_bin_rotate),
+#' ifplot = TRUE)
 #'
 vec_align_sigs_list <- function(
     sig1,

diff --git a/R/x3p_MLE_angle_vec.R b/R/x3p_MLE_angle_vec.R
@@ -23,7 +23,7 @@
 #' x3p_inner_impute <- x3p_impute(x3p_inner_nomiss_res, x3p, mask_col = mask_col,
 #' concavity = concavity, ifsave = FALSE, dir_name = NULL, ifplot = FALSE)
 #'
-#' x3p_MLE_angle_vec(x3p_inner_impute, min_score_cut = 0.1)
+#' x3p_MLE_angle_vec(x3p_inner_impute, min_score_cut = 0.1, ifplot = TRUE)
 #'
 #'
 x3p_MLE_angle_vec <- function(x3p, ntheta = 720, min_score_cut = 0.1,

diff --git a/R/x3p_impute.R b/R/x3p_impute.R
@@ -28,7 +28,7 @@
 #' x3p_inner_nomiss_res <- df_rmtrend_x3p(insidepoly_df)
 #'
 #' x3p_inner_impute <- x3p_impute(x3p_inner_nomiss_res, x3p, mask_col = mask_col,
-#' concavity = concavity, ifsave = FALSE, dir_name = NULL, ifplot = FALSE)
+#' concavity = concavity, ifsave = FALSE, dir_name = NULL, ifplot = TRUE)
 #' x3p_inner_impute
 #'
 #' if (interactive()) {

diff --git a/R/x3p_quantile_angle_vec.R b/R/x3p_quantile_angle_vec.R
@@ -22,7 +22,7 @@
 #' x3p_inner_impute <- x3p_impute(x3p_inner_nomiss_res, x3p, mask_col = mask_col,
 #' concavity = concavity, ifsave = FALSE, dir_name = NULL, ifplot = FALSE)
 #'
-#' x3p_quantile_angle_vec(x3p_inner_impute, min_score_cut = 0.1)
+#' x3p_quantile_angle_vec(x3p_inner_impute, min_score_cut = 0.1, ifplot = TRUE)
 #'
 #'
 x3p_quantile_angle_vec <- function(x3p, ntheta = 720, min_score_cut = 0.1,

diff --git a/R/x3p_raw_sig_vec.R b/R/x3p_raw_sig_vec.R
@@ -21,7 +21,7 @@
 #' concavity = concavity, ifsave = FALSE, dir_name = NULL, ifplot = FALSE)
 #'
 #' x3p_bin_rotate <- x3p_vertical(x3p_inner_impute, min_score_cut = 0.1)
-#' x3p_raw_sig_vec(x3p_bin_rotate) %>%
+#' x3p_raw_sig_vec(x3p_bin_rotate, ifplot = TRUE) %>%
 #' str()
 #'
 x3p_raw_sig_vec <- function(x3p, method = "median", ifplot = FALSE) {

diff --git a/R/x3p_shift_sig_vec.R b/R/x3p_shift_sig_vec.R
@@ -24,8 +24,10 @@
 #' concavity = concavity, ifsave = FALSE, dir_name = NULL, ifplot = FALSE)
 #'
 #' x3p_bin_rotate <- x3p_vertical(x3p_inner_impute, min_score_cut = 0.1)
-#' x3p_shift_sig_vec(x3p_bin_rotate) %>%
-#' str()
+#' if (interactive()) {
+#'   x3p_shift_sig_vec(x3p_bin_rotate, ifplot = TRUE) %>%
+#'   str()
+#' }
 #'
 x3p_shift_sig_vec <- function(x3p, method = "median", ifplot = FALSE, delta = -5:5) {
   y <-

diff --git a/R/x3p_vertical.R b/R/x3p_vertical.R
@@ -22,7 +22,7 @@
 #' x3p_inner_impute <- x3p_impute(x3p_inner_nomiss_res, x3p, mask_col = mask_col,
 #' concavity = concavity, ifsave = FALSE, dir_name = NULL, ifplot = FALSE)
 #'
-#' x3p_bin_rotate <- x3p_vertical(x3p_inner_impute, min_score_cut = 0.1)
+#' x3p_bin_rotate <- x3p_vertical(x3p_inner_impute, min_score_cut = 0.1, ifplot = TRUE)
 #' x3p_bin_rotate
 #'
 #' if (interactive()) {

diff --git a/man/vec_align_sigs_list.Rd b/man/vec_align_sigs_list.Rd
diff --git a/man/x3p_MLE_angle_vec.Rd b/man/x3p_MLE_angle_vec.Rd
diff --git a/man/x3p_impute.Rd b/man/x3p_impute.Rd
diff --git a/man/x3p_quantile_angle_vec.Rd b/man/x3p_quantile_angle_vec.Rd
diff --git a/man/x3p_raw_sig_vec.Rd b/man/x3p_raw_sig_vec.Rd
diff --git a/man/x3p_shift_sig_vec.Rd b/man/x3p_shift_sig_vec.Rd
diff --git a/man/x3p_vertical.Rd b/man/x3p_vertical.Rd