[R] Cannot write parquet to OutputStream

The R package does not allow for the ability to write to a FileOutputStream. 

Minimal testing code:
library(arrow)
tf1 <- arrow::FileOutputStream$create(path = "output.parquet")
arrow::write_parquet(data.frame(x = 1:5), tf1)

Throws error:

Error in inherits(sink, OutputStream) : 'what' must be a character vector

 

The issue appears to be in line 153 of parquet.R

if (is.character(sink))

{ sink <- FileOutputStream$create(sink) on.exit(sink$close()) }

else if (!inherits(sink, OutputStream))

{ abort("sink must be a file path or an OutputStream") }

 

Should be !inherits(sink,'OutputStream')