## ----echo = FALSE-------------------------------------------------------------
knitr::opts_chunk$set(
    eval=FALSE
)

## ----setup--------------------------------------------------------------------
# # suppressPackageStartupMessages(library(dplyr))
# # suppressPackageStartupMessages(library(RCy3))
# # suppressPackageStartupMessages(library(KEGGREST))
# # Sys.setenv(LANGUAGE="en_US.UTF-8")
# library(transomics2cytoscape)
# networkDataDir <- tempfile(); dir.create(networkDataDir)
# 
# networkLayers <- system.file("extdata/usecase1", "yugi2014.tsv",
#                             package = "transomics2cytoscape")
# stylexml <- system.file("extdata/usecase1", "yugi2014.xml",
#                             package = "transomics2cytoscape")
# suid <- create3Dnetwork(networkDataDir, networkLayers, stylexml)
# 
# layer1to2 <- system.file("extdata/usecase1", "k2e.tsv",
#                             package = "transomics2cytoscape")
# suid <- createTransomicEdges(suid, layer1to2)
# 
# layer3to2 <- system.file("extdata/usecase1", "allosteric_ecnumber.tsv",
#                             package = "transomics2cytoscape")
# ec2reaction(layer3to2, 6, "allosteric_ec2rea.tsv")
# suid <- createTransomicEdges(suid, "allosteric_ec2rea.tsv")

## -----------------------------------------------------------------------------
# ecnum <- system.file("extdata", "allosteric_ecnumber.tsv",
#     package = "transomics2cytoscape")
# ec2reaction(ecnum, 6, "allosteric_ec2rea.tsv")

## -----------------------------------------------------------------------------
# networkDataDir <- tempfile(); dir.create(networkDataDir)
# tfs <- system.file("extdata/usecase2", "TFs.sif",
#                             package = "transomics2cytoscape")
# file.copy(tfs, networkDataDir)
# networkLayers <- system.file("extdata/usecase2", "kokaji2020.tsv",
#                             package = "transomics2cytoscape")
# stylexml <- system.file("extdata/usecase2", "Kokaji2020styles.xml",
#                             package = "transomics2cytoscape")
# suid <- create3Dnetwork(networkDataDir, networkLayers, stylexml)
# 
# layer1to2 <- system.file("extdata/usecase2", "s2t_name_updated.tsv",
#                             package = "transomics2cytoscape")
# suid <- createTransomicEdges(suid, layer1to2)
# 
# layer2to3 <- system.file("extdata/usecase2", "t2e_name_updated.tsv",
#                             package = "transomics2cytoscape")
# suid <- createTransomicEdges(suid, layer2to3)
# 
# layer3to4 <- system.file("extdata/usecase2", "e2r_updated.tsv",
#                             package = "transomics2cytoscape")
# ec2reaction(layer3to4, 6, "e2r_updated_ec2rea.tsv")
# suid <- createTransomicEdges(suid, "e2r_updated_ec2rea.tsv")
# 
# layer5to4 <- system.file("extdata/usecase2", "m2r_updated.tsv",
#                             package = "transomics2cytoscape")
# ec2reaction(layer5to4, 6, "m2r_updated_ec2rea.tsv")
# suid <- createTransomicEdges(suid, "m2r_updated_ec2rea.tsv")

## -----------------------------------------------------------------------------
# sessionInfo()