0

r を統合して、Ubuntu マシンで DeployR open 8.0.0 を使用して非常に単純な Web アプリケーションを作成しようとしています。クライアント側で次のコードを使用しています。

<html>
<head><script src="./js-client-library-7.4.3/browser/deployr.min.js"></script></head>
<body>
<script>
deployr.configure({cors: true, host: 'http://192.168.0.103:8000'})

var file = document.getElementById('csv-file').files[0]

deployr.auth('testuser','Aniruddha123')
        .io('/r/repository/file/upload')
        .attach(file, 'defects.csv')
        .io('/r/repository/script/execute')
        .data({filename: 'forestPredict.R', author: 'testuser', directory: 'root'})
        .end(function(result){
              ws = result.data.deployr.response.workspace;
              var preds = ws.objects[0].value;
              var error = ws.objects[1].value;
              document.write('<p>'+preds+'</p>'+'ERROR:' error)
              })


    </script>
    </body>
    </html>

および次の R コード:

 .libPaths( c( .libPaths(), "/home/aniruddha/R/x86_64-pc-linux-gnu-library/3.2") )

library(randomForest)

defects = read.csv('defects.csv')
train = defects[is.na(defects$bugs)]
test = defects[!is.na(defects$bugs)]

forestTest = randomForest(bugs~.,train[-1])
preditions = predict(forestTest, test[-1])

test$bugs = round(preditions)

result = rbind(train, test)

trainPreds = predict(forestTest, train[-1])
meanError = mean(abs(train$bugs - trainPreds))

私が得ているのは、ファイルをアップロードするためのボタンだけです...どこが間違っているのかわかりません...助けてください。

4

1 に答える 1

0

deployR のログを開始し、実際に何を取得しているかを deployr.configure({cors: true, host: ' http://192.168.0.103:8000 ',logging:true}) を使用して確認できます。

また、アップロード ボタンをクリックしたら、ブラウザの開発者ツールを起動します。スクリプトが失敗している場所を確認できます。

于 2016-04-18T07:52:51.073 に答える