4

我尝试使用带闪亮的 ggvis，但我的测试样本出现了一些错误。代码在此消息的末尾。

仅当我尝试使用闪亮运行 ggvis 时才收到以下错误消息：

Guessing formula = mpg ~ wt
Error in rep(col, length.out = nrow(data)) : 
   attempt to replicate an object of type 'closure'

如果我注释掉 server.R 中的行 

layer_model_predictions(model = "lm") %>%

我不会收到错误消息并且闪亮的应用程序运行良好，除了我没有得到线性拟合线。当不与闪亮一起使用时，代码的 ggvis 部分也可以正常运行。我想这与闪亮的反应数据集有关，但我不知道找到快速修复。

有什么建议吗？

非常感谢您的帮助！

英

用户界面

library(ggvis)
shinyUI(pageWithSidebar(

  div(),

  sidebarPanel(
    sliderInput("n", "Number of points", min = 1, max = nrow(mtcars),
                value = 10, step = 1)
  ),

  mainPanel(
    ggvisOutput("plot"),
    tableOutput("mtc_table")
  )

))

服务器.R

library(shiny)
library(ggvis)
library(dplyr)

shinyServer(function(input, output, session) {

  mtc <- reactive({

            mtc <- mtcars[1:input$n, ]
            mutate(mtc, carname=rownames(mtc), id = 1:nrow(mtc))
  })


  all_values <- function(x) {

      if(is.null(x)) return(NULL)
      row <- mtc()[mtc()$id == x$id, ]
      row$carname

  }

  mtc %>%
         ggvis(x= ~wt, y= ~mpg, key := ~id, fill = ~factor(cyl)) %>%
         layer_points() %>%
         group_by(cyl) %>%
         add_tooltip(all_values,"hover") %>%
         layer_model_predictions(model = "lm") %>%
         bind_shiny("plot")

  output$mtc_table <- renderTable({
    mtc()[, c("carname", "wt", "mpg", "cyl")]
  })
})
4

0 回答 0