### R代码从vignette源的闪亮。Rnw ' ################################################### ### 代码块1号:run_edgeR (eval = FALSE ) ################################################### ## 库(亮)# # myRunApp () ################################################### ### 代码块2号:有光泽。Rnw: 59 - 65 (eval = FALSE ) ################################################### ## custHeaderPanel(“ReportingTools”,# # js = list.files(系统。file("extdata/jslib"， package="ReportingTools")， ## full.names=TRUE)， ## css = list.files(system. js)文件(“extdata / csslib”、包=“ReportingTools”),# #模式=“引导”,full.names = TRUE ), ## ) ################################################### ### 代码块3号:有光泽。Rnw: 74 - 78 (eval = FALSE ) ################################################### ## mainPanel (# # verbatimTextOutput(“摘要”),# # htmlOutput(“view2 ") ## ) ################################################### ### 代码块数量4:闪亮的。Rnw: 87 - 89 (eval = FALSE ) ################################################### ## myrep = HTMLReport (reportDirectory = "。/”,缩写名= " = shinyHandlers bigtest”,# #处理程序 ) ################################################### ### 代码块5号:有光泽。Rnw: 99 - 103 (eval = FALSE ) ################################################### ## ### 使用RT显示输出# #输出美元view2 < - renderRepTools({# #发布(datasetInput (), htmlrep, .modifyDF = modifyInput ()) # #})