Что за ошибка в моем блестящем приложении, которое показывает iframe?

Question

Я хочу использовать iframe внутри блестящего приложения. Я новичок в R и блестящий. Это мой код:

library(shinyLP)
library(shiny)

ui <- fluidPage(
  fluidRow(
    htmlOutput("frame")    
  )
)

server <- function(input, output,session) {

    output$frame <- renderUI({
      link <- "http://www.ogame.de"
      Frame <- tags$iframe(width = "1042", height = "823", url_link = link)
      Frame
  })
}

shinyApp(ui, server)

Если я запускаю приложение во фрейме "Не найдено" вместо Google. В чем проблема?

Answer 1

Put the link into the tags, like so:

    server <- function(input, output,session) {

      output$frame <- renderUI({
        Frame <- tags$iframe(src = "http://www.ogame.de",width = "1042", height = "823")
        Frame
      }) 
}

Вам не нужен пакет shinyLP для отображения iFrame.

Answer 2

Вы ищете это?

library(shinyLP)
library(shiny)

ui <- fluidPage(
  fluidRow(
    htmlOutput("frame")    
  )
)

server <- function(input, output,session) {

  output$frame <- renderUI({
    link <- "http://www.ogame.de"
    Frame <- iframe(width = "1042", height = "823", url_link = link)
    Frame
  })
}

shinyApp(ui, server)

(откройте его с помощью браузера)