Как управлять изображением и текстом в социальных сетях при совместном использовании блестящих приложений в социальных сетях (развернуто с помощью shinyapps.io) - PullRequest
Новая
       14

Как управлять изображением и текстом в социальных сетях при совместном использовании блестящих приложений в социальных сетях (развернуто с помощью shinyapps.io)

0 голосов
/ 26 марта 2019

Когда я делюсь своим shinyapp в социальных сетях, под изображением заголовка отображается код, который выглядит не очень хорошо. Как я могу контролировать изображение и текст в социальной сети для моего shinyapp? Я развернул приложение, используя shinyapps.io.

См. Изображение ниже как пример:

enter image description here

Ссылка на приложение: https://regionalinnovationdatalab.shinyapps.io/Dashboard/

Ссылка на Gitlab, где можно найти код приложения и данные: https://gitlab.com/r.chappell/2019_ElectionApp_RIDL

Код из пользовательского интерфейса, в который вставлено изображение заголовка: 

     ui <- shiny::fluidPage( #use fluid page so that the app adjusts to the user's screen size and device

    titlePanel(div(img(src='DATA DASHBOARD V3.png', height = 80))), #header title with image as the whole header ( must save header image in a subfolder titled 'www')
  tags$head(tags$style(
    type="text/css",
        "img {max-width: 100%; width: 100%; height: auto}" #makes image size responsive to device and screen
    )),
    theme = "journal", #selected theme from shinythemes package
   title=" RIDL: 2019 Election App", #title of web brower tab
    br(),

1 Ответ

0 голосов
/ 04 апреля 2019

Обратившись за помощью в службу поддержки R studio, они сказали, что возникла проблема с кодом java-скрипта при публикации на shinyapps.io, поэтому он не работал.

В итоге я нашел работу.

Я изменил этот код: 

 ui <- shiny::fluidPage( #use fluid page so that the app adjusts to the user's screen size and device

    titlePanel(div(img(src='DATA DASHBOARD V3.png', height = 80))), #header title with image as the whole header ( must save header image in a subfolder titled 'www')
  tags$head(tags$style(
    type="text/css",
        "img {max-width: 100%; width: 100%; height: auto}" #makes image size responsive to device and screen
    )),

К этому: 

  ui<-shiny::fluidPage(
    titlePanel(div(img(src='DATA_DASHBOARD_V3.png', height = "auto", width = "100%")))),

Этот код удаляет код java-скрипта, который отображался ранее, но он не содержит миниатюрное изображение при публикации в Facebook. R Studio говорит, что они работают над этой проблемой, но пока что это решение.

enter image description here

...