diff --git a/R/writeText.R b/R/writeText.R
new file mode 100644
index 0000000..d7167e4
--- /dev/null
+++ b/R/writeText.R
@@ -0,0 +1,11 @@
+#' @title writeText
+#' @description Write result (like those of of makeSRCPARAMtext) to a text file
+#' @param path Character. Filepath and filename
+#' @param inp_text Character. Result of makeSRCPARAMtext or similar
+#' @export
+
+writeText <- function(inp_text, path){
+  con <- file(path)
+  writeLines(inp_text, con)
+  close(con)
+}