From 1e2ed95753cde82af50097f3743f099a06eee44c Mon Sep 17 00:00:00 2001
From: David Selby <qurk.kinschien@gmail.com>
Date: Sat, 30 Jan 2021 13:40:41 +0000
Subject: [PATCH] Avoid double "author:" on fallback

---
 R/create.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/create.R b/R/create.R
index 85ccc990..23e12ef1 100644
--- a/R/create.R
+++ b/R/create.R
@@ -157,7 +157,7 @@ create_post <- function(title,
   # if we still don't have an author then auto-detect
   if (is.null(author)) {
     author <- list(author = list(list(name = fullname(fallback = "Unknown"))))
-  } else { # if author is given as argument to function
+  } else if (is.character(author)) { # if author is given as argument to function
     author <- list(author = author)
   }
   # author to yaml