всплывающие окна Twitter начальной загрузки для приложения R глянцевый - HTML интерпретируется как текстовый контент - почему?

Я хочу добавить всплывающие окна из твиттер-фреймворка в блестящее приложение. Все отлично работает, кроме того, чтоhtml: true тег не имеет эффекта:

shinyUI(pageWithSidebar(

  headerPanel("Header"),

  sidebarPanel(
    actionButton("btn-1", "Go!")
  ),

  mainPanel(
    tags$head(
      tags$script('
      $(document).ready(function(){
         $("#btn-1")
                  .popover({html: true, 
                            title: "Button 1", 
                            content: "<h1>Press</h1> for some action", 
                            trigger: "hover"
                  });
          });   
      ')
    )
  )
))

Тот же код, что и в чистом HTML / JS (без блестящей части), прекрасно работает:

<script>
    $(document).ready(function(){
             $("#btn-1")
                .popover({html: true, 
                          title: "Button 1", 
                          content: "<h1>Press</h1> for some action",
                          trigger: "hover",
                          delay: {show: 100, hide: 100} 
                });

    }); 
</script>

<button id="btn-1" type="submit" class="btn">Submit</button>

Есть идеи? Я не слишком знаком с платформой начальной загрузки, но может ли это быть связано с версией, которая включена в глянцевый?

Ответы на вопрос(1)

Ваш ответ на вопрос