a helper function to deal with structure(NULL)

atyre2 · Apr 24, 2017 · b7e11d3 · b7e11d3
1 parent f950970
commit b7e11d3
Showing 1 changed file with 5 additions and 0 deletions.
diff --git a/inst/homepage/sitemap.R b/inst/homepage/sitemap.R
@@ -15,6 +15,11 @@ pinned_urls = c(
 
 book_listing = function() {
 
+  structure = function(x, ...) {
+    if (is.null(x)) x = list()
+    base::structure(x, ...)
+  }
+
   read_meta = function(xml) {
     if (!grepl('[.]xml$', xml)) {
       return(data.frame(url = readLines(xml), lastmod = NA))