在闪亮的应用程序中抑制阴谋警告

Question

我有一个闪亮的应用程序，如下所示：

server.R:

shinyServer(function(input, output) {

  output$trendPlot <- renderPlotly({
    plot_ly(movies, x = length, y=rating, mode='markers', color=as.factor(year), colors = c("#132B43", "#56B1F7")) -> plott

    plott
  })
})

ui.R:

library(shiny)
library(plotly)
library(ggplot2movies)  # Needed for the 'movies' data set

shinyUI(fluidPage(
  titlePanel("Movie Ratings!"),
  mainPanel(
    plotlyOutput("trendPlot")
  )
))

这会产生警告：

Warning in RColorBrewer::brewer.pal(N, "Set2") :
  n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors

我想禁止显示此警告，因为它不必要地扰乱了我的日志（是的，我知道如何通过解决问题来真正消除此警告。但这仅用于说明目的。在我实际的 shiny 应用程序中没有摆脱警告）。

将最后的 plott 包装在 renderPlotly() 中的 suppressWarnings() 不起作用。将 plott 更改为 suppressWarnings(print(plott)) 确实有效，但也会在 UI 上下文之外打印绘图。这可以干净地完成吗？

Answer 1

在下面的例子中，我抑制了警告（全局），然后恢复它们，但是在绘图完成后，使用 shinyjs::delay。有点hacky，但警告被抑制了。作为替代方案，您可以只执行 options(warn = -1) 并手动恢复警告。

library(shiny)
library(plotly)
library(shinyjs)
library(ggplot2movies)  # Needed for the 'movies' data set

ui <- shinyUI(fluidPage(
  useShinyjs(),
  titlePanel("Movie Ratings!"),
  mainPanel(
    plotlyOutput("trendPlot")
  )
))

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

  # suppress warnings  
  storeWarn<- getOption("warn")
  options(warn = -1) 

  output$trendPlot <- renderPlotly({

    plot_ly(movies, x = length, y=rating, mode='markers', color=as.factor(year), colors = c("#132B43", "#56B1F7")) -> plott

    #restore warnings, delayed so plot is completed
    shinyjs::delay(expr =({ 
      options(warn = storeWarn) 
    }) ,ms = 100) 

    plott
  })
})

shinyApp(ui, server)

在闪亮的应用程序中抑制阴谋警告

suppress plotly warnings in shiny app

r

shiny

plotly