# NOT RUN {
template <- "{1} meets {2}"
fill_in(template, "Peter", "Paul") ## "Peter meets Paul"
template <- "{one} meets {other}"
fill_in(template, one = "Peter", other = "Paul") ## "Peter meets Paul"
## handling missing values
fill_in("{name}: {score}", name = "Peter", score = NA)
## [1] "Peter: NA"
fill_in("{name}: {score}", name = "Peter", score = NA, replace.NA = ".")
## [1] "Peter: ."
# }
Run the code above in your browser using DataLab