Update tot_summary.R

jiang548 · May 20, 2022 · 65da27a · 65da27a
1 parent bfe877e
commit 65da27a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/script/netvis/tot_summary.R b/script/netvis/tot_summary.R
@@ -43,7 +43,7 @@ bs_ppi <- apply(bs_ring_string, 1, string_db$get_interactions)
 if(!exists("bs_ppi")) bs_ppi <- apply(bs_ring_string, 1, string_db$get_interactions)
 
 bs_ppi <- do.call(rbind, bs_ppi)
-if(nrow(bs_ppi)==0) stop("No gene found in the database\n")
+if(nrow(bs_ppi)==0) stop("No gene is found in the database\n")
 unique_bs_ppi <- unique(bs_ppi)
 unique_bs_ppi_oriname <- unique_bs_ppi
 unique_bs_ppi_oriname[, 1] <- string_proteins[match(unique_bs_ppi[, 1], string_proteins[, "protein_external_id"]), "preferred_name"]