2017-07-22 39 views
3

難以在Twitter應用中嵌入Twitter時間線。如何在Twitter應用程序中嵌入Twitter時間線?

試圖按照這種代碼

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(
     a("Soccer", class="twitter-timeline" 
     , href = "https://twitter.com/pssGuy/timelines/524678699061641216" 
     , "data-widget-id" = "524686407298596864") 
    ) 
) 
) 
, server = function(input, output, session){ 

} 
) 
) 

但現在Twitter已經改變了他們的生產部件我無法弄清楚如何讓秋冬新品的數據控件ID的方式。不是超級熟悉HTML或JS,所以任何幫助將不勝感激!

希望嵌入「https://twitter.com/CityOfBoston

回答

2

編輯的時間線包括重新格式化爲帶標籤光澤的儀表板頁面OP意見。 我不認爲你需要data-widget-id了。這爲我加載時間線。

library(shiny) 
runApp(list(ui = dashboardPage(header=dashboardHeader(titleWidth=150, 
           title = "Title"), 
         sidebar=dashboardSidebar(width=150, 
           sidebarMenu(
             menuItem("Twitter Timeline", tabName="twittertimeline", icon=icon("globe")), 
             menuItem("Empty Tab", tabName = "empty", icon=icon("info-circle")) 
           ) 
         ), 
         body=dashboardBody(
           tabItems(
             tabItem(tabName="twittertimeline", 
               fluidRow(column(width=12, 
         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");')), 
         column(width=6, box(width=NULL, height=NULL, 
             a("Tweets by @CityOfBoston", class="twitter-timeline" 
               , href = "https://twitter.com/CityOfBoston" 
             ) 
           ) 
         ) 
       ))), 
tabItem(tabName="empty", 
     fluidRow(column(width=12, 
         box(width=NULL,height=NULL) 
         ))) 

))) 
       , server = function(input, output, session){ 

       } 
     ) 
) 
+0

問題,這個獨立工作,但有問題即時得到它使用dashboardPage(當一個閃亮的儀表盤選項卡,在裏面工作),而不是fluidPage()我得到的錯誤_Error在tagAssert(頭,TYPE =「頭」 ,class =「main-header」): 預期標記爲header_類型 –

+0

上面的代碼應該更新以反映重新格式化爲閃亮的儀表板頁面。 – Tiffany

相關問題