Posting from .Rmd to

Table of Contents

I’ve started making an R package called has an api which is in beta, which I’m using to power the package.


The first function was really just to make sure I could use the api at all. It gets all the articles for the authenticated user. What’s my most recent articles title?

## Using DEVTO in .Reinviron

## [1] "Tidy Tuesday and space to learn"

So how does this function work?

#' @title get the authenticated users articles
#' @description Provides lots of info on your users articles
#' @param key the api you have set up on DEV.TO
#' @return article stuff
#' @details if no key is supplied, will check for key named DEVTO in `.Renviron`
#' @examples
#' \dontrun{
#' if(interactive()){
#'  get_users_articles("my_api_key")
#'  }
#' }
#' @seealso
#'  \code{\link[httr]{content}},\code{\link[httr]{GET}},\code{\link[httr]{add_headers}}
#' @rdname get_users_articles
#' @export
#' @importFrom httr content GET add_headers

get_users_articles <- function(key = NA) {
  httr::content(httr::GET(url = "",
                          httr::add_headers("api-key" =
                                              if (! {
                                              } else {
                                                message("Using DEVTO in .Renviron")
                                                Sys.getenv(x = "DEVTO")

Very simply



So as R users, we have a great tool baked into our language: rmarkdown. I use it for nearly everything. We also have some great tools to magnify it’s power, such as R Notebooks, blogdown, package down and distill. Some great R people are making the effort to put content here such as Julia Silge (@juliasilge) and Colin Fay (@colinfay), though they are already well established bloggers, and are publishing from their main website through RSS. It’s a great solution for them but personally I was looking at as a great way to not have to have a whole website. So what do you do if you want to publish a blog, but don’t want to actually maintain a full website? What if you also want to be able to be part of the great community? What if you’re both of those things and also find you have a large volume of time on your hands? You write a package to put .Rmds onto as simply as possible.


My current process is this:

  1. Write an Rmarkdown
  2. Render to github_document style markdown
  3. Open the markdown file I just made
  4. Copy and paste the output to the UI
  5. Fill in the meta-date
  6. Hit publish

An ideal process would be:

  1. Write an Rmarkdown
  2. Hit publish

Lets see, that’s…

removed_work <- 4/6

## [1] "67%"

Wow, gains

Minimum Viable Function

So, the key piece of the package is to get a function that will jump my markdown output from my computer onto There are lots more bits that I should have, but that part is the most important.

#' @title Post a markdown file to
#' @description Create a new post well rendered markdown file
#' @param key Your API key, Default: NA
#' @param file The path to the file, Default: file
#' @return The response
#' @details Will look for an api key in the `.REnviron` file. Seems to check if the body is identical to a previous article and error if so with `"Body markdown has already been taken"`.
#' @examples
#' \dontrun{
#' if(interactive()){
#'  post_new_article("./articles/")
#'  }
#' }
#' @seealso
#'  \code{\link[httr]{POST}},\code{\link[httr]{add_headers}},\code{\link[httr]{verbose}},\code{\link[httr]{content}}
#'  \code{\link[readr]{read_file}}
#' @rdname post_new_article
#' @export
#' @importFrom httr POST add_headers verbose content
#' @importFrom readr read_file

post_new_article <- function(key = NA, file = file) {

  response <- httr::POST(
    url = "",
    httr::add_headers("api-key" =
                        if (! {
                        } else {
                          message("Using DEVTO in .Renviron")
                          Sys.getenv(x = "DEVTO")
    body = list(article = list(
      title = 'title',
      body_markdown = readr::read_file(file = file)
    encode = 'json',

Lots of similar things as the earlier function. Api key is all the same code (don’t worry, when I have to write it a third time, I’ll abstract it ;P). There are three key changes.

  1. use httr::POST instead of httr::GET because here I’m giving the api info, not requesting it.
  2. use the body argument to enclose the info I am sending the api, with a list of 1 item article which itself is a list of 2 items title and body_markdown
  3. use readr::read_file to read the markdown file I want to post into memory so it can be sent to the api

So does it work?

If you can read this, yes 🦾

Go to top

Read Next

Posting straight from Rmd to DEV.TO (for real this time)

Read Previous

Tidy Tuesday and space to learn