When working with multiple patterns that will be woven into a template,
it makes sense to have all patterns stored in a central object. This
function creates that object from a named vector of filenames to be used
in further generation, importing the files via
extract_pattern
.
extract_draft(filepath, ...)
filepath | A valid character string to the plaintext file containing the pattern. |
---|---|
... | Keywords to be used by |
Returns a list (the same length as ...) containing the extracted patterns.
Other import functions:
extract_pattern()
,
import_draft()
,
import_pattern()
pattern_file <- tempfile("out", tempdir(), ".Rmd")
export_template("EXTRACT my sample pattern EXTRACT", pattern_file)
extract_draft(pattern_file, "one" = "EXTRACT")
#> $one
#> [1] " my sample pattern "
#>