Description
Seamless Integration of Sharing and Connect Buttons in Markdown and Apps.
Description
Implementation of 'JQuery' <https://jquery.com> and 'CSS' styles to allow easy incorporation of various social media elements on a page. The elements include addition of share buttons or connect with us buttons or hyperlink buttons to 'Shiny' applications or dashboards and 'Rmarkdown' documents.Sharing capability on social media platforms including 'Facebook' <https://www.facebook.com>, 'Linkedin' <https://www.linkedin.com>, 'X/Twitter' <https://x.com>, 'Tumblr' <https://www.tumblr.com>, 'Pinterest' <https://www.pinterest.com>, 'Whatsapp' <https://www.whatsapp.com>, 'Reddit' <https://www.reddit.com>, 'Baidu' <https://www.baidu.com>, 'Blogger' <https://www.blogger.com>, 'Weibo' <https://www.weibo.com>, 'Instagram' <https://www.instagram.com>, 'Telegram' <https://www.telegram.me>, 'Youtube' <https://www.youtube.com>.
README.md
r2social v1.2.1 is already here!
Let's make r2 social great again!
r2social R package: include social links and connect buttons in Rmarkdown and shiny applications
Official site: https://r2social.obi.obianom.com
NEW FEATURES ADDED!!!
2 Elegant profile cards features
- profileDisplay1()
- profileDisplay2()
View a live demo: r2social demo
The goal of this new R package is to provide functions that allow the inclusion of share and connect buttons on any page. This has been tested in Rmarkdown documents as well as on simply Shiny applications. See the examples folder of this package.
Features
Social links v1
Profile card v1
Profile card v2
Installation and Library Attachment
The r2social package is available on CRAN and can be installed as shown below
install.packages(r2social)
Attach library
library(shiny)
library(r2social)
Feature 2: Profile card with social links
Shiny application
ui <- fluidPage(
profileDisplay1(list(
a = list(
name = "Obi Obianom",
title = "Senior Scientist",
image = "https://r2social.obi.obianom.com/misc/team3.jpg",
social = list(
list(name = "x",
link = "https://x.com/R2Rpkg"),
list(name = "linkedin",
link = "https://linkedin.com/oobianom"),
list(name = "website",
link = "https://obianom.com"),
list(name = "youtube",
link = "https://youtube.com/R2Rpkg")
)
),
b = list(
name = "William Hane",
title = "Core Developer",
image = "https://r2social.obi.obianom.com/misc/team1.jpg",
social = list(list(name = "youtube",
link = "https://youtube.com/R2Rpkg"))
)
))
)
Rmarkdown application
profileDisplay1(list(
a = list(
name = "Obi Obianom",
title = "Senior Scientist",
image = "https://r2social.obi.obianom.com/misc/team2.jpg",
social = list(
list(name = "x",
link = "https://x.com/R2Rpkg"),
list(name = "linkedin",
link = "https://linkedin.com/oobianom"),
list(name = "website",
link = "https://obianom.com"),
list(name = "youtube",
link = "https://youtube.com/R2Rpkg")
)
),
b = list(
name = "William Hane",
title = "Core Developer",
image = "https://r2social.obi.obianom.com/misc/team4.jpg",
social = list(list(name = "youtube",
link = "https://youtube.com/R2Rpkg"))
)
))
Feature 1: Add social links on the sides
Shiny application
#ex 1 - to share various links
ui <- fluidPage(
r2social.scripts(),
shareButton(link = "https://rpkg.net", position = "left"),
shareButton(link = "https://shinyappstore.com", position = "inline"),
shareButton(link = "https://shinyappstore.com", plain = T, position = "inline"), #plain style
shareButton(link = "https://obianom.com", position = "right")
)
#ex 2 - to link your page to specific domain online
ui <- fluidPage(
r2social.scripts(),
# to my personal website
connectButton(link = "https://obianom.com", position = "inline",link.out = FALSE, visit.us = TRUE),
# to my Twitter/X page
connectButton(link = "https://x.com/R2Rpkg", position = "inline",link.out = FALSE, x = TRUE)
)
Rmarkdown document
library(r2social)
r2social.scripts()
shareButton(link = "https://rpkg.net", position = "left")
shareButton(link = "https://shinyappstore.com", position = "inline")
shareButton(link = "https://obianom.com", position = "right")