闪亮的应用程序不提供输出答案

【问题标题】：Shiny application does not give an output闪亮的应用程序不提供输出
【发布时间】：2019-03-24 03:19:54
【问题描述】：

我正在尝试主要使用 navbarlist 构建一个闪亮的应用程序。但它没有给出输出。我找不到错在哪里。提前谢谢你。

library(gridExtra)
shiny::runApp(list(
ui <- fluidPage(
  selectInput(
    "plotType", "Plot Type",
    c(All = "All",
      Cluster1 = "Cluster1",
      Cluster2 = "Cluster2")),

  navlistPanel("Cluster Summaries",
               tabPanel("All",fluidRow(column(1,plotlyOutput("plot_all_clus")),
                                       column (2, plotlyOutput("plot_all_pie")))),

               tabPanel("Employee Code",fluidRow(column(1,plotlyOutput("plot_emp_clus")),
                                                 column (2, plotlyOutput("plot_emp_pie")))),

               tabPanel("Marriage Years",fluidRow(column(1,plotlyOutput("plot_myr_clus")),
                                                  column (2, plotlyOutput("plot_myr_pie")))),

               tabPanel("Years To Contract Expiry",fluidRow(column(1,plotlyOutput("plot_yr_clus")),
                                                            column (2, plotlyOutput("plot_yr_pie")))),

               tabPanel("Age",fluidRow(column(1,plotlyOutput("plot_age_clus")),
                                       column (2, plotlyOutput("plot_age_pie")))),

               tabPanel("Designation Code",fluidRow(column(1,plotlyOutput("plot_deg_clus")),
                                                    column (2, plotlyOutput("plot_deg_pie")))),

               tabPanel("Gender",fluidRow(column(1,plotlyOutput("plot_gen_clus")),
                                          column (2, plotlyOutput("plot_gen_pie")))),

               tabPanel("Housing Amount",fluidRow(column(1,plotlyOutput("plot_ham_clus")),
                                                  column (2, plotlyOutput("plot_ham_pie")))),

               tabPanel("Living With",fluidRow(column(1,plotlyOutput("plot_liv_clus")),
                                               column (2, plotlyOutput("plot_liv_pie")))),

               tabPanel("Number of children",fluidRow(column(1,plotlyOutput("plot_chl_clus")),
                                                      column (2, plotlyOutput("plot_chl_pie")))),

               tabPanel("Overtime",fluidRow(column(1,plotlyOutput("plot_all_clus")),
                                            column (2, plotlyOutput("plot_all_pie")))),

               tabPanel("Union Members",fluidRow(column(1,plotlyOutput("plot_all_clus")),
                                                 column (2, plotlyOutput("plot_all_pie")))),

               tabPanel("Salary",fluidRow(column(1,plotlyOutput("plot_all_clus")),
                                          column (2, plotlyOutput("plot_all_pie"))))
               )
)

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

  output$plot_all_clus = renderPlotly({
    print(
      ggplotly(
        ggplot(gg, aes(x = V1 , y = V2))+
          geom_point())
    )
  })

}

))

这里 gg, gg1, gg2 是数据集。我什至尝试使用像 mtcars 这样的常用数据集。但它似乎没有给出输出

【问题讨论】：

标签： r shiny

【解决方案1】：

请不要使用相同的名称命名输出，所有 id 必须是唯一的。还要增加列大小，以便绘图适合：

library(gridExtra)
library(plotly)
library(shiny)

ui <- fluidPage(
  selectInput(
    "plotType", "Plot Type",
    c(All = "All",
      Cluster1 = "Cluster1",
      Cluster2 = "Cluster2")),

  navlistPanel("Cluster Summaries",
               tabPanel("All",fluidRow(column(8,plotlyOutput("plot_all_clus")),
                                       column (8, plotlyOutput("plot_all_pie")))),

               tabPanel("Employee Code",fluidRow(column(8,plotlyOutput("plot_emp_clus")),
                                                 column (8, plotlyOutput("plot_emp_pie")))),

               tabPanel("Marriage Years",fluidRow(column(8,plotlyOutput("plot_myr_clus")),
                                                  column (8, plotlyOutput("plot_myr_pie")))),

               tabPanel("Years To Contract Expiry",fluidRow(column(8,plotlyOutput("plot_yr_clus")),
                                                            column (8, plotlyOutput("plot_yr_pie")))),

               tabPanel("Age",fluidRow(column(8,plotlyOutput("plot_age_clus")),
                                       column (8, plotlyOutput("plot_age_pie")))),

               tabPanel("Designation Code",fluidRow(column(8,plotlyOutput("plot_deg_clus")),
                                                    column (8, plotlyOutput("plot_deg_pie")))),

               tabPanel("Gender",fluidRow(column(8,plotlyOutput("plot_gen_clus")),
                                          column (8, plotlyOutput("plot_gen_pie")))),

               tabPanel("Housing Amount",fluidRow(column(8,plotlyOutput("plot_ham_clus")),
                                                  column (8, plotlyOutput("plot_ham_pie")))),

               tabPanel("Living With",fluidRow(column(8,plotlyOutput("plot_liv_clus")),
                                               column (8, plotlyOutput("plot_liv_pie")))),

               tabPanel("Number of children",fluidRow(column(8,plotlyOutput("plot_chl_clus")),
                                                      column (8, plotlyOutput("plot_chl_pie")))),

               tabPanel("Overtime",fluidRow(column(8,plotlyOutput("plot_all_clus2")),
                                            column (8, plotlyOutput("plot_all_pie2")))),

               tabPanel("Union Members",fluidRow(column(8,plotlyOutput("plot_all_clus3")),
                                                 column (8, plotlyOutput("plot_all_pie3")))),

               tabPanel("Salary",fluidRow(column(8,plotlyOutput("plot_all_clus4")),
                                          column (8, plotlyOutput("plot_all_pie4"))))
  )
)

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

  output$plot_all_clus = renderPlotly({
    ggiris <- qplot(Petal.Width, Sepal.Length, data = iris, color = Species)
    ggplotly(ggiris)
  })

}

shinyApp(ui = ui, server = server)

【讨论】：