1

我正在尝试构建一个 Shiny 应用程序，它接受许多参数（实验次数、交叉验证的折叠次数和输入数据文件），然后在后台运行一些 .R 脚本。但我不断收到以下错误：

“在没有主动反应上下文的情况下不允许操作。（你试图做一些只能从反应函数内部完成的事情。）”

这是我的 ui.R 的代码片段：

library(shiny)

experiments <- list(
  "1" = 1,
  "3" = 3,
  "5" = 5,
  "10" = 10,
  "50" = 50
)
folds <- list(
  "1" = 1,
  "3" = 3,
  "5" = 5,
  "10" = 10
)

shinyUI(
  pageWithSidebar(
    headerPanel("Classification and Regression Models"),
    sidebarPanel(
      selectInput("experiments_number", "Choose Number of Experiments:",
                  choices = experiments)
      selectInput("folds_number", "Choose Number of Folds:", choices = folds),
      fileInput(
        "file1",
        "Choose a CSV file:",
        accept = c('text/csv', 'text/comma-separated-values', 'text/plain')
      )
    ),

以及我的 server.R 代码的开头：

shinyServer(function(input,output){
    # Server logic goes here.

    experimentsInput <- reactive({
        switch(input$experiments_number,
            "1" = 1,
            "3" = 3,
            "5" = 5,
            "10" = 10,
            "50" = 50)
    })

foldsInput <- reactive({
        switch(input$folds_input,
            "1" = 1,
            "3" = 3,
            "5" = 5,
            "10" = 10)
    })

if (is.null(input$file1$datapath))
                return(NULL)

source("CART.R")

有任何想法吗？

谢谢！

4

1 回答 1

3

在您的 CART.R 中，您有这条线dataset <- input$file1$datapath

您正在 server.R 中访问此输入槽，但它不在“反应式上下文”中，这是错误消息告诉您的内容。

要克服此错误，您必须将其包装在反应函数中。

ds <- reactive({
  dataset <- input$file1$datapath
})

并用ds()

更新

基于OP的澄清请求。这是一种方法：

在服务器.R

source("CART.R") #which does NOT access reactive elements
#common functions go here. (non-reactive ones)

shinyServer(function(input, output) { 
  
  ds <- reactive({
    dataset <- input$file1$datapath
  })
         
  output$rt <- renderText({
    {  ds1 <- ds()
      #now ds1 is available in this function
      Do something with ds1
    }
  })

这是来自 Shiny 团队的完整示例。示例 03_reactivityrunExample("03_reactivity")加载 Shiny 库后， 您可以通过键入来运行它。

希望有帮助。

于 2013-09-19T17:08:23.787 回答