Ничего не отображается в части "dashboardBody"

Question

Это должно отображать некоторую графику в каждом «пункте меню».

Я пытаюсь создать панель мониторинга, которая имеет различные разделы. Но размещение различных разделов (элементов) не работает с соответствующей графикой. Если я go один за другим код работает. Кажется, что мои знания в этом типе кода достигли своего пика на данный момент (;]). Я надеюсь, что вы можете помочь мне !!

Я оставляю вам захват изображения того, что он мне возвращает: Вывод

Я оставляю вам образец, чтобы вы могли запустить код: https://www.dropbox.com/s/mprblgbtrhqx5u8/example.Rdata?dl=0

Это код (он многократно повторяется, но делает подобные вещи):

library(shiny)
library(ggplot2)
library(dplyr)
library(plotly)
library(ggthemes)
library(tidyr)


if (interactive()) {
    ui <- dashboardPage(
        dashboardHeader(title = "aaaa"),
        dashboardSidebar(
            sidebarMenu(
                id = "tabs",
                menuItem("Juntos", tabName = "juntos", icon = icon("dashboard"),
                         sliderInput("year_j", "Year:",min = 2003, max = 2007,step=1,value=c(2003,2007)),
                         sliderInput("nac_j", "Año nacimiento:",min = 1991, max = 2001,step=1,value=c(1991,2001)),
                         sliderInput("edad_j", "Edad:",min = 5, max = 15,step=1,value=c(5,15))
                         ),
                menuItem("Hombres", tabName = "hombres", icon = icon("th"),
                         sliderInput("year_h", "Year:",min = 2003, max = 2007,step=1,value=c(2003,2007)),
                         sliderInput("nac_h", "Año nacimiento:",min = 1991, max = 2001,step=1,value=c(1991,2001)),
                         sliderInput("edad_h", "Edad:",min = 5, max = 15,step=1,value=c(5,15))
                         ),
                menuItem("Mujeres", tabName = "mujeres", icon = icon("th"),
                         sliderInput("year_m", "Year:",min = 2003, max = 2007,step=1,value=c(2003,2007)),
                         sliderInput("nac_m", "Año nacimiento:",min = 1991, max = 2001,step=1,value=c(1991,2001)),
                         sliderInput("edad_m", "Edad:",min = 5, max = 15,step=1,value=c(5,15))
                )
            )
        ),
        dashboardBody(
            tabItems(
                tabItem(tabName = "juntos",
                        fluidRow(

                            box(plotlyOutput("plot2", width = "100%")),
                            box(plotlyOutput("plot3", width = "100%")),
                            box(plotlyOutput("plot1", width = "100%"))


                        )
                 ),
                tabItem(tabName = "hombres",
                        fluidRow(

                            box(plotlyOutput("plot4", width = "100%")),
                            box(plotlyOutput("plot5", width = "100%")),
                            box(plotlyOutput("plot6", width = "100%"))


                        )
                ),
                tabItem(tabName = "mujeres",
                        fluidRow(

                            box(plotlyOutput("plot7", width = "100%")),
                            box(plotlyOutput("plot8", width = "100%")),
                            box(plotlyOutput("plot9", width = "100%"))


                        )
                )
            )

        )
    )


    server <- function(input,output,session){

        observeEvent(input$tabs, {
            updateTabItems(session, "tabs", newtab)
        })

        dat <- reactive({
            test <- p0318_H[p0318_H$y %in% seq(from=min(input$year_h),to=max(input$year_h),by=1),]
            print(test)
            test
        })

        dat1 <- reactive({
            test1 <- tabla_H[tabla_H$y_nac %in% seq(from=min(input$nac_h),to=max(input$nac_h),by=1),]
            print(test1)
            test1
        })
        dat2 <- reactive({
            test2 <- p0318_H[p0318_H$ed %in% seq(from=min(input$edad_h),to=max(input$edad_h),by=1),]
            print(test2)
            test2
        })

        #

        dat3 <- reactive({
            test3 <- p0318_M[p0318_M$y %in% seq(from=min(input$year_m),to=max(input$year_m),by=1),]
            print(test3)
            test3
        })

        dat4 <- reactive({
            test4 <- tabla_M[tabla_M$y_nac %in% seq(from=min(input$nac_m),to=max(input$nac_m),by=1),]
            print(test4)
            test4
        })
        dat5 <- reactive({
            test5 <- p0318_M[p0318_M$ed %in% seq(from=min(input$edad_m),to=max(input$edad_m),by=1),]
            print(test5)
            test5
        })

        #

        dat6 <- reactive({
            test6 <- p0318_J[p0318_J$y %in% seq(from=min(input$year_j),to=max(input$year_j),by=1),]
            print(test6)
            test6
        })

        dat7 <- reactive({
            test7 <- tabla_J[tabla_J$y_nac %in% seq(from=min(input$nac_j),to=max(input$nac_j),by=1),]
            print(test7)
            test7
        })
        dat8 <- reactive({
            test8 <- p0318_J[p0318_J$ed %in% seq(from=min(input$edad_j),to=max(input$edad_j),by=1),]
            print(test8)
            test8
        })
        ##
        output$plot2<-renderPlotly({
            print(
                ggplotly(ggplot(dat6(),aes(ed,pctdg, color=as.factor(y)))+geom_line()+ theme_gdocs()))
        })

        output$plot3<-renderPlotly({
            print(
                ggplotly(ggplot(dat7(),aes(ed,pctdg, color=as.factor(edad_year)))+geom_line()+ theme_gdocs()))
        })

        output$plot1<-renderPlotly({
            print(
                ggplotly(ggplot(dat8(),aes(y,pctdg, color=as.factor(ed)))+geom_line()+ theme_gdocs()))
        })

        #
        output$plot4<-renderPlotly({
            print(
                ggplotly(ggplot(dat(),aes(ed,pctdg, color=as.factor(y)))+geom_line()+ theme_gdocs()))
        })

        output$plot5<-renderPlotly({
            print(
                ggplotly(ggplot(dat1(),aes(ed,pctdg, color=as.factor(edad_year)))+geom_line()+ theme_gdocs()))
        })

        output$plot6<-renderPlotly({
            print(
                ggplotly(ggplot(dat2(),aes(y,pctdg, color=as.factor(ed)))+geom_line()+ theme_gdocs()))
        })

        #
        output$plot7<-renderPlotly({
            print(
                ggplotly(ggplot(dat3(),aes(ed,pctdg, color=as.factor(y)))+geom_line()+ theme_gdocs()))
        })

        output$plot8<-renderPlotly({
            print(
                ggplotly(ggplot(dat4(),aes(ed,pctdg, color=as.factor(edad_year)))+geom_line()+ theme_gdocs()))
        })

        output$plot9<-renderPlotly({
            print(
                ggplotly(ggplot(dat5(),aes(y,pctdg, color=as.factor(ed)))+geom_line()+ theme_gdocs()))
        })
}

    shinyApp(ui, server)
}

Правда состоит в том, что это очень поможет !