sparkline render

Hello
thank you for developing this sparkline concept. this is great.
https://jkunst.com/blog/posts/2020-06-26-valuebox-and-sparklines/

I was able to reproduce it by creating the vb shiniy.tag outside the server
```
total_geno<- sum(geno_month_data$Count)
hc3 <- hchart(geno_month_data, "column", hcaes(month, Count), name = "Monthly genotypes") %>%
hc_size(height = 100) %>%
hc_credits(enabled = FALSE) %>%
hc_add_theme(hc_theme_sparkline_vb())

vb3 <- valueBoxSpark(
value = total_geno
title = toupper("Some text"),
sparkobj = hc3,
subtitle = tagList(HTML("↑"), "some text"),
info = "more ifno",
icon = icon("hourglass-half"),
width = 4,
color = "yellow",
href = NULL
)
```

but how to render the sparkobj of vb3 dynamic within the server so that the chart varies with my input?