在闪亮的应用中捕获iframe中的点击

时间:2017-09-07 10:45:47

标签: javascript jquery r iframe shiny

我希望在闪亮的应用中捕获iframe中的链接。我想知道点击了哪个链接。

外面有光泽,这很好用。我为相关问题添加了一个完全可重现的示例: https://stackoverflow.com/a/46093537/3502164 (它必须在(本地)服务器上运行,例如xaamp)。

我的尝试:

1)要保存在Path/To/App

中的应用

2)在www文件夹中存储应在iframe中显示的html文件。

fileWithLink.html

<html>
<body>
<a href="https://stackoverflow.com/">SOreadytohelp</a>
</body>
</html>

3)应用程序必须以runApp("Path/To/App", launch.browser = TRUE)启动 (这样就启动了本地服务器。)

library(shiny)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),
  htmlOutput("filecontainer")
)

server <- function(input, output, session){
  session$onFlushed(once = T, function(){
      runjs("
          console.log('I arrive here')
          $('#filecontainer').load(function(){
            console.log('But not here')  
            var iframe = $('#filecontainer').contents();
            iframe.find('#a').click(function(){
              alert('I want to arrive here');
            });
          });
      ")
  })  

  output$filecontainer <- renderUI({
    tags$iframe(src = "fileWithLink.html", height = 600, width = 1200)
  })
}

shinyApp(ui, server)

1 个答案:

答案 0 :(得分:5)

iframe包含在具有相关ID($('#filecontainer iframe'))的div中。有一个拼写错误调用锚标签。我更改了目标以避免交叉脚本问题:

library(shiny)
library(shinyjs)

ui <- fluidPage(
  useShinyjs(),
  htmlOutput("filecontainer")
)

server <- function(input, output, session){
  session$onFlushed(once = T, function(){
    runjs("
          console.log('I arrive here')
          $('#filecontainer iframe').load(function(){
            console.log('But not here')  
            var iframe = $('#filecontainer iframe').contents();
            iframe.find('a').click(function(){
              console.log('am i here')  
              alert('I want to arrive here');
            });
          });
          ")
  })  

  output$filecontainer <- renderUI({
    tags$iframe(src = "fileWithLink.html", height = 600, width = 1200)
  })
  }

shinyApp(ui, server)

fileWithLink.html

<html>
<body>
<a href="anotherpage.html">SOreadytohelp</a>
</body>
</html>

anotherpage.html

<html>
<body>
Another page
</body>
</html>