add more cli arguments

inst/cli/run_ggVennDiagram.R

@@ -53,9 +53,28 @@ parser$add_argument('--type', choices = c("auto", "Venn", "Upset"),
 parser$add_argument("--out", "-o",
                     default = "plot.png",
                     help = "specify the output file of plot. filetype (png/jpg/pdf) is determined by its suffix automatically.")
+parser$add_argument("--name",
+                    default = NULL,
+                    help = "specify the names of sets")
+parser$add_argument("--set-label-color", default = "black", help = 'color of set labels ("black")')
+parser$add_argument("--set-label-size", default = "NA", help = "size of set labels (NA)" )
+parser$add_argument("--label", choices = c("count","percent","both","none"), help = 'format of region labels')
+parser$add_argument("--label-alpha", default = 0.5, help = "set 0 to remove the background of region labels")
+parser$add_argument('--label-geom', default = "label", choices = c("label", "text"), help = '
+layer of region labels, choose from c("label", "text")')
+parser$add_argument('--label-color', default = "black", help = '
+color of region labels ("black")')
+parser$add_argument('--label-size', default = "NA", help = 'size of region labels (NA)')
+parser$add_argument('--label-percent-digit', default = 0, help = 'number of digits when formatting percent label (0)')
+parser$add_argument('--label-txt-width', default = 40, help = 'width of text used in showing intersect members, will be ignored unless show_intersection is TRUE (40)')
+parser$add_argument('--edge-lty', default = "solid", help = 'line type of set edges ("solid")')
+parser$add_argument('--edge-size', default = 1, help = '
+line width of set edges (1)')
+
 parser$print_help()
 
 args = parser$parse_args()
+args = lapply(args, function(x) ifelse(x == "NA", NA, x))
 
 list = as.list(args$set)
 

roadmap.md

@@ -6,4 +6,5 @@
   - [ ] `upset_boxplot`
   - [ ] `upset_dotplot`.
 - [ ] a shiny app
+  - [ ] disable auto update of plot (only plot after clicking Plot button)
 - [ ] a TBtools plugin