Reads all lines from a text file and collapses them with newline separators.
Examples
prompt_file <- tempfile(fileext = ".md")
writeLines(c("Use only retrieved context.", "Cite source labels."), prompt_file)
read_text_file(prompt_file, label = "Example prompt")
#> [1] "Use only retrieved context.\nCite source labels."
