我想知道是否有一种方法可以集成manipulate包或gWidgetsManipulate包,以便它们的输出可以在html/markdown输出文件中查看/操作,因为我认为这在开发可重现的交互式研究报告时非常有用.我知道googleVis有一些功能允许它与knitr集成,以便输出通过使用像results ='asis'这样的选项进入html文件,但googleVis目前在使用滑块时的功能非常严格.
如果还没有完全集成了manipulate或gWidgetsManipulate的软件包输出,那么是否可以暂时建议一个允许在html文件中查看的解决方法？
即我在运行knitr-ing到html之前我的Rmd文件中的当前代码如下所示...但是我得到以下错误.
```{r}
library(manipulate)
manipulate(plot(1:x), x = slider(5, 10))
```
与输出
library(manipulate)
## Error: there is no package called 'manipulate'
manipulate(plot(1:x), x = slider(5, 10))
## Error: could not find function "manipulate"
所以尝试使用gWidgetsManipulate包...
```{r}
library(gWidgetsManipulate)
manipulate(plot(1:x), x = slider(5, 10))
```
你得到错误......
library("gWidgetsManipulate")
## Loading required package: gWidgets
manipulate(plot(1:x), x = slider(5, 10))
## Error: unable to find an inherited method for function ".gwindow", for signature "NULL"
我试图通过使用像这样的东西来指定一个guiToolkit来修复这个错误
options(guiToolkit="WWW")
但无济于事......
任何帮助将不胜感激,提前感谢
我正在使用从上午9:50开始的日内数据,并希望将其转换为20分钟的时间间隔,因此第一个时间段将是从09:50到10:09:59,第二个时间段将从10开始: 10到10:29:59然而.to.minutes()从xts包裹似乎把它固定在小时和时间栏在09:59:59和10:19:59等...即它是10分钟...我知道它可能不是一个常规的请求...但无论如何这样做是为了使它具有正确的端点,即基于frist时间戳？
并获得奖励积分......有没有办法根据最终时间戳做到这一点？(即从该时间戳生成期末端点？
这里是我的观点的一个例子,关于它是10分钟(从我想要的)
x <- xts(rnorm(24*60*60), as.POSIXct(format(paste(Sys.Date(),'09:50')))-((24*60*60):1))
head(x)
x1 <- to.minutes(x, 20)
head(x1)
我可以想办法通过使用分裂,切割,lapplys do.calls和rbinds来纠正这个问题....但我基本上会重新创建一个OHLC对象......并且觉得它与现有的相比可能效率低下解决方案...
我想使用R包httr通过他们的API访问EC2服务.但我有点不确定如何开始,因为它不属于通常的"Oauth2.0"身份验证格式,其中你有通常的:密钥,秘密,令牌和签名系统.我认为EC2使用"签名版本2"方法,但我不清楚它是如何工作的.
查看EC2提供的有关在http://docs.amazonwebservices.com/AWSEC2/latest/UserGuide/using-query-api.html上发出查询请求的文档
我想我需要签名的价值......但不知道如何得到它
我已尝试使用一些给定的命令httr,如下所示.我可以适应大部分的URL字符串参数来表示我,我想做例如事情AWSAccessKeyId,ImageId,endpoint和Action等....但就是不知道哪里去获得签名值.
同样在给出的一些例子中,他们似乎也没有提供秘密访问密钥......
所以尝试过的命令如下所示,改变了一些值来代表我,但得到了以下内容:
require(httr)
GET("https://ec2.amazonaws.com/
?Action=RunInstances
&ImageId=ami-60a54009
&MaxCount=3
&MinCount=1
&Placement.AvailabilityZone=us-east-1b
&Monitoring.Enabled=true
&AWSAccessKeyId=0GS7553JW74RRM612K02EXAMPLE
&Version=2012-10-01
&Expires=2010-10-10T12:00:00Z
&Signature=lBP67vCvGlDMBQ1dofZxg8E8SUEXAMPLE
&SignatureVersion=2
&SignatureMethod=HmacSHA256")
我得到了答复:
Response [http://aws.amazon.com/ec2/]
Status: 200
Content-type: text/html; charset=UTF-8
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<link rel="icon" type="image/ico" href="//d36cz9buwru1tt.cloudfront.net/favicon.ico">
<link rel="shortcut icon" type="image/ico" href="//d36cz9buwru1tt.cloudfront.net/favicon.ico">
<meta name="description" content="Amazon Elastic Compute Cloud delivers scalable, pay-as-you-go compute capacity in the cloud. " /><meta …我希望能够将我的Mac连接到我的EC2实例,以便parallel使用makePSOCKcluster或通过包在AWS上执行并行处理makeSOCKCluster.
目前我的尝试让R'悬挂'所以我已经调整了它makePSOCKcluster和它的一些子程序,以便通过-v在ssh中添加一个选项来看到它的一些输出.我想我已经设法处理无密码的ssh登录,但是我陷入了socketConnection我认为导致问题的部分.
我曾尝试将弹性IP关联起来并使用那些作为IP地址无济于事,也尝试调整安全组,使其包含makePSOCKcluster使用的默认端口无效......在后一种情况下,我没有使用ports参数并使用10187的默认端口选项,它说:
Error in socketConnection("localhost", port = port, server = TRUE, blocking = TRUE, :
cannot open the connection
In addition: Warning message:
In socketConnection("localhost", port = port, server = TRUE, blocking = TRUE, :
port 10187 cannot be opened
看几个hpc邮件列表问题,这似乎是一个与windows相关的问题......但鉴于我从Mac连接,我不认为我属于这一类.
该hosts对象只是启动EC2实例后提供的公共DNS.
以下是我目前的尝试,已经调整了一些makePSOCKcluster功能,makePSOCKcluster1他们应该大致相同.
我已经指定了rscript与ubuntu实例上预期匹配的参数,并且我已经指定了ubuntu在ubuntu EC2实例上登录的用户名.
makePSOCKcluster1 <- function (names, ...) {
if (is.numeric(names))
names <- rep("localhost", names[1]) …已经制定了OAuth的签名审批制度,对Dropbox的,我想下载,我救了一个有文件.RData使用API,以及httr的GET功能.
该请求是sucessfull与数据回来,但它是在原始格式,并想知道我怎么去再次将其转换成一个RDATA文件我的本地驱动器上.
这就是我到目前为止所做的:......
require(httr)
db.file.name <- "test.RData"
db.app <- oauth_app("db",key="xxxxx", secret="xxxxxxx")
db.sig <- sign_oauth1.0(db.app, token="xxxxxxx", token_secret="xxxxxx")
response <- GET(url=paste0("https://api-content.dropbox.com/1/files/dropbox/",db.file.name),config=c(db.sig,add_headers(Accept="x-dropbox-metadata")))
str(response)
List of 8
$ url : chr "https://api-content.dropbox.com/1/files/dropbox/test.RData"
$ handle :List of 2
..$ handle:Formal class 'CURLHandle' [package "RCurl"] with 1 slots
.. .. ..@ ref:<externalptr>
..$ url :List of 8
.. ..$ scheme : chr "https"
.. ..$ hostname: chr "api-content.dropbox.com"
.. ..$ port : NULL
.. ..$ path : chr ""
.. ..$ query …我xtsExtra在Windows机器上安装R软件包时遇到了一些困难......而且不太确定什么是错的......
> install.packages("xtsExtra", ,repos="http://R-Forge.R-project.org")
Warning in install.packages :
package ‘xtsExtra’ is not available (for R version 3.0.0)
Error in install.packages : argument is missing, with no default
> sessionInfo()
R version 3.0.0 (2013-04-03)
Platform: i386-w64-mingw32/i386 (32-bit)
locale:
[1] LC_COLLATE=English_United Kingdom.1252 LC_CTYPE=English_United Kingdom.1252
[3] LC_MONETARY=English_United Kingdom.1252 LC_NUMERIC=C
[5] LC_TIME=English_United Kingdom.1252
attached base packages:
[1] stats graphics grDevices utils datasets methods base
loaded via a namespace (and not attached):
[1] tools_3.0.0
> install.packages("xtsExtra", repos="http://R-Forge.R-project.org")
Warning in install.packages :
package ‘xtsExtra’ …嗨,我希望按时间分配一些细微的数据.我通常使用xts类似的东西:
subset.string <- 'T10:00/T13:00'
xts.min.obj[subset.string]
获取所有在每天上午10点到下午1点(含)之间的行,并将输出作为xts格式.但对我的目的来说有点慢......例如
j <- xts(rnorm(10e6),Sys.time()-(10e6:1))
system.time(j['T10:00/T16:00'])
user system elapsed
5.704 0.577 17.115
我知道这data.table是快速的并且在子集化大型数据集时所以我想知道是否与fasttime包一起处理快速POSIXct创建,如果值得创建类似的函数
dt.time.subset <- function(xts.min.obj, subset.string){
require(data.table)
require(fasttime)
x.dt <- data.table(ts=format(index(xts.min.obj),"%Y-%m-%d %H:%M:%S %Z"),
coredata(xts.min.obj))
out <- x.dt[,some.subsetting.operation.using."%between%"]
xts(out,fastPOSIXct(out[,ts])
}
将xts.min.obj转换为data.table添加某种字符索引,然后使用data.table对相关行进行子集,使用输出行索引和fasttime来重新创建xts输出？或者对于已经高度优化并用C语言编写的东西来说,这是多少多余的操作？
这可能非常简单,但是希望能够基于随机列选择来总结一些数据(平均值和中值),并且可以通过不同的列进行分组.
请看下面:
DT = data.table(x=rep(c("a","b","c"),each=3), y=c(1,3,6), v=1:9)
ww <- sample(c("y","v"),1)
DT[,list(avg=mean(ww),med=median(ww)),by="x"]
x avg med
1: a NA y
2: b NA y
3: c NA y
Warning messages:
1: In `[.data.table`(DT, , list(avg = mean(ww), med = median(ww)), :
argument is not numeric or logical: returning NA
2: In `[.data.table`(DT, , list(avg = mean(ww), med = median(ww)), :
argument is not numeric or logical: returning NA
3: In `[.data.table`(DT, , list(avg = mean(ww), med = median(ww)), :
argument is not …我想发送给其他人,我已经使用创建的演示文稿R和slidfy,但它包含敏感信息,所以把它在github pages使用gh-pages分支,然后发送URL是不是一个真正的选择,因为所有的GitHub页面都是公开的,如此处所示.
向上推到一丝闪亮的服务器,以及似乎有点不安全太...(我会非常喜欢这样做免费,所以建立一个服务器来承载一个演示文稿似乎有点麻烦和矫枉过正我的目的)
我不认为Dropbox的会工作,要么因为这是如果别人类型到一个地址栏,很可能是能够下载并查看敏感信息产生的任何URL链接...
是否有发送演示文稿(通过电子邮件或其他方式)的包含所有必要的文件,它的工作,这是一种让谁不使用R可以打开它,并轻松地查看它的人.(即不必给他们的所有文件的zip文件(即assets和libraries和figure文件夹等),要求他们将它解压缩,然后打开index.html文件)？
编辑
我忘了提到演示文稿也包括nvd3和morrisjs图表,这使得很难一次性带来所有文件...
EDIT2
鉴于所有使用的库都是公共库,有没有办法引用URL而不是本地驱动器？
您好，我想知道是否可以在 R 闪亮中复制这个（http://dygraphs.com/tests/dynamic-update.html）？
我正在查看 dygraph 包（https://rstudio.github.io/dygraphs/index.html）的文档，但看不到与它相关的任何内容更新到未完全重新绘制图形的数据，也许是一些需要某种代理吗？
r ×10
xts ×3
data.table ×2
httr ×2
knitr ×2
shiny ×2
amazon-ec2 ×1
benchmarking ×1
dropbox ×1
dropbox-api ×1
dygraphs ×1
ec2-ami ×1
foreach ×1
gwidgets ×1
html ×1
rcurl ×1
slidify ×1
time-series ×1