R/post_reprex.R

In yonicd/slackreprex: Reprex for Slack

post_reprex <- function(block, channel, text = NULL, token = Sys.getenv('SLACK_API_TOKEN')){
  UseMethod('post_reprex')
}

post_reprex.no_thread <- function(block, channel, text = NULL, token = Sys.getenv('SLACK_API_TOKEN')){
  
  res <- slackblocks::post_block(
    channel = channel, 
    block   = block,
    token   = token
  )
  
  return(invisible(res))
}

post_reprex.new_thread <- function(block, channel, text = NULL, token = Sys.getenv('SLACK_API_TOKEN')){
  
  slackblocks::post_block(
    channel = channel, 
    block   = slackblocks::block_text(text = text),
    token   = token
  )
  
  slackblocks::post_block(
    block = block,
    channel = slackposts::post_last()
  )
  
}

post_reprex.existing_thread <- function(block, channel, text = NULL, token = Sys.getenv('SLACK_API_TOKEN')){
  
  if(!is.null(text)){
    
    slackblocks::post_block(
      block   = slackblocks::block_text(text = text),
      channel = channel,
      token   = token
    )  

    slackblocks::post_block(
      block   = block,
      channel = slackposts::post_last(),
      token   = token
    )
    
  }else{
  
    slackblocks::post_block(
      block   = block,
      channel = channel,
      token   = token
    )
      
  }
  
}