blocks|key|1027567|text|我是包的维护者。Thomas+Leeper给我指出了这个。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1027568|首先，我要道歉。traffic_history是个bug。它应该在测试中被捕获，但不知何故单元测试没有运行。最新的开发版本解决了这个问题。它应该很快就会出现在CRAN超级上：|1027569|devtools::install_github("cloudyr/aws.alexa")
library(aws.alexa)
set_secret_key("XXXXX",+"XXXXX")
traffic+<-+traffic_history("http://www.google.com")
head(traffic)|code-block|syntax|javascript|1027570|++++++`date+page_views_per_million+page_views_per_user+rank+reach_per_million+1++2017-03-29++++++++++++++++++87520++++++++++++++++8.68++++1++++++++++++439900+2++2017-03-30++++++++++++++++++87640++++++++++++++++8.54++++1++++++++++++443300+3++2017-03-31++++++++++++++++++83900++++++++++++++++8.23++++1++++++++++++431900`+|1027571|我不能为url_info复制这个问题。如果系统仍然给出错误，您是否可以再试一次并联系。|1027572|entityMap^0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|P|8|@]|9|@]|A|$]]|$1|D|3|E|5|F|7|Q|8|@]|9|@]|A|$G|H]]|$1|I|3|J|5|F|7|R|8|@]|9|@]|A|$G|H]]|$1|K|3|L|5|6|7|S|8|@]|9|@]|A|$]]|$1|M|3|-4|5|6|7|T|8|@]|9|@]|A|$]]]|N|$]]

I am the package maintainer. Thomas Leeper pointed me to this.

First, apologies. the traffic_history was a bug. It should have been caught in the tests but somehow unit tests weren't running. Latest dev release solves it. And it should be on CRAN super soon:

<pre><code>devtools::install_github("cloudyr/aws.alexa")
library(aws.alexa)
set_secret_key("XXXXX", "XXXXX")
traffic &lt;- traffic_history("http://www.google.com")
head(traffic)
</code></pre>

<code>
 date page_views_per_million page_views_per_user rank reach_per_million
1 2017-03-29 87520 8.68 1 439900
2 2017-03-30 87640 8.54 1 443300
3 2017-03-31 83900 8.23 1 431900
</code>

I couldn't replicate the issue for url_info. Can you try again and reach out if it is still giving an error.

blocks|key|3537159|text|很抱歉回答得太晚了，现在我将发布我通过只使用url_info函数的一部分来获取信息的脚本。我知道这不会很清楚。如果我只使用这个函数，错误仍然存在。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|3537160|library(rvest)
library(aws.alexa)
library(aws.signature)
library(httr)
library(XML)
require(plyr)
library(dplyr)
library(ggplot2)

#first+run:+setSecretKey,+trafficHistory,+alexa_GET

url+<-+read_html("http://www.lombardiapress.it/lombardiapress/portale/index.php?s=3#")

newsP+<-+url+%25>%25
++++html_nodes(xpath='//*[(@id+=+"divBergamo")+or+(@id+=+"divBrescia")+or+(@id+=+"divComo")+or+(@id+=+"divCremona")+or+(@id+=+"divLecco")
+++++++++++++++or+(@id+=+"divLodi")+or+(@id+=+"divMantova")+or+(@id+=+"divMilano")+or+(@id+=+"divMonza")+or+(@id+=+"divPavia")+or+(@id+=+"divSondrio")
+++++++++++++++or+(@id+=+"divVarese")]//a')+

df+<-+bind_rows(lapply(xml_attrs(newsP),+function(x)+data.frame(as.list(x),+stringsAsFactors=FALSE)))
head(df)
df+<-+df[!duplicated(df$href),]
df+<-+df[!is.na(df$href),]


set_secret_key(key="XXXXXXXXXXXZP4FQ",+secret="XXXXXXXXXXXXXXXXXXXXXXXXX%2Bdlpdqip")

