在 Shiny 中使用 ASReml 包的功能答案

【问题标题】：Function using ASReml package in Shiny在 Shiny 中使用 ASReml 包的功能
【发布时间】：2015-06-16 14:49:38
【问题描述】：

我在一个闪亮的应用程序中使用共享软件包ASReml。为了创建模型，我需要使用asreml() 函数。我首先创建了名为data1 的数据。

如果我使用asreml 函数，它可以正常工作： model<-asreml(fixed=TRAIT~TEMOIN,random=~PANEL,data=data1,na.method.X="include",na.method.Y="include") 并创建model

问题是我想创建很多不同的模型以便选择最好的模型。对我来说最简单的方法是创建一个返回模型列表的函数。例如，我这样做了： Model.list.creator=function(data.sle){ model<-asreml(fixed=TRAIT~TEMOIN,random=~PANEL,data=data.sle,na.method.X="include",na.method.Y="include") models=list(model) return(models) }

如果我在 R 控制台中使用 Results=Model.list.creator(data.sle=data1) 的函数，我会使用 Results[[1]] 获得模型。如果我在闪亮的应用程序中使用该函数，它会在显示函数结果后返回错误：Error in eval(expr, envir, enclos) : object 'data.sle' not found ...！

注意：mod 的计算是在observe 循环中进行的。

在此先感谢您对此问题的任何帮助

【问题讨论】：

标签： r shiny shiny-server

【解决方案1】：

help(observe) "...观察者就像一个响应式表达式，它可以读取响应式值并调用响应式表达式，并且当这些依赖关系发生变化时会自动重新执行。但与响应式表达式不同的是，它不会产生一个结果，不能用作其他反应式表达式的输入......” 尝试使用响应式。

【讨论】：

【解决方案2】：

我在 VSNi 论坛上找到了解决方案 - http://www.vsni.co.uk/forum/viewtopic.php?t=1081 将公式分配给全局环境，即使在闪亮应用程序的函数中调用 asreml 函数，它们也可以使用。

【讨论】：