set.seed(123)
df = tibble(
  id = 1:3,
  plot = list(
    list(data = lapply(1:35, function(i) {
      list(
        x = paste0("Day ", i),
        gmv = sample(c(0,100,2,1,0,0,0,0,0), 9)[1]
    ) 
      })
    )
  , 
  list(data = lapply(1:35, function(i) {
    list(
      x = paste0("Day ", i),
      gmv = sample(c(0,100,2,1,0,0,0,0,0), 9)[1]
    ) 
  })
  ),
  list(data = lapply(1:35, function(i) {
    list(
      x = paste0("Day ", i),
      gmv = sample(c(10,100,20,10,100,100,1000,100,30), 9)[1]
    ) 
  })
  )
)) 

df %>% 
  reactable(
    showSortable = TRUE,
    columns = list(
      plot = colDef(
        minWidth = 150,
        align = "center",
        filterable = FALSE,
        sortable = FALSE,
        cell = dui_for_reactable(
          dui_sparkline(
            height = 100,
            margin = list(left = 50, top = 50),
            data = htmlwidgets::JS("cellInfo.value.data"),
            valueAccessor =  htmlwidgets::JS("(d) => d.gmv"),
            components = list(
              dui_sparklineseries(),
              dui_sparkpointseries()
            )
          )  
        )
      )
    )) %>% 
  dataui::dui_add_reactable_dep() 

df %>% 
  reactable(
    showSortable = TRUE,
    columns = list(
      plot = colDef(
        minWidth = 150,
        align = "center",
        filterable = FALSE,
        sortable = FALSE,
        cell = function(value)(
          dui_sparkline(
            data = value$data,
            valueAccessor =  htmlwidgets::JS("(d) => d.gmv"),
            components = list(
              dui_sparklineseries(),
              dui_sparkpointseries()
            )
          )
        )
      )
    ))