avg+<-+data.frame(pageviewsPerMillion+=+numeric(),+pageViewsPerUser+=+numeric(),+Rank+=+numeric(),
++++++++++++++++++++++reachPerMillion+=numeric(),+stringsAsFactors=FALSE)


for(i+in+1:nrow(df)){
++query+<-++list(Action+=+"TrafficHistory",+Url+=+df[i,2],+ResponseGroup="History",+range=15,+start="20170201")
++traffic_payload+<-+alexa_GET(query)
++res_list+<-+lapply(lapply(traffic_payload[[2]][[1]],+"[[",+4)[[1]],+unlist)+#Had+to+change+the+indexing+here+cause+it+wasn't+pointing+to+the+right+node+(I+think+this+was+the+issue)
++db+<-+rbind.fill(lapply(res_list,function(y){as.data.frame(t(y),stringsAsFactors=FALSE)}))
++db+<-+db[,-1]
++#db+<-+as.data.frame(t(data.frame(res_list,stringsAsFactors=FALSE)))
++db+<-+lapply(db,+as.numeric)
++url[i]+<-+df[i,2]
++avg[i,]+<-+data.frame(pageviewsPerMillion+=+mean(db$PageViews.PerMillion,+na.rm+=+TRUE),+pageViewsPerUser+=+mean(db$PageViews.PerUser,+na.rm+=+TRUE),+Rank+=+mean(db$Rank,+na.rm+=+TRUE),
++++++++++++++++++++++++reachPerMillion+=+mean(db$Reach.PerMillion,+na.rm+=+TRUE))
}
avg$url+<-+unlist(url)

avg+<-+avg[!is.na(avg$pageviewsPerMillion),]
setwd("~/R+projects/Alexa+rank")
write.csv2(avg,+"Ranking_Testate_Lombardia.csv")

ggplot()+%2B+geom_col(data=avg,+aes(reorder(url,+pageviewsPerMillion),+pageviewsPerMillion))+%2B
++theme(axis.text.x+=+element_text(angle+=+45,+hjust+=+1,+size+=+20),+legend.position+=+"none")

ggplot()+%2B+geom_col(data=avg,+aes(reorder(url,+pageViewsPerUser),+pageViewsPerUser))+%2B
++theme(axis.text.x+=+element_text(angle+=+45,+hjust+=+1,+size+=+20),+legend.position+=+"none")

ggplot()+%2B+geom_col(data=avg,+aes(reorder(url,+1/Rank),+1/Rank))+%2B
++theme(axis.text.x+=+element_text(angle+=+45,+hjust+=+1,+size+=+20),+legend.position+=+"none")

ggplot()+%2B+geom_col(data=avg,+aes(reorder(url,+reachPerMillion),+reachPerMillion))+%2B
++theme(axis.text.x+=+element_text(angle+=+45,+hjust+=+1,+size+=+20),+legend.position+=+"none")|code-block|syntax|javascript|3537161|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Apologies for the late answer, for now i'll post the script with which I managed to obtain informations through taking just part of the url_info function. I know this will not be clear. The error is still there if I use just the function. 

<pre><code>library(rvest)
library(aws.alexa)
library(aws.signature)
library(httr)
library(XML)
require(plyr)
library(dplyr)
library(ggplot2)

#first run: setSecretKey, trafficHistory, alexa_GET

url &lt;- read_html("http://www.lombardiapress.it/lombardiapress/portale/index.php?s=3#")

newsP &lt;- url %&gt;%
 html_nodes(xpath='//*[(@id = "divBergamo") or (@id = "divBrescia") or (@id = "divComo") or (@id = "divCremona") or (@id = "divLecco")
 or (@id = "divLodi") or (@id = "divMantova") or (@id = "divMilano") or (@id = "divMonza") or (@id = "divPavia") or (@id = "divSondrio")
 or (@id = "divVarese")]//a') 

df &lt;- bind_rows(lapply(xml_attrs(newsP), function(x) data.frame(as.list(x), stringsAsFactors=FALSE)))
head(df)
df &lt;- df[!duplicated(df$href),]
df &lt;- df[!is.na(df$href),]


