1

I ran a function which produced the following messages:

[Output truncated]No imagary was found at location 13.51418,100.525398094512No imagary was found at location 13.5142126237624,100.519283133217No imagary was found at location 13.5142452475248,100.667925324763No imagary was found at location 13.5142778712871,100.633407407186No imagary was found at location 13.5143104950495,100.615685968347No imagary was found at location 13.5143431188119,100.438773863735No imagary was found at location 13.5143757425743,100.584423279119No imagary was found at location 13.5144083663366,100.518027443291No imagary was found at location 13.514440990099,100.675459782113No imagary was found at location 13.5144736138614,100.667897127582No imagary was found at location 13.5145062376238,100.632888261162No imagary was found at location 13.5145388613861,100.627567350767No imagary was found at location 13.5145714851485,100.495578874954trying URL 'https://maps.googleapis.com/maps/api/streetview?&location=13.5146041089109,100.687791167767&size=8000x5333&heading=0&fov=90&pitch=0&

However, when I ran sink() and my function (details omitted here), the my_output.txt file did not save the console output above. Does anybody know how to fix this so that warnings and messages are saved?

Code:

sink(file = 'my_output.txt') 

MyFunction(...)

sink()

Note: I've looked at similar queries such as How to capture warnings with the console output? but suspect there's a simpler solution?

HelpMePlease
  • 63
  • 5
  • Have a look at [R function Sink isn't redirecting messages or warnings to a file](https://stackoverflow.com/q/48173020/10488504) – GKi Jul 01 '21 at 11:00
  • @GKi thanks, but this solution doesn't work either. It only saves the print message and not the warning. – HelpMePlease Jul 01 '21 at 11:20
  • In my case it's working - see Answer below. – GKi Jul 01 '21 at 11:46

2 Answers2

2

You have to open one sink for output and one for message but they can have the same file.

FN <- tempfile()
zz <- file(FN, open = "wt")
sink(zz ,type = "output")
sink(zz, type = "message")

print("using print")
cat("using cat\n")
message("using message")
warning("using warning")

sink(type = "output")
sink(type = "message")

cat(readLines(FN), sep="\n")
#[1] "using print"
#using cat
#using message
#Warning message:
#using warning 

unlink(FN)
GKi
  • 37,245
  • 2
  • 26
  • 48
0

You can run the function warnings() after the sript that created the Error. This function returns the last error displayed. Therefore, you can create an object with the error message and then write it down to .txt if you want too:

YourFunctionNotWorking
error <- names(warnings())
out<-file("abc.txt")
writeLines(error, out)
close(out)
MonJeanJean
  • 2,876
  • 1
  • 4
  • 20