1

いくつかのパラメーター (実験の数、クロス検証のフォールド数、および入力データ ファイル) を受け取り、いくつかの .R スクリプトをバックグラウンドで実行する Shiny アプリケーションを構築しようとしています。しかし、次のエラーが発生し続けます。

「操作は、アクティブなリアクティブ コンテキストなしでは許可されていません。(リアクティブ関数内からのみ実行できることを実行しようとしました。)」

私の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の明確化の要求に基づいています。これを行う1つの方法は次のとおりです。

Server.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 に答える