dust() does not allow 1 column tables

[charlieflipside]

# works
dust(mtcars) %>% sprinkle_print_method("console")

mpg cyl disp hp drat wt qsec vs am gear carb 1 21 6 160 110 3.9 2.62 16.46 0 1 4 4 2 21 6 160 110 3.9 2.875 17.02 0 1 4 4

# error
dust(mtcars[, "mpg"]) %>% sprinkle_print_method("console")

Error in .rbind_internal(if (nrow(head) > 1) subhead else NULL, body[Divisions$row_num[Divisions$div_num == : All objects in ... must be data frames

Similarly:

  # error
  dust(
    data.frame(
        col1 = "hi"
    )
) %>% sprinkle_print_method("console")

Error in .rbind_internal(if (nrow(head) > 1) head[-1, ] else NULL, body[Divisions$row_num[Divisions$div_num == : All objects in ... must be data frames

  # works
  dust(
    data.frame(
        col1 = "hi",
        col2 = "hello"
    )
) %>% sprinkle_print_method("console")

col1 col2 1 hi hello