У меня есть приложение Shiny, в котором есть виджет для публикации твита с предварительно загруженным текстом. Он отображается в приложении в виде кнопки с надписью «Твитнуть», которая отправляет текст, расположенный в строке текста данных тегов $ div раздела кода. Я также хотел бы иметь возможность включать изображение диаграммы ggplot в твит, который создается, когда люди используют приложение Shiny в Интернете.
Возможно ли это вообще? Я видел предложения о том, что карты Twitter могут быть вариантом, но я не знаком с ними и не знаю, как заставить их работать в этом инструменте.
Ниже мой минимальный представитель. Приложение размещено на ffevaluator.com/tools/draftevaluator, если вы хотите увидеть приложение в его полной форме.
ui:
ui <- fluidPage(
mainPanel(
plotOutput("draftPlot"),
tags$div(
HTML("<div style='float:right'>
<a href='https://twitter.com/share'
class='twitter-share-button'
align='middle'
data-url='www.mywebsite.com'
data-text='Insert text here!'
data-size='large'>Tweet
</a>
<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>
</div>")
)) )
server:
server <- function(input, output) {
output$draftPlot <- renderPlot({
ggplot() +
geom_smooth() +
geom_point()
})
}
Я также разместил это на веб-сайте сообщества RStudio (здесь: https://community.rstudio.com/t/attach-ggplot-image-to-tweet-through-twitter-share-widget-in-shiny-app/67867 ), но пока не получил никаких ответов.