sparkline render

[antoine4ucsd]

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("&uarr;"), "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?