MINOR: [R][CI] Fix nightlies broken by refactoring (apache#14580)

nealrichardson · web-flow · commit b2fd88117b08 · 2022-11-03T17:32:46.000Z
Authored-by: Neal Richardson &lt;neal.p.richardson@gmail.com&gt;
Signed-off-by: Nic Crane &lt;thisisnic@gmail.com&gt;
diff --git a/r/R/dplyr-group-by.R b/r/R/dplyr-group-by.R
@@ -93,7 +93,7 @@ set_group_attributes <- function(tab, group_vars, .drop) {
   # so passing NULL means unset (ungroup)
   if (is.null(group_vars) || length(group_vars)) {
     # Since accessing schema metadata does some work, only overwrite if needed
-    new_atts <- old_atts <- tab$metadata$r$attributes
+    new_atts <- old_atts <- tab$metadata$r$attributes %||% list()
     new_atts[[".group_vars"]] <- group_vars
     new_atts[[".group_by_drop"]] <- .drop
     if (!identical(new_atts, old_atts)) {
diff --git a/r/tests/testthat/test-dplyr-funcs-datetime.R b/r/tests/testthat/test-dplyr-funcs-datetime.R
@@ -1282,6 +1282,7 @@ test_that("date works in arrow", {
 test_that("date() errors with unsupported inputs", {
   # Use InMemoryDataset here so that abandon_ship() errors instead of warns.
   # The lubridate version errors too.
+  skip_if_not_available("dataset")
   expect_error(
     example_data %>%
       InMemoryDataset$create() %>%
