Question

我正在尝试将Datacamp的自编码应用程序集成到我的Shiny App中，此代码是我要执行的操作的简单示例。

我尝试使用HTML函数并输入：

tags$script(HTML("type = 'text/javascript' src = 'https://cdn.datacamp.com/datacamp-light-latest.min.js'")

但是，我的网页上只有一个空框。

ui.R

library(shiny)
library(shinydashboard)

menu <- sidebarMenu(
  menuItem('Index', tabName = 'index')
)

integration <- tabItem(tabName = 'index',
                       fluidRow(
                         box(
                           withd = 12,
                           title = 'Code',
                           tags$script(type = 'text/javascript', src = 'https://cdn.datacamp.com/datacamp-light-latest.min.js')
                         )
                         )
                       )

shinyUI(
  dashboardPage(
    header = dashboardHeader(title = 'R Code'),
    sidebar = dashboardSidebar(menu),
    body = dashboardBody(
      tabItems(
        integration
        )
      )
    )
  )

server.R

library(shiny)

shinyServer(function(input, output) {

})

Answer 1

在DataCamp Light Github上，他们显示了另一个资源，包括：

container.component

然后通过将HTML代码复制到R Shiny应用程序中，现在可以获取小部件，但是仍然存在一些会话问题，因为无法提交结果。但是提示/解决方案是。

浏览器控制台抱怨：

<script type="text/javascript" src="//cdn.datacamp.com/dcl-react.js.gz"></script>

我还尝试根据github描述添加Source-Map-Fehler: Error: sourceMapURL could not be parsed，但这并没有改变会话问题。

initAddedDCLightExercises()

App ---

tags$head(tags$script('$( document ).ready(function() {
                              initAddedDCLightExercises();
                            });')),

Shiny App和Datacamp Light之间的集成-免费代码

1 个答案: