小编alk*_*989的帖子

我Postgres db 9.1跑了AWS EC2,有ubuntu 12.04.

我对这个实例搞砸了很多(比如在我确定9.1之前安装了各种各样的postgres XX).

现在经过一个月的数据库工作后,我发现如果我重新启动我的实例postgres没有正确加载,它的状态显示为"正在运行集群".这将一直持续到我

sudo service postgresql restart

从终端,然后再次工作.

如何将这一行添加到ubuntu启动,以便每次加载时,它都会重新启动此服务,并希望能解决我的问题？

还有任何其他解决方案可以解决这个问题

问题

我正在开发一个R包,我希望每次构建它时都会自动增加它.我希望能够将我的结果与包版本相关联.现在我用自己的丑陋功能来做到这一点.

我的问题是:有没有办法做得更好？或者,我应该避免这样做吗？

另外一个选项

我想到的另一个选择是使用'devtools :: install_github'安装我的包(托管在github中),然后保存我的结果(或添加到图中)保存在已安装的DESCRIPTION文件中的GithubSHA1.

例如,我可以获得'devtools'包的版本和GithubSHA1:

read.dcf(file=system.file("DESCRIPTION", package="devtools"), 
         fields=c("Version", "GithubSHA1"))
 ##      Version    GithubSHA1                                
 ## [1,] "1.5.0.99" "3ae58a2a2232240e67b898f875b8da5e57d1b3a8"

到目前为止我的尝试

我编写了以下函数来生成一个新的DESCRIPTION文件,其中包含更新的版本和日期.(增加主要版本是我不介意每手增加的东西)

incVer <- function(pkg, folder=".", increase="patch"){
    ## Read DESCRIPTION from installed package ´pkg´ and make new one on the specified
    ## ´folder´. Two options for ´increase´ are "patch" and "minor"
    f <- read.dcf(file=system.file("DESCRIPTION", package=pkg),
                  fields=c("Package", "Type", "Title", "Version", "Date", 
                           "Author", "Maintainer", "Description", "License", 
                           "Depends", "Imports", "Suggests"))
    curVer <- package_version(f[4])
    if(increase == "patch") {
        curVer[[1,3]] <- ifelse(is.na(curVer$patchlevel), 1, …

没有列名的data.frames会出现意外行为.以下按预期工作:

df <- data.frame(a = 1:5, b = 5:9)
df + 1
##   a  b
## 1 2  6
## 2 3  7
## 3 4  8

但是如果我们删除列名,那么行为很奇怪:

names(df) <- NULL
df + 1
## data frame with 0 columns and 0 rows

如果使用unname,删除名称,也会发生同样的情况setNames.任何关于为什么会发生这种情况的想法,并且(出于某种原因)预期的行为？

编辑:所以有文件证明无名的data.frames有不支持的结果(感谢@neilfws,@ Suren),但我也对这种情况发生的原因感兴趣.我试图找到实际的c(？)代码,使这个简单的例子制动.

我正在使用roxygen2为文档编写一个r包.记录S4方法时遇到了一些麻烦.我已经定义了一个通用的s4方法(例如)和几个实现它的方法.myGeneric

问题:有没有办法自动记录泛型的所有方法？

手动解决方案是为每个方法添加这两行(这将是我的虚拟示例中的第一个方法):

##' @rdname myGeneric-methods
##' @aliases myGeneric,numeric,numeric,missing-method

由于我使用了很多方法,我必须添加很多来满足R CMD检查.

我在Hadley的Advanced R中读到了关于记录S4方法的问题,可以使用@genericMethods:

如果您想要为通用实现的所有方法的自动列表,请在通用文档中使用@genericMethods.

我认为这不是roxygen2在其他名称中实现或实现的.我发现@genericMethods标签的唯一内容是在roxygen3 github 这里停止了(？).

只是一个虚拟示例,我只记录泛型并希望自动列出所有已实现的方法:

##' @param object An object
##' @param data Numeric vector or data.frame
##' @param Fun Function. Default function is \code{sum}
##' @param ... Extra named arguments passed to FUN
##' @docType methods
##' @export 
setGeneric("myGeneric", function(object, data, FUN, ...)
           {standardGeneric ("myGeneric")} )

setMethod("myGeneric", c("numeric", "numeric", "missing"),
          function(object, …

value我在特定点 (lon和)测量了数量 ( ) lat，如下面的示例数据：

library(ggplot2)
set.seed(1)
dat <- data.frame(lon = runif(1000, 1, 15), 
                  lat = runif(1000, 40, 60), 
                  value = rnorm(1000))

我想用空间颜色对测量值进行二维汇总（例如平均值），最重要的是我想将计数显示为标签。

我可以绘制标签和摘要图

## Left plot
ggplot(dat) +
  aes(x = lon, y = lat, z = value) +
  stat_summary_hex(bins = 5, fun = "mean", geom = "hex")
## Right plot
ggplot(dat) +
  aes(x = lon, y = lat, z = value) +
  stat_binhex(aes(label = ..count..), bins = 5, geom = "text")

但当我将两者结合起来时，我失去了总结：

ggplot(dat) +
  aes(x …

我使用 RStudio。

每行的默认标题是“无标题”，如第一张图片所示。

今天发现每一行的标题都可以修改。正如我们所看到的，第二张图片中的标题是不同的。

但我不知道如何设置标题。谁能告诉我该怎么做？非常感谢！！:-)