R/mpOut.R

In Peder2911/Comfy_In_Turns:

require(glue)

mpOut <- function(type = 'file',control){ 

	fio <- list()

	fileRead <- function(data, ...){
		inp <- readLines(control$folder)%>%
			glue_collapse(sep = '\n')
		inp

		}


	fio[['input']] <- fileRead
	fio


	}