seek the metabolits' pathway
Examples
name <- c("2-Hydroxybutyric acid","1-Methyladenosine","tt")
result_all <- name2pathway(name)
#> Warning: cannot remove file 'test.data.1', reason 'No such file or directory'
#> Start at 2024-11-26 11:24:28.7353
#>
#> Warning: one argument not used by format '
#> #######################################################'
#>
#> #######################################################
#> 'xEnricher' is being called (2024-11-26 11:24:28.739385):
#> Warning: one argument not used by format '#######################################################'
#> #######################################################
#> First, generate a subgraph induced (via 'all_paths' mode) by the annotation data (2024-11-26 11:24:28.741497) ...
#> Next, prepare enrichment analysis (2024-11-26 11:24:28.75742) ...
#> There are 1 genes/SNPs of interest tested against 3043 genes/SNPs as the background (annotatable only? TRUE) (2024-11-26 11:24:28.759131)
#> Third, perform enrichment analysis using 'hypergeo' test (2024-11-26 11:24:28.764663) ...
#> There are 81 terms being used, each restricted within [1,2000] annotations
#> Last, adjust the p-values for 81 terms (with 0 minimum overlaps) using the BH method (2024-11-26 11:24:28.792499) ...
#> Warning: one argument not used by format '#######################################################'
#> #######################################################
#> 'xEnricher' has been finished (2024-11-26 11:24:28.84248)!
#> Warning: one argument not used by format '#######################################################
#> '
#> #######################################################
#>
#> End at 2024-11-26 11:24:28.844193
#> Runtime in total (xEnricherYours): 0 secs
#> Warning: Expected 1 pieces. Additional pieces discarded in 2606 rows [1, 2, 3, 4, 5, 6,
#> 7, 8, 9, 10, 11, 12, 13, 14, 15, 17, 18, 20, 22, 23, ...].
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Expected 1 pieces. Additional pieces discarded in 2606 rows [1, 2, 3, 4, 5, 6,
#> 7, 8, 9, 10, 11, 12, 13, 14, 15, 17, 18, 20, 22, 23, ...].
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
#> Warning: Unknown or uninitialised column: `kegg_id`.
result <- result_all$name2pathway
pathway <- result_all$pathway
pathway
#> # A tibble: 1 × 16
#> name nAnno nOverlap fc zscore pvalue adjp or CIl CIu distance
#> <chr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> <chr>
#> 1 Propanoat… 40 1 76.1 8.66 0 0 Inf 1.93 Inf 1
#> # ℹ 5 more variables: namespace <chr>, members_Overlap <chr>,
#> # members_Anno <chr>, members_Overlap_name <chr>, members_Anno_name <chr>
kegg_name <- result_all$kegg_name
kegg_name
#> NULL