R div容器中的脚本

编辑：根据添加的注释“”。代码现在可以工作了

我正在尝试在我的闪亮应用程序中嵌入3D mol查看器，如下所述：

我尝试了以下代码：

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)

库（闪亮）
ui是否会为您返回语法错误？您需要将名称中带有破折号（“-”）的名称放在引号内。例如
'data-pdb'='1YCR'，
等等，谢谢你。它现在正在工作。真不敢相信我没看到！这不会为您返回语法错误吗？您需要将名称中带有破折号（“-”）的名称放在引号内。例如
'data-pdb'='1YCR'，
等等，谢谢你。它现在正在工作。真不敢相信我没看到！