Раскрывающееся меню R с графиком со столом

Question

Я хотел бы вставить много таблиц в свой блокнот, но чтобы получить место, вставьте раскрывающееся меню, чтобы выбрать одну.Я попытался скопировать тот же метод, что и для графика, у меня есть раскрывающееся меню, но оно не обновляется ... Мой фрейм данных находится в списке.Я думаю, что мы могли бы попытаться построить весь график в списке и поместить список в функцию plot_ly с видимым аргументом, но я не знаю, возможно ли это, я работаю над этим ... Если кто-то что-то знает об этом ..

A<-data.frame(FE=c(1,2,3,4),FB=c(4,5,6,9))
B<-data.frame(FA=c(5,6,7,8),FB=c(8,2,1,0))
mydf<-list(A,B)
cellValues <- list()
for (i in (0:ncol(mydf[[1]]))) {
     row <- mydf[[1]][i]
     cellValues[i] <- row
}
p <- plot_ly(
     type = 'table',
     header = list(
          values = colnames(mydf[[1]]),
          align = c('center', rep('center', ncol(mydf[[1]]))),
          line = list(width = 1, color = 'black'),
          fill = list(color = 'rgb(0, 29, 67)'),
          font = list(family = "Arial", size = 14, color = "white")
     ),
     cells = list(
          values = cellValues,
          align = c('center', rep('center', ncol(mydf[[1]]))),
          line = list(color = "black", width = 1),
          fill = list(color = c('rgb(0, 29, 67)', 'rgba(228, 222, 249, 0.65)')),
          font = list(family = "Arial", size = 12, color = c("white","black"))
     ))

g<-p
g<-add_table(type="table",header = list(
     values = colnames(mydf[[2]]),
     align = c('center', rep('center', ncol(mydf[[2]]))),
     line = list(width = 1, color = 'black'),
     fill = list(color = 'rgb(0, 29, 67)'),
     font = list(family = "Arial", size = 14, color = "white")
),
cells = list(
     values = cellValues,
     align = c('center', rep('center', ncol(mydf[[2]]))),
     line = list(color = "black", width = 1),
     fill = list(color = c('rgb(0, 29, 67)', 'rgba(228, 222, 249, 0.65)')),
     font = list(family = "Arial", size = 12, color = c("white","black"))
),visible=FALSE)

recap_option<-list()
list_visible<-list()


list_visible[[1]]<-list(TRUE,FALSE)
list_visible[[2]]<-list(FALSE,TRUE)

recap_option[[1]]<-list(method="restyle",
                            args=list(list(visible=c(TRUE,FALSE))),
                            label="A")
recap_option[[2]]<-list(method="restyle",
                        args=list(list(visible=c(FALSE,TRUE))),
                        label="B")     






g%>%layout(title = 'Evolution composition du PIB',
                      updatemenus=list(
                           list(
                                buttons=recap_option
                           )
                      ))