There is a function format_csv in package readr, which outputs csv formated output to string. It can be used as

to_console<-function(dta){
 cat(readr::format_csv(dta))
}


dta |> someoperation() |> to_console()