Custom print method for rco output

[ColinFay]

Woud be nice to have a custom print method:

Current:

code <- paste(
  "code_to_optimize <- 8 ^ 8 * 1918",
  "cto <- code_to_optimize * 2",
  sep = "\n"
)
res <- optimize_text(code)
res
[1] "code_to_optimize <- 32178700288\ncto <- 64357400576"

Could be improved with:

code <- paste(
  "code_to_optimize <- 8 ^ 8 * 1918",
  "cto <- code_to_optimize * 2",
  sep = "\n"
)
res <- optimize_text(code)
class(res) <- c("rco.output", class(res))
print.rco.output <- function(x, ...){
  cat(x)
}
res
code_to_optimize <- 32178700288
cto <- 64357400576

# Or maybe
print.rco.output <- function(x, ...){
  cli::cat_rule("Optimized code:")
  cat(x)
}
res
── Optimized code: ─────────────────────────────────────
code_to_optimize <- 32178700288
cto <- 64357400576

Can also PR that :)

[jcrodriguez1989]

Hi @ColinFay ,
thank you very much for these two issues :D
I will be working on #69 as it needs documentation, testing, etc.
However, I would really appreciate if you could PR this one :)
thanks!

[ColinFay]

Nice.

So as suggested in #69, no cli::cat_rule as it's not from base?

[jcrodriguez1989]

Exactly, I would rather prefer the first option (no cli::).
Also, I could not find the code styling for class names. As far as I remember, the correct name for rco output would be RcoOutput, but I don't remember, so I would adhere to what you think.