R Sparkline Chart 在 Reactable 中的嵌套/扩展行中显示为空

如何解决R Sparkline Chart 在 Reactable 中的嵌套/扩展行中显示为空

我希望有人能帮我解决这个问题。我是 HTML 新手，这让我很困惑。

library(tidyverse)
library(reactable)
library(sparkline)

myfunct <-
  function(Species) {
    lapply(1:100,function(x) { runif(1) }) %>% invoke(c,.)
  }

df <-
  data.frame(Species = rep('setosa',5)) %>%
  mutate(data = map(Species,myfunct))

new.iris <- 
  iris %>%
  inner_join(df,by = 'Species') %>%
  mutate(rid = row_number())

# underlying sparkline reactable works fine
reactable(new.iris[1:5,5:7],columns = list(
  data = colDef(cell = function(values) { sparkline(values) }))
)

# nested it will not display
reactable(new.iris[1:5,c(7,1:5)],details = function(index) {
  reactable(new.iris[index,columns = list(
              data = colDef(cell = function(values) { sparkline(values)})
            ))
})

初始图表将显示：

然而，当包含在详细信息/嵌套/扩展器行中时，图表是空的：

感谢您的帮助。