set_secret_key(key="XXXXXXXXXXXZP4FQ", secret="XXXXXXXXXXXXXXXXXXXXXXXXX+dlpdqip")

avg &lt;- data.frame(pageviewsPerMillion = numeric(), pageViewsPerUser = numeric(), Rank = numeric(),
 reachPerMillion =numeric(), stringsAsFactors=FALSE)


for(i in 1:nrow(df)){
 query &lt;- list(Action = "TrafficHistory", Url = df[i,2], ResponseGroup="History", range=15, start="20170201")
 traffic_payload &lt;- alexa_GET(query)
 res_list &lt;- lapply(lapply(traffic_payload[[2]][[1]], "[[", 4)[[1]], unlist) #Had to change the indexing here cause it wasn't pointing to the right node (I think this was the issue)
 db &lt;- rbind.fill(lapply(res_list,function(y){as.data.frame(t(y),stringsAsFactors=FALSE)}))
 db &lt;- db[,-1]
 #db &lt;- as.data.frame(t(data.frame(res_list,stringsAsFactors=FALSE)))
 db &lt;- lapply(db, as.numeric)
 url[i] &lt;- df[i,2]
 avg[i,] &lt;- data.frame(pageviewsPerMillion = mean(db$PageViews.PerMillion, na.rm = TRUE), pageViewsPerUser = mean(db$PageViews.PerUser, na.rm = TRUE), Rank = mean(db$Rank, na.rm = TRUE),
 reachPerMillion = mean(db$Reach.PerMillion, na.rm = TRUE))
}
avg$url &lt;- unlist(url)

avg &lt;- avg[!is.na(avg$pageviewsPerMillion),]
setwd("~/R projects/Alexa rank")
write.csv2(avg, "Ranking_Testate_Lombardia.csv")

ggplot() + geom_col(data=avg, aes(reorder(url, pageviewsPerMillion), pageviewsPerMillion)) +
 theme(axis.text.x = element_text(angle = 45, hjust = 1, size = 20), legend.position = "none")

ggplot() + geom_col(data=avg, aes(reorder(url, pageViewsPerUser), pageViewsPerUser)) +
 theme(axis.text.x = element_text(angle = 45, hjust = 1, size = 20), legend.position = "none")

ggplot() + geom_col(data=avg, aes(reorder(url, 1/Rank), 1/Rank)) +
 theme(axis.text.x = element_text(angle = 45, hjust = 1, size = 20), legend.position = "none")

ggplot() + geom_col(data=avg, aes(reorder(url, reachPerMillion), reachPerMillion)) +
 theme(axis.text.x = element_text(angle = 45, hjust = 1, size = 20), legend.position = "none")
</code></pre>

I'm trying to use the aws.alexa package to retrieve traffic info about a list of urls, but whenever I try to use the url_info() function, this error pops up:

<pre><code> url_info("http://www.google.com")
 &gt;Request ID: 1e7cdXXXXXXXXXXXa8-c0700a4eXXXX 
 &gt;Response Status: Success 
 &gt;Error in urlinfo_payload[[2]][[1]][[2]] : subscript out of bounds
</code></pre>

Anyone has got any idea why it is behaving like that?

Whenever I try this other function the error is different:

<pre><code> traffic &lt;- traffic_history("http://www.google.com")
 &gt;Error in as.Date.default(date, "%Y%m%d") : 
 &gt;do not know how to convert 'date' to class “Date”
</code></pre>

Other functions like browse_categories work, so I guess the problem does not rely with authentication:

<pre><code> browse_categories(path="Top/Arts")
</code></pre>

Thanks.

Errors in aws.alexa url_info function

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

我尝试使用aws.alexa包来检索有关urls列表的交通信息，但每当我尝试使用url_info()函数时，就会弹出以下错误：    url_info("http://www.google.com")    >Request ID:  1e7cdXXXXXXXXXXXa8-c0700a4eXXXX     >Respo...

问aws.alexa url_info函数中的错误
EN

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问aws.alexa url_info函数中的错误EN