update footnote blarghing

DESCRIPTION

@@ -1,6 +1,6 @@
 Package: pegboard
 Title: Explore and Manipulate Markdown Curricula from the Carpentries
-Version: 0.2.2
+Version: 0.2.3
 Authors@R:c(
     person(given = "Zhian N.",
            family = "Kamvar",

NEWS.md

@@ -1,15 +1,22 @@
+# pegboard 0.2.3
+
+## BUG FIX
+
+ - footnotes with no trailing newline are no longer accidentally appended with
+   relative link anchors when `getOption('sandpaper.links')` is not NULL.
+
 # pegboard 0.2.2
 
+## NEW FEATURES
+
  - If `getOption("sandpaper.links")` is not NULL (in the context of a {sandpaper}
    lesson) and is a valid file, it will be appended to any file read in via 
    `Episode$new()`
- - `$validate_links()` no longer throws warnings about short or uninformative
-   text for link anchors (@zkamvar, #81)
 
-# pegboard 0.2.1
+## BUG FIX
 
- - External links files are now appended if the `sandpaper.links` option is set
-   to a valid file. 
+ - `$validate_links()` no longer throws warnings about short or uninformative
+   text for link anchors (@zkamvar, #81)
 
 # pegboard 0.2.1
 

R/Episode.R

@@ -38,6 +38,7 @@ Episode <- R6::R6Class("Episode",
         # if we have links, we concatenate our input files 
         tmpin <- tempfile(fileext = ".md")
         fs::file_copy(path, tmpin)
+        cat("\n", append = TRUE, file = tmpin)
         file.append(tmpin, links)
         path <- tmpin
         on.exit(unlink(tmpin), add = TRUE)

tests/testthat/test-Episode.R

@@ -36,8 +36,8 @@ test_that("Episodes from sandpaper will have links included", {
 
   tnk <- withr::local_tempfile()
   tep <- withr::local_tempfile()
-  writeLines("What [is this][link]?\n", tep)
-  writeLines("<!--comment-->\n\n[link]: https://example.com/link", tnk)
+  writeLines("What[^1] [is this][link]?\n[^1]: foot", tep)
+  writeLines("[link]: https://example.com/link", tnk)
   e <- Episode$new(tep, fix_links = FALSE)
   expect_length(e$links, 0L)
   withr::local_options(list(sandpaper.links = tnk))