Strings in dropdown values do not seem to work unless function explicitly used

[javierluraschi]

Does not work:

library(hal9)

data_path <- 'https://temphal9.s3.us-west-2.amazonaws.com/brenda/penguins.csv'

penguins <- read.csv(data_path)

h9_dropdown(
    "X_dropdown",
    values = colnames(penguins),
    on_update = function(value) {
        h9_set(value, "X_val")
    }
)

does work:

library(hal9)

data_path <- 'https://temphal9.s3.us-west-2.amazonaws.com/brenda/penguins.csv'

penguins <- read.csv(data_path)

h9_dropdown(
    "X_dropdown",
    values = function() {
      colnames(penguins)
    },
    on_update = function(value) {
        h9_set(value, "X_val")
    }
)