我正在尝试将我的终端订阅到SNS https订阅。 我的代码似乎没有收到发送确认数据的SNS的POST请求。 我正在使用带有快速框架的Node。
我有一种感觉,我没有正确解析响应。 我会附上我的代码。
任何人在这里看到任何看起来像歪斜的东西? 任何帮助表示赞赏。
spend <- do.call("rbind", replicate(100, spend, simplify = FALSE))
set.seed(123)
spend <- spend %>%
group_by(Dept) %>% # note the group_by()
mutate(Rating=sample(rating, size=n(), prob=probs, replace=TRUE))
spend %>%
group_by(Dept, Rating) %>%
summarise(n=n()) %>%
mutate(freq=n/sum(n))
# A tibble: 12 x 4
# Groups: Dept [3]
Dept Rating n freq
<chr> <chr> <int> <dbl>
1 HR Achieves Expectations 405 0.67500000
2 HR Exceeds Expectation 148 0.24666667
3 HR Needs Improvement 21 0.03500000
4 HR Outstanding 26 0.04333333
5 IT Achieves Expectations 878 0.67538462
6 IT Exceeds Expectation 325 0.25000000
7 IT Needs Improvement 37 0.02846154
8 IT Outstanding 60 0.04615385
9 Marketing Achieves Expectations 738 0.67090909
10 Marketing Exceeds Expectation 281 0.25545455
11 Marketing Needs Improvement 29 0.02636364
12 Marketing Outstanding 52 0.04727273