[Bug]: filter state changes on app start

[chlebowa]

What happened?

When specifying initial filters, enumerating factor levels in a non-alphabetical order causes the app to change the filter state, which results in filter state history before the user changes the filter.

library(teal)

filter <- teal_slices(
  teal_slice("i", "Species", selected = c("virginica", "versicolor"))
)

data <- teal_data() |> within({
  i <- iris
  m <- mtcars
  f <- faithful
})
app <- init(data, example_module(), filter)

runApp(app)

After changing filter to

filter <- teal_slices(
  teal_slice("i", "Species", selected = c("versicolor", "virginica"))
)

sessionInfo()

No response

Relevant log output

No response

Code of Conduct

• [X] I agree to follow this project's Code of Conduct.

Contribution Guidelines

• [X] I agree to follow this project's Contribution Guidelines.

Security Policy

• [X] I agree to follow this project's Security Policy.