Как об этом решении это будет работать и с вложенными объектами с массивом
Object.prototype.assignOwnProVal
= function (to,from){
function compose(obj,string){
var parts = string.split('.');
var newObj = obj[parts[0]];
if(parts[1]){
parts.splice(0,1);
var newString = parts.join('.');
return compose(newObj,newString);
}
return newObj;
}
this[to] = compose(this,from);
}
var obj = { name : 'Gaurav', temp :
{id : [10,20], city:
{street:'Brunswick'}} }
obj.assignOwnProVal('street','temp.city.street');
obj.assignOwnProVal('myid','temp.id.1');
Из пакета dplyr вы можете использовать функции filter()
и group_by()
для вычисления среднего значения цены (и sd) по акциям.
Предположим, ваш набор данных df
:
df %>%
filter(Date >= input$dateRange[1] & Date <= input$dateRange[2]) %>%
filter(Industry %in% input$industry_choices) %>%
group_by(Industry, stock) %>%
summarise(
price_mean = mean(price),
price_sd = mean(sd)
)
В Shiny входные данные рассматриваются как строки, иногда вам нужно будет использовать group_by_()
. Например, если пользователь может выбрать переменную для группировки по: group_by_(input$grouping_choice)