R閃亮 - 傳遞Youtube鏈接到iframe

Question

我想通過點擊動作按鈕的一些Youtube嵌入式鏈接，但無法做到這一點，我已經嘗試了下面附加的一些代碼，我嘗試從服務器傳遞鏈接到UI，可有一個人幫我找到以下問題的解決方案：

這裏有一些假的碼：

ui.r

library(shiny) 
library(shinyLP) 

shinyUI(fluidPage(
     titlePanel("Title"), 
     sidebarLayout(
     sidebarPanel(
      actionButton("analyse1","Link 1"), 
      actionButton("analyse2","Link 2"), 
      iframe(width = "250", height = "150",url_link =s5)), #s5 in server.r are reactive youtube links 
     mainPanel(
textOuput("textOut") 
     )) 
    )) 

server.r

shinyServer(
    function(input,output,session){ 

    terms1<-reactiveValues(dta = NULL) 

    observeEvent(input$analyse1,{withProgress({ 
     setProgress(message = "Please Wait...") 
     terms1$dta<-"Video 1" 
     s5<-"https://www.youtube.com/embed/XQTAD9P5A1U"})}) 

    observeEvent(input$analyse2,{withProgress({ 
     setProgress(message = "Please Wait...") 
     terms1$dta<-"Video 2" 
     s5<-"https://www.youtube.com/embed/em1u7iO9D1k"})}) 

output$textOut<-renderText({ 
    (terms1$dta) 
}) 

    } 
) 

Answer 1

您需要從服務器呈現html。這可以使用服務器中的renderUI和ui中的htmlOutput完成。

這個簡單的應用程序可以幫助你開始：

shinyApp(
    ui = fluidPage(titlePanel("Title"), 
       mainPanel(htmlOutput("video"))), 
    server = function(input, output, session) { 
    output$video <- renderUI({ 
     tags$iframe(src = "https://www.youtube.com/embed/XQTAD9P5A1U") 
    }) 
    } 
) 

而且，在這裏它與操作按鈕：

ui <- fluidPage(titlePanel("Title"), 
       sidebarLayout(
        sidebarPanel(
        actionButton("analyse1", "Link 1"), 
        actionButton("analyse2", "Link 2") 
       ), 
        mainPanel(htmlOutput("video")) 
       )) 


server <- function(input, output, session) { 
    terms1 <- reactiveValues(link = NULL) 

    observeEvent(input$analyse1, { 
    terms1$link <- "https://www.youtube.com/embed/XQTAD9P5A1U" 
    }) 

    observeEvent(input$analyse2, { 
    terms1$link <- "https://www.youtube.com/embed/em1u7iO9D1k" 
    }) 

    output$video <- renderUI({ 
    tags$iframe(src = terms1$link, width = 600, height = 400) 
    }) 
} 
shinyApp(ui = ui, server = server)