1

こんにちは、opencpu.right で R を使用しています。現在、jsonlite ライブラリを使用して結果を json 形式で取得していますが、残念ながら失敗します。このような出力が得られました。

["A101 Prateek Wisteria Sector 77 Noida New Delhi","7780274.18056666","1"]

このような出力が必要です

{ "flag": "0", "property_details", "<<address>>", "estimate", "<<estimated value from R>>" }

ここに私のプログラムがあります

library(jsonlite)
delhi <- read.delim("delhi.tsv", na.strings = "") 
delhi$lnprice <- log(delhi$price)
if(address1 %in% delhi$property_address_1)
{

    data <- read.delim("UItest.txt", na.strings = "")
    heddel <- lm(lnprice ~ bedrooms+ area+ bathrooms, data = delhi)
    result <- predict(heddel,data)
    final_prediction = exp(result)
    property_details = address1
    property_details
    flag=1 
    estimated_value <- final_prediction
    result <- c(property_details,estimated_value,flag)
    col_headings <- c('property_details','estimated_value','flag')
    names(result) <- col_headings
    toJSON(result,Pretty=TRUE)
    }

どんな助けでも大歓迎です。

4

2 に答える 2

0

結果を「転置」する必要があります。検討：

library(jsonlite)
col_headings <- c('property_details','estimated_value','flag')
result <- c("PropDetails", 1.1, TRUE)
results=data.frame(t(result))
names(results)=col_headings

それで：

toJSON(results)

生成:

[{"property_details":"PropDetails","estimated_value":"1.1","flag":"TRUE"}]
于 2015-09-23T06:25:41.063 に答える