矢量中的闪亮替代反应值

Question

我想在一个反应​​数字向量中替换一些-Inf 在一个闪亮的脚本。完整的脚本非常大，所以 请考虑以下几行：

x＆lt; - reactive（{log（seq（0,10,2），10）}）

结果是：

-Inf 0.3010300 0.6020600 0.7781513 0.9030900 1.0000000

为了替换-Inf为0我尝试了：

y＆lt; - reactive（{x（）[x（）== - Inf]＆lt; - 0}）

但是，

警告：分配

的＆lt; - ：invalid（NULL）左侧出错

你知道这样做的正确方法是什么吗？

我知道这可能是一个基本问题，但我 在以前的帖子中找不到答案。

由于

涓

Answer 1

试试这个：

y <- reactive({
        y <- x()
        y[y == -Inf] <- 0
        return(y) })

我首先将x（）指定给y，然后将-Inf更改为0并返回新的向量。

Answer 2

您可以使用辅助函数is.infinite（）或is.finite（）

与Inf进行比较

y <- reactive({
   y <- x()
   y [is.infinite(x())] <- 0
   return(y) 
})