Alternatives to sink()

Question

I\'d like to write the output and messages to a file. I have this function-

  conn <- file("file")
  
  sink(conn, append=TRUE)
  sink(conn, append=T