Отображение HTML-файла с использованием includeHTML в блестящем не работает с renderUI ()

Question

У меня есть сохраненный HTML-виджет (из листовки), который я хочу отобразить в блестящем приложении.

Использование includeHTML() работает, когда оно задано в ui.R, но не при динамическом вызове с использованием renderUI(). У меня есть много файлов .html, которые я бы хотел, чтобы пользователь выбрал с помощью выбора, поэтому мне нужно динамическое решение.

Принятый ответ из этого популярного поста Показать HTML-файл в Shiny App имеет динамическое решение, но оно не работает для меня. Нет ошибок и ничего не отображается.

В итоге:

Работает

ui <- fluidPage(
  includeHTML("foo.html")
)

Не работает

ui <- fluidPage(
  htmlOutput("map")
)

server <- function(input,output){
  output$map <- renderUI({
     includeHTML(path = "foo.html")
   })
}

Этот пост также связан, но решение не найдено.