リストをJSONとしてエンコードし、Rcompressionでgzipを使用して圧縮し、RCurlでPOSTリクエストを使用してサーバーに送信しようとしています。
# COMPRESS THE REQUEST
all <- list(this=1,is=2,a=3,list=4)
json <- toJSON(all)
gzip <- gzip(json)
# SEND IT TO THE SERVER
status <- postForm(SERVER_URI,data=fileUpload(contents=gzip,contentType="application/x-gzip"),style="HTTPPOST",binary=TRUE)
ただし、データをサーバーにPOSTしようとすると、次のエラーが発生します。
Error in postForm(SERVER_URI, data = gzip) :
STRING_ELT() can only be applied to a 'character vector', not a 'raw'
gzipデータがraw形式であり、postForm関数がそれを好まないことは理解していますが、POSTリクエストを介してrawデータをサーバーに送信する問題を解決する方法がわかりません。