The hardware and bandwidth for this mirror is donated by METANET, the Webhosting and Full Service-Cloud Provider.
If you wish to report a bug, or if you are interested in having us mirror your free-software or open-source project, please feel free to contact us at mirror[@]metanet.ch.
Let’s make r2 social great again!
2 Elegant profile cards features
The r2social package is available on CRAN and can be installed as shown below
install.packages(r2social)
Attach library
library(shiny)
library(r2social)
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"))
)
))
)
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"))
)
))
#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)
)
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")
These binaries (installable software) and packages are in development.
They may not be fully stable and should be used with caution. We make no claims about them.