# NOT RUN {
schema(a = int32(), b = float64())
schema(
field("b", double()),
field("c", bool(), nullable = FALSE),
field("d", string())
)
df <- data.frame(col1 = 2:4, col2 = c(0.1, 0.3, 0.5))
tab1 <- arrow_table(df)
tab1$schema
tab2 <- arrow_table(df, schema = schema(col1 = int8(), col2 = float32()))
tab2$schema
# }
Run the code above in your browser using DataLab