如果“includeHTML（）”存在

Question

很奇怪：

这很好用：

    ui <-mainPanel(
  shinyUI(bootstrapPage(shinyDirButton('STICK', "Data_directory", 
                                     "Choose the directory containing all your HCS data (works only while running the app via Rstudio on your computer):")
))
#,includeHTML("analysis/reports/multidim_anal_variable.html")
)

server <-  shinyServer(function(input, output) {
  shinyDirChoose(input, 'STICK', roots=getVolumes(), restrictions=system.file(package='base'))
})

runApp(list(
  ui=ui,
  server=server
))

但如果我取消注释includeHTML行，它就不再起作用了（当我点击按钮时，窗口中没有文件夹出现）。 （如果它无法获取html进行渲染，那么它可以工作。）