скрипт в контейнере div

Question

Редактировать: на основе добавленного комментария "".Код работает сейчас.

Я пытаюсь встроить 3D-приложение для просмотра молей в мое блестящее приложение, как описано здесь: http://3dmol.csb.pitt.edu/doc/tutorial-embeddable.html

Я попробовал следующий код:

library(shiny)

ui <- fluidPage(

  mainPanel(
    fluidRow(
         tags$head(HTML('<script src="http://3Dmol.csb.pitt.edu/build/3Dmol-min.js"></script>')),
         tags$div(
                  style="height: 400px; width: 400px; position: relative;",
                  class='viewer_3Dmoljs',
                  'data-pdb' ='1YCR',
                  'data-backgroundcolor' ='0xffffff',
                  'data-style' ='stick'
                  ))
         )
        )

 server <- function(input, output) {


}


shinyApp(ui = ui, server = server)

Это похоже наdata-pdb, data-backgroundcolor и data-style не распознаются.Если я уберу эти аргументы, я получу черный ящик.Кто-нибудь знает, как я мог заставить это работать?Кроме того, было бы возможно направить load-pdb в локальный файл?