我正在尝试将Amazon Product API集成到我的网站中,并且发现了几个帮助我构建URL的帖子.唯一的问题是当我执行下面的代码时,我得到以下错误.难道我做错了什么？
内部服务器错误服务器遇到内部错误或配置错误,无法完成您的请求.请联系服务器管理员awsadmin@amazon.com并告知他们错误发生的时间,以及可能导致错误的任何操作.服务器错误日志中可能提供了有关此错误的更多信息.
$AWS_ACCESS_KEY_ID = "[myaccesskeyhere]";
$AWS_SECRET_ACCESS_KEY = "[mysecretkeyhere]";
$base_url = "http://ecs.amazonaws.com/onca/xml?";
$url_params = array('Operation'=>"ItemSearch",'Service'=>"AWSECommerceService",
'AWSAccessKeyId'=>$AWS_ACCESS_KEY_ID,'AssociateTag'=>"yourtag-10",
'Version'=>"2006-09-11",'Availability'=>"Available",'Condition'=>"All",
'ItemPage'=>"1",'ResponseGroup'=>"Images,ItemAttributes,EditorialReview",
'Keywords'=>"Amazon");
// Add the Timestamp
$url_params['Timestamp'] = gmdate("Y-m-d\TH:i:s.\\0\\0\\0\\Z", time());
// Sort the URL parameters
$url_parts = array();
foreach(array_keys($url_params) as $key)
$url_parts[] = $key."=".$url_params[$key];
sort($url_parts);
// Construct the string to sign
$string_to_sign = "GET\necs.amazonaws.com\n/onca/xml\n".implode("&",$url_parts);
$string_to_sign = str_replace('+','%20',$string_to_sign);
$string_to_sign = str_replace(':','%3A',$string_to_sign);
$string_to_sign = str_replace(';',urlencode(';'),$string_to_sign);
// Sign the request
$signature = hash_hmac("sha256",$string_to_sign,$AWS_SECRET_ACCESS_KEY,TRUE);
// Base64 encode the signature and make it URL safe
$signature …我这里有一个虚拟列表:
> x <- c("a", "b", "c")
> y <- c("d", "e", "f")
> z <- list(x,y)
> z
[[1]]
[1] "a" "b" "c"
[[2]]
[1] "d" "e" "f"
如果我想指定另一个变量(例如w)来保存列表中所有向量(即x,y)的最后一项(即"c","f")(即z),我该怎么做？
谢谢!
我在办公室使用的计算机最近升级为四核计算机,这对我来说是一种祝福,因为有时我需要使用R做一些显式循环,结果基于一些逻辑规则,我可以'除了明确的循环之外,弄清楚如何解决这个问题.
对于某些背景信息,有时候我有大约10000-20000行,我需要查看2列,并根据它们的值和一些逻辑规则来为新列生成值.
我正在尝试使用该doSNOW软件包来更好地利用未使用的CPU电源,我已根据此处的示例编写了如下的演示脚本:
library(doSNOW)
# rm(list=ls())
cl<-makeCluster(2) # I have two cores
registerDoSNOW(cl)
table <- data.frame(a=rnorm(1000),b=rnorm(1000))
process <- function(table)
{for (loop in (1:nrow(table)))
{table[loop,"c"] <- with(table[loop,], a*b)
assign("table",table,envir=.GlobalEnv)
}
}
system.time(process(table))
system.time(foreach(j=1:2 ) %dopar% process(table))
stopCluster(cl)
我正在使用带有ATOM CPU的上网本试试这个,但结果很奇怪:
system.time(process(table))
user system elapsed
2.336 0.028 2.308
system.time(foreach(j=1:2 ) %dopar% process(table))
user system elapsed
0.160 0.032 3.646
在使用doSNOW之后,结果所需的时间比不使用doSNOW更长,我想知道这是我的ATOM上网本的问题,还是我在代码中做错了什么？
谢谢!
if如果字符串无法转换为日期,我想创建一个语句,如下所示:
as.Date("2010-00-01")
但是运行上面的行只是继续给出下面的错误输出:
Error in charToDate(x) :
character string is not in a standard unambiguous format
哪个我不能用它来if声明,if如果字符串无法转换为日期,如何使用语句？谢谢.
作为标题,我有一个包含大约13000行和255列的数据集(实际上我有超过255列,但是RODBC包似乎限制了导出到255的列数,所以我修剪了一下)需要导出到xls/xlsx文件.
我试过RODBC并xlsx打包,出口都需要5分钟以上.我想知道是否还有其他更有效的方法呢？
我知道一点python(使用python连接到outlook以便在邮箱中列出电子邮件),如果有使用python导出的方式,它也受欢迎.
相当多的人建议使用csv,在我的情况下可能不太可能,因为有一个包含自由文本的字段,我无法控制在该字段中输入的字符类型,难以选择分隔符.
感谢您的建议,但我发现R包只有在数据帧相对较小的情况下才能正常运行,而且对于所有列都是字符的数据帧来说,它甚至很慢.有什么建议？