Thank for your quick response. vals <- reactiveValues(x = NULL) is the key !!!
vals <- reactiveValues(x = NULL)
Awesome