Updating non-standard args with update_filter makes get_params returning invalid values

[krystian8207]

> library(cohortBuilder)
> librarian_source <- set_source(
+   as.tblist(librarian)
+ )
> 
> coh <- librarian_source %>% 
+   cohort(
+     filter(
+       "discrete", id = "author", dataset = "books", 
+       variable = "author", value = "Dan Brown", test = 1
+     )
+   )
> author_filter <- coh$get_filter(step_id = 1, filter_id = "author")
> author_filter$get_params("test")
[1] 1
> coh$update_filter(1, "author", test = 10)
> author_filter$get_params("test")
[1] 1