egillax opened a new issue, #34166:
URL: https://github.com/apache/arrow/issues/34166

   ### Describe the bug, including details regarding any error messages, 
version, and platform.
   
   When collecting arrow tables with 64 bit integer columns the column is 
converted to 32 bit integer. In the example below I make the ```cyl``` column 
be a 64 bit integer.
   
   ``` r
   library(dplyr)
   #> 
   #> Attaching package: 'dplyr'
   #> The following objects are masked from 'package:stats':
   #> 
   #>     filter, lag
   #> The following objects are masked from 'package:base':
   #> 
   #>     intersect, setdiff, setequal, union
   
   df <- mtcars
   df$cyl <- bit64::as.integer64(df$cyl)
   str(df)
   #> 'data.frame':    32 obs. of  11 variables:
   #>  $ mpg : num  21 21 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 ...
   #>  $ cyl :integer64 6 6 4 6 8 6 8 4 ... 
   #>  $ disp: num  160 160 108 258 360 ...
   #>  $ hp  : num  110 110 93 110 175 105 245 62 95 123 ...
   #>  $ drat: num  3.9 3.9 3.85 3.08 3.15 2.76 3.21 3.69 3.92 3.92 ...
   #>  $ wt  : num  2.62 2.88 2.32 3.21 3.44 ...
   #>  $ qsec: num  16.5 17 18.6 19.4 17 ...
   #>  $ vs  : num  0 0 1 1 0 1 0 1 1 1 ...
   #>  $ am  : num  1 1 1 0 0 0 0 0 0 0 ...
   #>  $ gear: num  4 4 4 3 3 3 3 4 4 4 ...
   #>  $ carb: num  4 4 1 1 2 1 4 2 2 4 ...
   
   tbl <- arrow::as_arrow_table(df)
   tbl
   #> Table
   #> 32 rows x 11 columns
   #> $mpg <double>
   #> $cyl <int64>
   #> $disp <double>
   #> $hp <double>
   #> $drat <double>
   #> $wt <double>
   #> $qsec <double>
   #> $vs <double>
   #> $am <double>
   #> $gear <double>
   #> $carb <double>
   #> 
   #> See $metadata for additional Schema metadata
   tbl %>% dplyr::collect() %>% str()
   #> 'data.frame':    32 obs. of  11 variables:
   #>  $ mpg : num  21 21 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 ...
   #>  $ cyl : int  6 6 4 6 8 6 8 4 4 6 ...
   #>  $ disp: num  160 160 108 258 360 ...
   #>  $ hp  : num  110 110 93 110 175 105 245 62 95 123 ...
   #>  $ drat: num  3.9 3.9 3.85 3.08 3.15 2.76 3.21 3.69 3.92 3.92 ...
   #>  $ wt  : num  2.62 2.88 2.32 3.21 3.44 ...
   #>  $ qsec: num  16.5 17 18.6 19.4 17 ...
   #>  $ vs  : num  0 0 1 1 0 1 0 1 1 1 ...
   #>  $ am  : num  1 1 1 0 0 0 0 0 0 0 ...
   #>  $ gear: num  4 4 4 3 3 3 3 4 4 4 ...
   #>  $ carb: num  4 4 1 1 2 1 4 2 2 4 ...
   ```
   
   <sup>Created on 2023-02-13 with [reprex 
v2.0.2](https://reprex.tidyverse.org)</sup>
   
   ### Component(s)
   
   R


-- 
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: issues-unsubscr...@arrow.apache.org.apache.org

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

Reply via email to