## ----seq1, fig.width=5, fig.height=5, message=FALSE, eval=.Platform$OS.type!="windows"----
# # Code that should run only on non-Windows systems
# library(knowYourCG)
# 
# # Download query and knowledgebase datasets:
# temp_dir <- tempdir()
# knowledgebase <- file.path(temp_dir, "ChromHMM.20220414.cm")
# query <- file.path(temp_dir, "single_cell_10_samples.cg")
# knowledgebase_url <- "https://github.com/zhou-lab/KYCGKB_mm10/raw/refs/heads/main/ChromHMM.20220414.cm"
# query_url <- "https://github.com/zhou-lab/YAME/raw/refs/heads/main/test/input/single_cell_10_samples.cg"
# download.file(knowledgebase_url, destfile = knowledgebase)
# download.file(query_url, destfile = query)
# 
# # test enrichment (require YAME installed in shell)
# res = testEnrichment(query, knowledgebase)
# KYCG_plotDot(res, short_label=TRUE)

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

