R/connectButton.R

In r2social: Seamless Integration of Sharing and Connect Buttons in Markdown and Apps

#' Add Connect with us buttons
#'
#' Buttons for others to connect socially to you
#'
#' @param link the direct link to connect to
#' @param image image link only for pinterest
#' @param text text link for X
#' @param position position of buttons e.g "left","right","bottom","inline"
#' @param display.inline TRUE or FALSE if the button should be inline
#' @param visit.us visit custom link
#' @param plain logical. with or without background
#' @param link.out visit custom link
#' @param facebook link to an account on Facebook
#' @param linkedin link to an account on Linkedin
#' @param x link to an account on X
#' @param tumblr link to an account on Tumblr
#' @param pinterest link to an account on Pinterest
#' @param instagram link to an account on Instagram
#' @param whatsapp link to an account on Whatsapp
#' @param reddit link to an account on Reddit
#' @param blogger link to an account on blogger
#' @param weibo link to an account on weibo
#' @param tiktok link to an account on tiktok
#' @param vk link to an account on VK or VKontakte
#' @param telegram link to an account on Telegram
#' @param youtube link to an account on Youtube
#' @param bg.col background color for the icons.
#'
#' @note
#' 'bg.col' argument is only functional if 'plain' argument is set to false
#'
#' @section Examples for r2social:
#' More examples and demo pages are located at this link -
#' \url{https://r2social.obi.obianom.com}.
#'
#' @return Connect with me/us button via social links
#'
#' @examples
#' connectButton(
#' link = "//rpkg.net",
#' visit.us = TRUE,
#' position = "left")
#' connectButton(
#' link = "//www.linkedin.com/in/oobianom",
#' linkedin = TRUE,
#' position = "right")
#' connectButton(
#' link = "//x.com/R2Rpkg",
#' x = TRUE, position = "inline")
#'
#' # NOT styled
#' connectButton(
#' link = "//rpkg.net",
#' visit.us = TRUE,
#' position = "left")
#' connectButton(
#' link = "//www.linkedin.com/in/oobianom",
#' linkedin = TRUE,
#' plain = TRUE,
#' position = "right")
#' connectButton(
#' link = "//x.com/R2Rpkg",
#' x = TRUE, position = "inline")
#'
#' @export

connectButton <- function(link,
                          image = NULL,
                          text = NULL,
                          position = c("left", "right", "inline"),
                          display.inline = TRUE,
                          link.out = TRUE,
                          bg.col = NULL,
                          plain = FALSE,
                          visit.us = FALSE,
                          facebook = FALSE,
                          linkedin = FALSE,
                          x = FALSE,
                          tumblr = FALSE,
                          pinterest = FALSE,
                          whatsapp = FALSE,
                          reddit = FALSE,
                          instagram = FALSE,
                          blogger = FALSE,
                          weibo = FALSE,
                          tiktok = FALSE,
                          vk = FALSE,
                          telegram = FALSE,
                          youtube = FALSE) {
  # fetch selected position
  position <- match.arg(position)

  # fetch button by type
  shiny::div(
    style = paste0("display:", ifelse(display.inline, "inline-block", "unset")),
    socialButtons(
      link = link,
      type = "connect",
      image = image,
      text = text,
      plain = plain,
      position = position,
      text.color = "white",
      facebook = facebook,
      linkedin = linkedin,
      bg.col = bg.col,
      x = x,
      tumblr = tumblr,
      pinterest = pinterest,
      whatsapp = whatsapp,
      reddit = reddit,
      instagram = instagram,
      blogger = blogger,
      weibo = weibo,
      tiktok = tiktok,
      vk = vk,
      link.out = link.out,
      visit.us = visit.us,
      telegram = telegram,
      youtube = youtube
    )
  )
}