diff --git a/R/stringdb.R b/R/stringdb.R index 35800de..5efa283 100644 --- a/R/stringdb.R +++ b/R/stringdb.R @@ -204,6 +204,9 @@ rba_string_network_image <- function(ids, use_query_labels = FALSE, hide_disconnected_nodes = FALSE, hide_structure_pics = FALSE, + flat_nodes = FALSE, + node_labels_center = FALSE, + node_labels_font_size = 12, ...) { ## Load Global Options .rba_ext_args(..., ignore_save = TRUE) @@ -239,7 +242,15 @@ rba_string_network_image <- function(ids, list(arg = "hide_disconnected_nodes", class = "logical"), list(arg = "hide_structure_pics", - class = "logical")), + class = "logical"), + list(arg = "flat_nodes", + class = "logical"), + list(arg = "node_labels_center", + class = "logical"), + list(arg = "node_labels_font_size", + class = "numeric", + min_val = 5, + max_val = 50)), cond = list(list(quote(length(ids) > 100 && is.null(species)), sprintf("You supplied %s IDs. Please Specify the species (Homo Sapiens NCBI taxonomy ID is 9606).", length(ids))) @@ -280,7 +291,19 @@ rba_string_network_image <- function(ids, "1"), list("block_structure_pics_in_bubbles", hide_structure_pics, - "1")) + "1"), + list("flat_node_design", + flat_nodes, + "1"), + list("flat_node_design", + flat_nodes, + "1"), + list("center_node_labels", + node_labels_center, + "1"), + list("custom_label_font_size", + node_labels_font_size != 12, + node_labels_font_size)) ## make file path if (image_format == "svg") { diff --git a/man/rba_string_network_image.Rd b/man/rba_string_network_image.Rd index b97ecd1..2e6251a 100644 --- a/man/rba_string_network_image.Rd +++ b/man/rba_string_network_image.Rd @@ -18,6 +18,9 @@ rba_string_network_image( use_query_labels = FALSE, hide_disconnected_nodes = FALSE, hide_structure_pics = FALSE, + flat_nodes = FALSE, + node_labels_center = FALSE, + node_labels_font_size = 12, ... ) }