Question

我第一次学习ggvis和闪亮，我写的代码在我使用滑块时导致R studio崩溃。我跑的时候会收到很多警告，但寻找答案并不富有成效。

来自控制台的错误日志：

光泽:: runApp（＆＃39; rworking / mtcars＆＃39;）     加载所需包装：有光泽     警告：软件包'有光泽'是在R版本3.4.2下构建的

聆听http://127.0.0.1:7789     警告：包'ggvis'是在R版本3.4.2下构建的     ggvis API目前正在快速发展。我们强烈建议您不要依赖此产品，但随时可以探索。如果您遇到明确的错误，请在https://github.com/rstudio/ggvis/issues处提交一份最小的可重复示例。如有问题和其他讨论，请使用https://groups.google.com/group/ggvis。     警告：包'dplyr'是在R版本3.4.2下构建的

附加包：'dplyr'

以下对象从'package：stats'屏蔽：

过滤，滞后

以下对象从'package：base'屏蔽：

intersect，setdiff，setequal，union

bind_rows_（x，.id）中的警告：       不平等因素水平：胁迫性格     bind_rows_（x，.id）中的警告：       绑定字符和因子向量，强制转换为字符向量     bind_rows_（x，.id）中的警告：       绑定字符和因子向量，强制转换为字符向量     bind_rows_（x，.id）中的警告：       绑定字符和因子向量，强制转换为字符向量     bind_rows_（x，.id）中的警告：       不平等因素水平：胁迫性格     bind_rows_（x，.id）中的警告：       绑定字符和因子向量，强制转换为字符向量     bind_rows_（x，.id）中的警告：       绑定字符和因子向量，强制转换为字符向量     bind_rows_（x，.id）中的警告：       绑定字符和因子向量，强制转换为字符向量     bind_rows_（x，.id）中的警告：       不平等因素水平：胁迫性格     bind_rows_（x，.id）中的警告：       绑定字符和因子向量，强制转换为字符向量     bind_rows_（x，.id）中的警告：       绑定字符和因子向量，强制转换为字符向量     bind_rows_（x，.id）中的警告：       绑定字符和因子向量，强制转换为字符向量     simpleLoess中的警告（y，x，w，span，degree = degree，parametric = parametric，：       跨度太小。数据值少于自由度。     simpleLoess中的警告（y，x，w，span，degree = degree，parametric = parametric，：       pseudoinverse用于27.267     simpleLoess中的警告（y，x，w，span，degree = degree，parametric = parametric，：       邻域半径3.133     simpleLoess中的警告（y，x，w，span，degree = degree，parametric = parametric，：       倒数条件数0     simpleLoess中的警告（y，x，w，span，degree = degree，parametric = parametric，：       还有其他近似奇点。 12.482     bind_rows_（x，.id）中的警告：       不平等因素水平：胁迫性格     bind_rows_（x，.id）中的警告：       绑定字符和因子向量，强制转换为字符向量     bind_rows_（x，.id）中的警告：       绑定字符和因子向量，强制转换为字符向量     bind_rows_（x，.id）中的警告：       绑定字符和因子向量，强制转换为字符向量     bind_rows_（x，.id）中的警告：       不平等因素水平：胁迫性格     bind_rows_（x，.id）中的警告：       绑定字符和因子向量，强制转换为字符向量     bind_rows_（x，.id）中的警告：       绑定字符和因子向量，强制转换为字符向量     bind_rows_（x，.id）中的警告：       绑定字符和因子向量，强制转换为字符向量     simpleLoess中的警告（y，x，w，span，degree = degree，parametric = parametric，：       跨度太小。数据值少于自由度。     simpleLoess中的警告（y，x，w，span，degree = degree，parametric = parametric，：       pseudoinverse于19.189使用     simpleLoess中的警告（y，x，w，span，degree = degree，parametric = parametric，：       邻域半径1.811     simpleLoess中的警告（y，x，w，span，degree = degree，parametric = parametric，：       倒数条件数0     simpleLoess中的警告（y，x，w，span，degree = degree，parametric = parametric，：       还有其他近似奇点。 0.16892     错误：span太小     警告：UseMethod出错：没有适用的方法适用于＆＃39; apply_props＆＃39;适用于类＆＃34;功能＆＃34;的对象     堆栈跟踪（最里面的第一个）：         71：apply_props         70：         59：data_reactive         58：as.vega         57：session $ sendCustomMessage         56：observerFunc          1：shiny :: runApp     警告：UseMethod出错：没有适用的方法适用于＆＃39; apply_props＆＃39;适用于类＆＃34;功能＆＃34;的对象     堆栈跟踪（最里面的第一个）：         59：         58：停下来         57：data_table [[name]]         56：observerFunc          1：shiny :: runApp     错误：[on_request_read]连接由peer重置

Server.R

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

shinyServer(function(input, output) {


  mtcars %>%
    group_by(cyl) %>%
    ggvis(~mpg, ~disp, fill = ~factor(cyl)) %>%
    filter(mpg > eval(input_slider(10, 35, 10))) %>%  # this is the trick
    layer_points() %>%
    layer_smooths() %>%
    scale_numeric("x", domain = c(10, 35)) %>%  # keep axis stable
    scale_numeric("y", domain = c(0, 500)) %>%  # same
    bind_shiny("p", "p_ui") 
})

ui.R

library(ggvis)
library(shiny)

shinyUI(bootstrapPage(
  wellPanel(
    uiOutput("p_ui"),
    ggvisOutput("p"),
    HTML("Comparing cars by disp and mpg")
  )))

使用反应元素时，R Studio不断崩溃

0 个答案: