功能闪亮的应用程序

Question

我尝试在闪亮的app中使用一个函数。

在ui我只调用该函数。

ui <- fluidPage(
  myfunctionvis<- testforjson(mods, corpus, myDfm)
  serVis(myfunctionvis)
)

并且在服务器端存在此函数的所有代码：

shinyServer(function(input, output) {

testforjson <- function(mods, corpus, myDfm){     
    # Find required quantities
    phi <- posterior(mods)$terms %>% as.matrix
    theta <- posterior(mods)$topics %>% as.matrix
    # the code continues

    return(json_lda)
  }
}

我收到的错误是它无法找到testforjson功能。

如何修复错误或在服务器端包含一个函数并调用以查看ui中的结果？

Answer 1

这样做的一种方法是创建一个global.R文件，您可以在其中声明可以在闪亮的应用程序中全局查看的变量和函数。

因此，您只需将testforjson功能放入global.R。

查看此页面了解更多详情：https://shiny.rstudio.com/articles/scoping.html