fs_create_authors doesn't work

[cboettig]

also means we cannot use fs_create or fs_new_article with an undefined author.

[cboettig]

  # We need a unique name...
  library(uuid)
  full_name = paste("John", UUIDgenerate())

  author_id <- fs_create_author(full_name)
  expect_is(author_id, "numeric")

  # If we try to create the same author, 
  expect_warning(id <- fs_create_author(full_name))
 # expect to get back the original id  ## NOT implemented in the figshare API yet! Emailed Mark 
 # expect_equal(id, author_id)

  MrX <- paste("John", UUIDgenerate())
  id <- fs_new_article(title="title", description="description", 
                 authors = c("Karthik Ram", MrX))
  d <- fs_details(id)

  # Expect that Mr X is now the third author
  expect_match(sapply(d$authors, `[[`, "last_name")[[3]], strsplit(MrX, ' ')[[1]][2])