在Boxplot（R Shiny）中排除异常值

Question

我在这里有一个很棒的代码，它使您可以选择和排除QQ图（http://shiny.rstudio.com/gallery/plot-interaction-exclude.html）中的异常值。现在，我正在努力使用swiss数据集将相同的内容应用于箱线图。有人为此输入了吗？

我认为主要问题是“长大” ...

[...]
tabPanel("Outlier analysis",
                         plotOutput("o_boxplot", click = "plot1_click", brush = brushOpts(id = "plot1_brush")),
                         actionButton("exclude_reset", "Reset")
[...]

server <- function(input, output) {

vals <- reactiveValues(
keeprows = rep(TRUE, nrow(dataSummary)))


dataSummary <- reactive({swiss[,input$i_selectMainData]})

output$o_boxplot <- renderPlot({
  keep    <- dataSummary[ vals$keep, , drop = FALSE]
  exclude <- dataSummary[!vals$keep, , drop = FALSE]

  boxplot(dataSummary(), horizontal = TRUE) # main = c("Boxplot", y), xlab = z)
  })

observeEvent(input$plot1_click, {
  res <- nearPoints(dataSummary, input$plot1_click, allRows = TRUE)

  vals$keeprows <- xor(vals$keeprows, res$selected_)
})
observeEvent(input$exclude_reset, {
  vals$keeprows <- rep(TRUE, nrow(dataSummary))
[...]

我只是输入了上面代码的主要部分。如果需要的话，我也可以把整个东西寄出去。