# #设置,eval = TRUE,包括= FALSE ------------------------------------------ 库(epivizrChart)库(亮)图书馆(Homo.sapiens)图书馆(Rsamtools)库(rtracklayer ) ## ----------------------------------------------------------------------------- 数据(cgi_gr)数据(bcode_eset ) ## ----------------------------------------------------------------------------- epivizNav < - epivizNav(对应=“chr11”,开始= 118000000 = 121000000,interactive=TRUE) genes_track <- epivizNav$add_genome(Homo.sapiens) blocks_track <- epivizNav$plot(cgi_gr, datasource_name="CpG_Islands") means_track <- epivizNav$plot(bcode_eset, datasource_name="基因表达条形码"，图= " HeatmapPlot ") ## ----------------------------------------------------------------------------- file1 < - Rsamtools: BamFile(“http://1000genomes.s3.amazonaws.com/phase3/data/HG01879/alignment/HG01879.mapped.ILLUMINA.bwa.ACB.low_coverage.20120522.bam”)file2 < - rtracklayer:: BEDFile(“https://s3.amazonaws.com/igv.broadinstitute.org/annotations/hg19/genes/refGene.hg19.bed.gz”)epiviz_igv < - epivizNav情节美元(file1、datasource_name = " genes2 ") ## ---- eval = FALSE -------------------------------------------------------------- # 应用< - shinyApp (# ui = fluidPage (# uiOutput(“epivizChart ") # ), # 服务器= function(输入、输出会话){# #输出美元epivizChart < - renderUI ({# epivizNav render_component美元(闪亮的= TRUE ) # }) # # # 注册的事件管理数据请求从UI # epivizNav register_shiny_handler美元(会话 ) # } # ) # # 应用程序 # ## ---- eval = FALSE -------------------------------------------------------------- # 应用< - shinyApp (# ui = fluidPage (# textInput(“gene_loc”、“进入基因组的位置(例如:chr11:119000000 - 120000000”,“chr11:118000000 - 121000000”),# uiOutput(“epivizChart ") # ), # 服务器= function(输入、输出、会话){# # renderEpiviz < -函数(){#输出$ epivizChart < - renderUI ({# epivizNav render_component美元(闪亮的= TRUE ) # }) # } # # observeEvent(输入gene_loc美元,{# loc < - $ gene_loc #如果(loc输入 != "") { # chr_split < - strsplit (loc”:“)#杆使用< - chr_split [[1]] [1] # range_split < - strsplit (chr_split [[1]] [2 ], "-") # # epivizNav $导航(对应=空空的,# start = strtoi(range_split[[1]][1])， # end = strtoi(range_split[[1]][2])) #} # renderEpiviz() #}) # # epivizNav$register_shiny_handler(session) #} #) # #应用程序#