R/add_bookmark_to_channel.R

In VincentGuyader/slack: Use slack API

#' add_bookmark_to_channel
#'
#' @param channel channel
#' @param bookmark as list
#' @param token slack api token
#' @importFrom httr POST
#' @export
#'
#' @examples
#'
#'
#' \dontrun{
#'
#' add_bookmark_to_channel(
#' channel = "bac_a_sable_2010bis",
#' bookmark = list(
#'   title = "hophophop4",
#'   link = "https://www.google.fr",
#'   emoji = ":kekette:"
#' )
#' )
#'
#'
#'
#'
#'
#'
#' }
#'
#'
#'
#'
#'
#'
add_bookmark_to_channel <- function(channel,bookmark,
                                    all_channel = slackr::slackr_channels(),


                                    token=Sys.getenv("SLACK_API_TOKEN")){
  bookmark[is.na(bookmark)]<-NULL
  # bookmark <- list(title="hophophop3",link = "https://www.google.fr",emoji = NULL)
  # channel <- "random"
  res <- httr::POST(url="https://slack.com/api/bookmarks.add",
                    body=list( token= token,
                               title=bookmark$title,
                               emoji = bookmark$emoji,
                               # emoji = ":kekette:",
                               type = "link",
                               link=bookmark$link,
                               # parent_id = bookmark$parent_id,
                               channel_id =
                                 slack::get_channel_id(name = channel,all_channel = all_channel )))
  # print(httr::content(res))
  # Sys.sleep(1)
  invisible(channel)
}



#' Title
#'
#' @param channel channel
#' @param bookmarks bookmarks
#' @param token token
#'
#' @export
#'
# add_bookmarks_to_channel <- function(channel,bookmarks, token=Sys.getenv("SLACK_API_TOKEN")){
#
#
#   for (bookmark in bookmarks){
#
#   add_bookmark_to_channel(channel = channel,token = token,bookmark = bookmark)
#
#   }
# }
add_bookmarks_to_channel <- function(channel,bookmarks,all_channel = slackr::slackr_channels(), token=Sys.getenv("SLACK_API_TOKEN")){


  bookmark_to_edit <- transfo_list(old = slack::get_all_bookmarks_from_channel(channel = channel,all_channel = all_channel),
                                   new = bookmarks

  )
  for ( bk in bookmark_to_edit){
    if (!is.null(bk$id) && !is.na(bk$id)){

      edit_bookmark(bookmark =bk,channel = channel,token = token,all_channel = all_channel)
    } else{

      slack::add_bookmark_to_channel(channel = channel,bookmark = bk,token = token,all_channel = all_channel)

    }

  }
}