Ошибка в динамически создаваемых TabItems в R-Shiny - PullRequest
Новая
       7

Ошибка в динамически создаваемых TabItems в R-Shiny

0 голосов
/ 26 апреля 2019

Я использую динамический способ создания своего пользовательского интерфейса, но некоторые вкладки статичны.Это прекрасно работает для боковой панели: 

    myTabs = lapply(names(datalist) , function(i) {
        menuItem(i, tabName = paste0("tab_", i))       
    })


    myTabs = list(menuItem("Welcome", tabName = "welcome"),
                  myTabs,
                  menuItem("Country Comparison", tabName = "comparison"),
                  menuItem("Sources & Raw Data", tabName = "sources")
    )

    do.call(sidebarMenu, myTabs)

Я ожидал, что это будет работать и для tabItems: 

    myTabs = lapply(names(datalist) , function(i) {

        tabItem(tabName = paste0("tab_", i),
            uiOutput(paste0("overviewlist",i)),
            uiOutput(paste0("box1_",i)),
            uiOutput(paste0("box2_",i)), 
            box(width = 12,
                highchartOutput(paste0("spendingpa_",i))
            ),
            uiOutput(paste0("top10print_",i)),
            uiOutput(paste0("top10online_",i))
        )
    })

    myTabs = list(tabItem(tabName = "welcome",
                          box(width = 6)
                          ),
                  myTabs,
                  tabItem(tabName = "comparison",
                          box(width = 6)),
                  tabItem(tabName = "sources",
                          box(width = 6))
    )

    do.call(tabItems, myTabs)

Код работает нормально, пока я не пытаюсьдобавить что-то в список.Затем я получаю следующую ошибку: Error: Expected an object with class 'shiny.tag'. Я также пытался напечатать этот список.Кажется, я не могу добавить другие элементы в список myTabs после генерации с lapply.Кто-нибудь знает, как с этим бороться?

...