Update R cookbooks so they pass

Author: amoeba

r/content/specify_data_types_and_schemas.Rmd

@@ -120,45 +120,6 @@ test_that("cast_table works as expected", {
 })
 ```
 
-### Discussion {#no-compat-type}
-
-There are some Arrow data types which do not have any R equivalent.  Attempting 
-to cast to these data types or using a schema which contains them will result in
-an error.
-
-```{r, float_16_conversion, error=TRUE, eval=FALSE}
-# Set up a tibble to use in this example
-oscars <- tibble::tibble(
-  actor = c("Katharine Hepburn", "Meryl Streep", "Jack Nicholson"),
-  num_awards = c(4, 3, 3)
-)
-
-# Convert tibble to an Arrow table
-oscars_arrow <- arrow_table(oscars)
-
-# Set up schema with "num_awards" as float16 which doesn't have an R equivalent
-oscars_schema_invalid <- schema(actor = string(), num_awards = float16())
-
-# The default mapping from numeric column "num_awards" is to a double
-oscars_arrow$cast(target_schema = oscars_schema_invalid)
-```
-
-```{r}
-## Error: NotImplemented: Unsupported cast from double to halffloat using function cast_half_float
-```
-
-```{r, test_float_16_conversion, opts.label = "test"}
-test_that("float_16_conversion works as expected", {
-  
-  oscars_schema_invalid <- schema(actor = string(), num_awards = float16())
-  
-  expect_error(
-    oscars_arrow$cast(target_schema = oscars_schema_invalid),
-    "NotImplemented: Unsupported cast from double to halffloat using function cast_half_float"
-  )
-})
-```
-
 ## Specify data types when creating an Arrow table from an R object
 
 You want to manually specify Arrow data types when converting an object from a 

r/content/tables.Rmd

@@ -191,9 +191,7 @@ test_that("dplyr_func_warning", {
      arrow_table(starwars) %>%
       mutate(name_split = str_split_fixed(name, " ", 2)) %>%
       collect(),
-    'Expression str_split_fixed(name, " ", 2) not supported in Arrow; pulling data into R',
-    fixed = TRUE
-  )
+    'In str_split_fixed\\(name, " ", 2\\):.*Expression not supported in Arrow.*Pulling data into R')
 
 })
 ```