在闪亮的应用程序中嵌入 iframe

本文介绍了在闪亮的应用程序中嵌入 iframe的处理方法，对大家解决问题具有一定的参考价值，需要的朋友们下面随着小编来一起学习吧！ 问题描述

这是我的用户界面.

shinyUI(fluidPage(titlePanel("Getting Iframe"), sidebarLayout( sidebarPanel( fluidRow( column(6, selectInput("Member", label=h5("Choose a option"), choices=c('BCRA1','FITM2')) ))), mainPanel(fluidRow( column(3, htmlOutput("frame")) ) ) )))

这是我的服务器.R

library(shiny) members <- data.frame(name=c("Name 1", "Name 2"), nr=c('BCRA1','FITM2')) shinyServer(function(input, output) { loadframe <- reactive({ validate( need(input$Member, "Member input is null!!") ) query <- members[which(members$nr==input$Member),2] paste0("news.scibite/scibites/news.html?q=GENE$",query) }) output$frame <- renderUI({ tags$iframe(src=loadframe(), height=600, width=535) }) })

我想从网页中获取 iframe，但它的打印为空白，对此有何帮助将不胜感激?

I want to get the iframe from the web page but its printing blank any help on this would be appreciated ?

推荐答案

library(shiny) members <- data.frame(name=c("Name 1", "Name 2"), nr=c('BCRA1','FITM2')) ui <- fluidPage(titlePanel("Getting Iframe"), sidebarLayout( sidebarPanel( fluidRow( column(6, selectInput("Member", label=h5("Choose a option"),choices=c('BCRA1','FITM2')) ))), mainPanel(fluidRow( htmlOutput("frame") ) ) )) server <- function(input, output) { observe({ query <- members[which(members$nr==input$Member),2] test <<- paste0("news.scibite/scibites/news.html?q=GENE$",query) }) output$frame <- renderUI({ input$Member my_test <- tags$iframe(src=test, height=600, width=535) print(my_test) my_test }) } shinyApp(ui, server)