Возможно, это немного сложнее, но вы можете использовать веб-сервер для маршрутизации запроса. С nodejs вы не имеете этой проблемы. Я не эксперт в узле js. Поэтому я не знаю, является ли это чистым кодом.
Но это работает для меня
Вот немного примера:
NODE JS
var rp = require('request-promise');
var express = require('express'),
app = express(),
port = process.env.PORT || 3000;
var options = {
method: 'POST',
uri: 'http://api.posttestserver.com/post',
body: {
some: 'payload'
},
json: true // Automatically stringifies the body to JSON
};
app.get('/', function (req, res) {
rp(options)
.then(function (parsedBody) {
res.send(parsedBody)
})
.catch(function (err) {
res.send(err)
});
});
app.listen(port);
JS
axios.get("http://localhost:3000/").then((res)=>{
console.log('================res====================');
console.log(res);
console.log('====================================');
})
Используйте ?factor
.
См. этот пример
> set.seed(1)
> dummyVariable <- sample(c(0,1), 10, TRUE) # bunch of 0 and 1
> newVariable <- factor(dummyVariable, levels=c(0,1), labels=c("No", "Yes"))
> newVariable # this is now a dummy variable ready for regression analysis
[1] No No Yes Yes No Yes Yes Yes Yes No
Levels: No Yes
Другой способ получить от этого фактор:
factor(ifelse(dummyVariable, 'Yes', 'No'))
Вы также можете просто использовать свои значения в качестве индексов вектора c('no','yes')
, добавив 1, когда ваши значения начинаются с 0.
Это будет легко обобщать в случае более двух значений, что не будет работать так хорошо с ifelse
:
c('no','yes')[df$col+1]
или
factor(c('no','yes')[df$col+1],c('no','yes'))
Попробуйте использовать gsub
.
dummyVariable<-gsub(0,"No",dummyVariable)
dummyVariable<-gsub(1,"Yes",dummyVariable)
dummyVariable
# [1] "No" "No" "Yes" "Yes" "No" "Yes" "Yes" "Yes" "Yes" "No"