Floating Share Buttons

[Sanjeev Singwi]

I would like to add floating share buttons to my shiny dashboard.  A vertical bar on the right hand side of the screen would work.  

The purpose would be for users to share my shiny app link on Twitter, Facebook and LinkedIn for example.  

I did try adding raw HTML code chunks for floating share buttons but was not getting anywhere.  

I am likely not understanding the code I need to add and how I add it to 

the dashboard template such as the one below.

Thanks in Advance

Sanjeev

#################################

library(shiny)

library(shinydashboard)

ui <- dashboardPage(

  

  dashboardHeader(title='My Dashboard'

    

    

  ),

  

  dashboardSidebar(

    

    

  ),

  

  dashboardBody(

    

    

  )

)

server <- function(input, output) {}

shinyApp(ui, server)

####################################