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, ...)

Arguments

filepath

A valid character string to the plaintext file containing the pattern.

...

Keywords to be used by extract_pattern to extract each pattern. If arguments to ... are named, the returned draft will have the same names.

Value

Returns a list (the same length as ...) containing the extracted patterns.

See also

Other import functions: extract_pattern(), import_draft(), import_pattern()

Examples

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 "
#>