tdhock commented on issue #34689:
URL: https://github.com/apache/arrow/issues/34689#issuecomment-1540655199

   write_parquet example works
   ```
   (base) tdhock@maude-MacBookPro:~/projects/max-generalized-auc(master*)$ R 
--vanilla -e 'example("write_parquet",package="arrow")'
   
   R version 4.3.0 (2023-04-21) -- "Already Tomorrow"
   Copyright (C) 2023 The R Foundation for Statistical Computing
   Platform: x86_64-pc-linux-gnu (64-bit)
   
   R is free software and comes with ABSOLUTELY NO WARRANTY.
   You are welcome to redistribute it under certain conditions.
   Type 'license()' or 'licence()' for distribution details.
   
     Natural language support but running in an English locale
   
   R is a collaborative project with many contributors.
   Type 'contributors()' for more information and
   'citation()' on how to cite R or R packages in publications.
   
   Type 'demo()' for some demos, 'help()' for on-line help, or
   'help.start()' for an HTML browser interface to help.
   Type 'q()' to quit R.
   
   > example("write_parquet",package="arrow")
   
   Attaching package: ‘arrow’
   
   The following object is masked from ‘package:utils’:
   
       timestamp
   
   
   wrt_pr> ## Don't show: 
   wrt_pr> if (arrow_with_parquet()) (if (getRversion() >= "3.4") withAutoprint 
else force)({ # examplesIf
   wrt_pr+ ## End(Don't show)
   wrt_pr+ tf1 <- tempfile(fileext = ".parquet")
   wrt_pr+ write_parquet(data.frame(x = 1:5), tf1)
   wrt_pr+ 
   wrt_pr+ # using compression
   wrt_pr+ if (codec_is_available("gzip")) {
   wrt_pr+   tf2 <- tempfile(fileext = ".gz.parquet")
   wrt_pr+   write_parquet(data.frame(x = 1:5), tf2, compression = "gzip", 
compression_level = 5)
   wrt_pr+ }
   wrt_pr+ ## Don't show: 
   wrt_pr+ }) # examplesIf
   > tf1 <- tempfile(fileext = ".parquet")
   > write_parquet(data.frame(x = 1:5), tf1)
   > if (codec_is_available("gzip")) {
   +     tf2 <- tempfile(fileext = ".gz.parquet")
   +     write_parquet(data.frame(x = 1:5), tf2, compression = "gzip", 
compression_level = 5)
   + }
   
   wrt_pr> ## End(Don't show)
   wrt_pr> 
   wrt_pr> 
   wrt_pr> 
   > 
   > 
   (base) tdhock@maude-MacBookPro:~/projects/max-generalized-auc(master*)$ 
   ```
   


-- 
This is an automated message from the Apache Git Service.
To respond to the message, please log on to GitHub and use the
URL above to go to the specific comment.

To unsubscribe, e-mail: github-unsubscr...@arrow.apache.org

For queries about this service, please contact Infrastructure at:
us...@infra.apache.org

Reply via email to