我有一个制作条形图的脚本,当有6个条形图写入屏幕并在必要时不断打开新的图形设备时打开一个新窗口.这取决于输入,这给我留下了潜在的大量开放窗口(图形设备),我想写入单个PDF文件.
考虑到我的Perl背景,我决定迭代不同的图形设备,逐个打印出来.我想继续附加一个PDF文件,但我不知道如何做到这一点,或者甚至可能.我想避免在R.中循环:)
我使用的代码:
for (i in 1:length(dev.list())
{
dev.set(which = dev.list()[i]
dev.copy2pdf(device = quartz, file = "/Users/Tim/Desktop/R/Filename.pdf")
}
但是,这不起作用,因为它每次都会覆盖文件.现在在R中有一个追加函数,就像在Perl中一样.这允许我继续向现有的pdf文件添加页面？
或者有没有办法将图形窗口中的信息包含到对象中,并继续向该对象添加新的图形设备,最后将整个内容打印到文件中？
我想到的其他可能的解决方案:
我正在迭代一个向量,对于每个元素,我通过rowname在表中查找某些内容并将返回值复制到另一个向量中.以下代码用于此
gs1 = function(p)
{
output <- character() #empty vector to which results will be forwarded
for (i in 1:length(p)) {
test <- p[i]
index <- which(rownames(conditions) == test)
toappend <- conditions[index,3] #working
output[i] <- toappend
print(paste(p[i],index,toappend,output[i]))
}
return(output)
}
所有它吐出来的是带有数字的向量....而所有其他变量似乎都包含正确的信息(由打印函数检查)我感觉我在填充输出向量时做了一些非常错误的事情......我也可以用
output <- c(output,toappend)
但这给了我完全相同,错误和奇怪的输出.
非常感谢所有帮助!
输出示例
> gs1 = function(p)
+ {
+ output <- character() #empty vector to which results will be pasted
+
+ for (i in 1:length(p)) {
+ test <- p[i]
+ index <- which(rownames(conditions) …我正在使用elasticsearch python api 与我的elasticsearch 数据库进行通信。如何发出特定的 GET 请求来获取已创建的所有快照的概述？
为此，Kibana 命令为： GET /_snapshot/my_backup/_all。
看来该Elasticsearch.get()功能只适合检索文档。
我宁愿不使用请求模块。
我发现快照帮助器函数只能选择获取当前正在运行的快照的概述。
from elasticsearch import Elasticsearch
es = Elasticsearch()
es.snapshot.get_repository('my_backup') # configuration information
es.snapshot.status('my_backup') # currently running snapshots