### r代码来自Vignette Source'Shiny.rnw'############################################################## ###代码块数字1：run_edger（eval = false）##############################################################################################.rnw：59-65（eval = false）########################################################= true），## css = list.files（system.file（“ extdata/csslib”，package =“ reportingtools”），## staters =“ bootstrap”，full.names = true），##）##）##＃#############################＃代码块编号3：Shiny.rnw：74-78（eval = false）####################################################################################4：shiny.rnw：87-89（eval = false）########################################“。###################### ###代码块编号5：Shiny.rnw：99-103（eval = false）#############################################＃output $ view2 <-RenderReptools（{## Publish（datasetinput（），htmlrep，.modifydf = modifyInput（））##}）