闪亮的渲染图返回空白

Question

我在生成闪亮的输出时遇到问题，我希望客户端根据他们的请求手动更改颜色并且数据是反应性的。我只是得到一个空白页，除了 selectInput 过滤器和下拉项，没有任何显示在其中，但不是情节。

我的尝试包括 lapply 与 colourpicker 功能的组合，并创建了一个下拉项，用户可以在其中选择他喜欢的颜色。不幸的是，我无法提供可重现的示例或数据集，因为存在无法共享的数据，我提前道歉。我希望有人可以通过查看代码来识别问题，以防它非常明显。总之，本示例使用的数据由三列组成：标题、合作伙伴、数量（例如书名、印刷合作伙伴和印刷份数）。

我相信在我在 renderPlot 中生成绘图之前，它必须与“cols”的 3 行代码有关。如果某人能引导我走向正确的方向，我将不胜感激。提前非常感谢。

### 1) Loading the libraries ----

library(shinydashboard)
library(shiny)
library(shinyWidgets)
library(plotly)
library(colourpicker)
library(tidyverse)


###  UI ----


header <- 
  dashboardHeader( title = HTML("Dashboard"), 
                   disable = FALSE, 
                   titleWidth  = 230)


sidebar <- dashboardSidebar(
  sidebarMenu(id="sbmenu",
              menuItem("General Dashboard", tabName = "dashboard", icon = icon("dashboard"))))


body <- dashboardBody( 
  
  tabItems(
    tabItem(tabName = "dashboard",
            fluidRow(
              
              selectizeInput("choice","Please select", 
                          choices=levels(Complete$title),multiple=T)),
            

            fluidPage(
              uiOutput("myPanel"),
              plotOutput("plot")))))





## UI wrapper -----


ui <- dashboardPage(header, sidebar, body)


## Server ----

server <- function(input, output) {
  

data_complete<-reactive(Complete %>% 
                filter(title%in% input$choice,quantity>0))
  


### Plot 

output$myPanel <- renderUI({ 
    
  lev <- sort(unique(input$choice)) 
  
  cols <- length(lev)


  dropdownButton(lapply(seq_along(lev), function(i) {
      colourpicker::colourInput(inputId = paste0("col", lev[i]),
                  label = paste0("Choose colour", lev[i]), 
                  value = cols[i])}),
      circle = TRUE, size="xs",status = "danger", icon = icon("gear"), width = "50px",
      tooltip = tooltipOptions(title = "Change your colour"))
  })
  
  
output$plot <- renderPlot({

  cols <- paste0("c(", paste0("input$col", sort(input$choice), collapse = ", "), ")")
  
  cols <- eval(parse(text = cols))
  
  req(length(cols) == length(input$choice)) 
 

data_complete() %>% 
    group_by(title,partner) %>% 
    summarise(total=sum(quantity)) %>% 
    ggplot(aes(x=partner,y=total,fill=title))+
    geom_col(stat="identity",position = position_dodge())+
    scale_fill_manual(values = cols)
  })  



}


shinyApp(ui, server)

Answer 1

您的应用运行良好。我在代码的最顶部添加了以下几行来模拟您的输入数据，效果很好。

Complete <- data.frame(
    title    = c("A", "B", "C", "D", "E", "F"), 
    partner  = c("1", "1", "2", "2", "3", "3"), 
    quantity = c(100, 200, 300, 400, 500, 600)
)

如果您更改标题选择，它确实会忘记颜色选择，并且有一些警告但没有什么重要的。

这意味着它导致您的问题的其他原因。检查您的软件包是否是最新的，您的数据是否可用于您的绘图，以及您的数据是否与您认为的一样。调试这类事情的一个好方法是首先让它在闪亮之外工作。