use html_fragment and default to full rss

Author: javierluraschi

R/sitemap.R

@@ -126,16 +126,11 @@ write_feed_xml_html_content <- function(input_path, article, site_config) {
 
   # fix headers
   rmd_content <- paste0(readLines(input_path), collapse = "\n")
-  headers <- stringr::str_locate_all(rmd_content, "---")
-  if (nrow(headers[[1]]) >= 2) {
-    rmd_content <- stringr::str_sub(rmd_content, headers[[1]][2,2] + 1)
-  }
-
   writeLines(rmd_content, rmd_file)
 
   # render doc
   rmarkdown::render(rmd_file,
-                    output_format = "html_document",
+                    output_format = "html_fragment",
                     output_file = html_file,
                     quiet = TRUE,
                     output_options = list(
@@ -145,8 +140,6 @@ write_feed_xml_html_content <- function(input_path, article, site_config) {
 
   # extract body
   html_contents <- paste(readLines(html_file), collapse = "\n")
-  html_contents <- gsub(".*<body[^>]*>", "", html_contents)
-  html_contents <- gsub("</body>.*", "", html_contents)
 
   # fix image paths
   html_contents <- gsub(paste0(basename(dirname(rmd_file)), "/"),
@@ -180,7 +173,7 @@ write_feed_xml <- function(feed_xml, site_config, collection, articles) {
     "xmlns:dc" = "http://purl.org/dc/elements/1.1/"
   )
 
-  if (identical(site_config$rss$full_content, TRUE))
+  if (!identical(site_config$rss$full_content, FALSE))
       namespaces <- c(namespaces, list("xmlns:distill" = "https://distill.pub/journal/"))
 
   # create document root
@@ -240,7 +233,7 @@ write_feed_xml <- function(feed_xml, site_config, collection, articles) {
     add_child(item, "link", text = article$base_url)
 
     full_content_path <- NULL
-    if (identical(site_config$rss$full_content, TRUE) && is.character(article$input_file)) {
+    if (!identical(site_config$rss$full_content, FALSE) && is.character(article$input_file)) {
       guess_rmd <- paste0(gsub("\\.utf.*\\.md|\\.md", "", article$input_file), ".Rmd")
       full_content_path <- dir(getwd(), pattern = guess_rmd, full.names = TRUE, recursive = TRUE)
     }