add carrow()

convenient function to plot closed type arrow
noriakis · Sep 28, 2023 · 5e7a171 · 5e7a171
1 parent b3b0840
commit 5e7a171
Show file tree

Hide file tree

Showing 3 changed files with 30 additions and 1 deletion.
diff --git a/NAMESPACE b/NAMESPACE
@@ -6,6 +6,7 @@ S3method(ggplot_add,overlay_raw_map)
 export(append_cp)
 export(append_label_position)
 export(assign_deseq2)
+export(carrow)
 export(combine_with_bnlearn)
 export(convert_id)
 export(create_test_module)

diff --git a/R/utils.R b/R/utils.R
@@ -635,7 +635,17 @@ obtain_map_and_cache <- function(org, pid=NULL, colon=TRUE) {
   convert_vec
 }
 
-
+#' carrow
+#' 
+#' make closed type arrow
+#' @param length arrow length in unit()
+#' @export
+#' @examples
+#' carrow()
+#' 
+carrow <- function(length=unit(2,"mm")) {
+	arrow(length=length, type="closed")
+}
 
 #' combine_with_bnlearn
 #' 

diff --git a/man/carrow.Rd b/man/carrow.Rd