R/remove_all_bookmarks_from_channel.R

In VincentGuyader/slack: Use slack API

#' Title
#'
#' @param channel
#' @param bookmark
#' @param all_id
#' @param token
#'
#' @importFrom httr POST content
#' @importFrom purrr map set_names
#' @export
#'
remove_all_bookmarks_from_channel <- function(all_id = get_all_bookmarks_id_from_channel(channel = channel,all_channel = all_channel,token = token),
                                              channel, all_channel = slackr::slackr_channels(),token=Sys.getenv("SLACK_API_TOKEN")){

  remove_bookmarks_from_channel(ids = all_id,channel = channel, token = token,all_channel = all_channel )
}
#' Title
#'
#' @param ids
#' @param channel
#' @param bookmark
#' @param token
#'
#' @return
#' @export
#'
#' @examples
remove_bookmarks_from_channel <- function(ids,channel,
                                          token=Sys.getenv("SLACK_API_TOKEN"),
                                          all_channel = slackr::slackr_channels()){

  res <-   ids %>%
    map(
      ~httr::POST(url="https://slack.com/api/bookmarks.remove",
                  body=list( token= token,
                             # title=bookmark$title,
                             # emoji = bookmark$emoji,
                             # emoji = ":kekette:",
                             # type = "link",
                             # link=bookmark$link,
                             bookmark_id =.x,
                             channel_id =
                               slack::get_channel_id(name = channel,
                                                     all_channel = all_channel)))


    ) %>% map(httr::content) %>% set_names(ids)
  # Sys.sleep(1)
  invisible(res)
}


#' Title
#'
#' @param channel
#' @param token
#' @importFrom httr POST content
#' @importFrom purrr map set_names
#' @export
#'
get_all_bookmarks_from_channel <- function(channel, all_channel = slackr::slackr_channels(),token=Sys.getenv("SLACK_API_TOKEN")){

    res <- httr::POST(url="https://slack.com/api/bookmarks.list",
                    body=list( token= token,
                               # title=bookmark$title,
                               # emoji = bookmark$emoji,
                               # emoji = ":kekette:",
                               # type = "link",
                               # link=bookmark$link,
                               # bookmark_id =,
                               channel_id =
                                 slack::get_channel_id(name = channel,all_channel = all_channel)))
 out <- httr::content(res)
  # Sys.sleep(1)
  invisible(out)
}



#' Title
#'
#' @param channel
#' @param token
#' @importFrom purrr map_chr
#' @export
#'
get_all_bookmarks_id_from_channel<- function(channel,all_channel = slackr::slackr_channels(), token=Sys.getenv("SLACK_API_TOKEN")){


  out <- get_all_bookmarks_from_channel(channel = channel, token = token,all_channel=all_channel)
  out$bookmarks %>% map_chr("id")
}



edit_bookmark <- function(channel,bookmark,all_channel = slackr::slackr_channels(), token=Sys.getenv("SLACK_API_TOKEN")){

  bookmark[is.na(bookmark)]<-NULL


  res <- httr::POST(url="https://slack.com/api/bookmarks.edit",
                    body=list( token= token,
                               title=bookmark$title,
                               emoji = bookmark$emoji,
                               # emoji = ":kekette:",
                               # type = "link",
                               link=  bookmark$link,
                               bookmark_id = bookmark$id,
                               channel_id =
                                 slack::get_channel_id(name = channel,all_channel = all_channel)))


  invisible(httr::content(res))


}

#' @importFrom dplyr bind_rows rows_update
#' @importFrom dplyr anti_join
transfo_list <- function(old,new){
  avant <-  old$bookmarks %>% bind_rows()

  nouveau_titre <-  apres <- new %>% bind_rows()

  if (nrow(avant) > 0) {
    nouveau_titre <- anti_join(apres, avant, by = "title")
  }
  apres_ok <- anti_join(apres, nouveau_titre, by = "title")

  socle <- NULL
  if (nrow(avant) > 0) {
    socle <- rows_update(avant , apres_ok, by = "title")
  }

  #  %>%
  socle %>%
    bind_rows(nouveau_titre)%>%
    asplit(1) %>%
    map(as.list)

}