Rシャイニーのアプリに特定のツイートが埋め込まれています

Question

私はWebやそのすべてのことについて全く新しい初心者です。 は、Shinyアプリのユーザー入力から特定のツイートを表示したいと思っています。 ここに私のこの記事からの試みがあります：How can i embed a twitter timeline in a shiny app?。私はこのツイートを表示しようとしている：https://twitter.com/AndrewYNg/status/894994683931148288

library(shiny) 
runApp(list(ui = fluidPage(
    tags$head("<script>!function(d,s,id){var js,fjs=d.getElementsByTagName(s) [0],p=/^http:/.test(d.location)?'http':'https';if(!d.getElementById(id)){js=d.createElement(s);js.id=id;js.src=p+'://platform.twitter.com/widgets.js';fjs.parentNode.insertBefore(js,fjs);}}(document,'script','twitter-wjs');</script>"), 
    titlePanel(""), 
    sidebarLayout(
    sidebarPanel() 
    , mainPanel(
     a("Tweets by Andrew Ng", class="twitter-tweet" 
     , href = "https://twitter.com/AndrewYNg/status/894994683931148288" 
    ) 
    ) 
) 
) 
, server = function(input, output, session){ 

} 
) 
) 

それはつぶやきが、つぶやきへのリンクは表示されません。私はタグ$頭が良いものを含んでいないと思うが、私はそれが何であるべきかを理解できない。

Answer 1

1. shiny::HTML()にスクリプトをラップすると、コンテンツがHTMLエスケープされないようになります。あなたの例では<script>が<script>にエスケープされています。以上、shiny::tags$script()

2. を使用ツイートを埋め込むとマークアップが正しいことを確認する方法を確認するためにTwitterのドキュメントを確認してください：https://dev.twitter.com/web/embedded-tweets

library(shiny) 

runApp(list(
    ui = fluidPage(
    tags$head(
     tags$script("!function(d,s,id){var js,fjs=d.getElementsByTagName(s) [0],p=/^http:/.test(d.location)?'http':'https';if(!d.getElementById(id)){js=d.createElement(s);js.id=id;js.src=p+'://platform.twitter.com/widgets.js';fjs.parentNode.insertBefore(js,fjs);}}(document,'script','twitter-wjs');") 
    ), 
    titlePanel(""), 
    sidebarLayout(
     sidebarPanel(), 
     mainPanel(
     HTML(' 
     <blockquote class="twitter-tweet" data-lang="en"><p lang="en" dir="ltr"> 
      Want to break into AI? You can learn Deep Learning from new deeplearning.ai courses on Coursera: 
      <a href="https://www.coursera.org/specializations/deep-learning">https://www.coursera.org/specializations/deep-learning</a></p>&mdash; Andrew Ng (@AndrewYNg) 
      <a href="https://twitter.com/AndrewYNg/status/894994683931148288?ref_src=twsrc%5Etfw">August 8, 2017</a> 
     </blockquote> 
     ') 
    ) 
    ) 
), 
    server = function(input, output, session) {} 
)) 

を私はつぶやきのために、生のHTMLを使用し、 HTMLタグオブジェクトに変換することができます。