tar_format() functions: Use substitute() into function body rather than body<-

tar_format() functions: Use substitute() into function body rather than body<- #49