Javascript Async Function Return Multiple Values In R