Select field dynamic

[JohnCoene]

It looks like if the choices are dynamic then value must be dynamic too, in the example below the value default is not set to Species

test_block <- function(data, ...) {
  all_cols <- \(data) colnames(data)

  fields <- list(
    cols = new_select_field("Species", all_cols)
  )

  new_block(
    fields = fields,
    expr = quote({
      data[,.(cols)]
    }),
    ...,
    class = c("test_block", "transform_block")
  )
}

To make it work we'd have to use new_select_field(\(data) "Species", all_cols)