小编pic*_*ick的帖子

我想为没有本地git,hg,bzr等目录的项目设置projectile项目,所以我不能使用他们的存储库作为项目文件的源.仅.projectile在根目录中创建文件并使用C-u C-c p f刷新缓存就足够了.我试过这个,在我的情况下它不起作用(我的.projectile是空的 - 我应该填写一些规则吗？).我期望的是emacs/projectile能够自动索引我的所有项目,即逐个目录,逐个文件,所以我可以稍后快速搜索文件.

你能给我一些循序渐进的提示吗？

谢谢!

[--Update--]
这是我的.emacs配置文件的摘录:

(require 'projectile)  
(projectile-global-mode)  
(setq projectile-indexing-method 'native)  
(setq projectile-enable-caching t)  

在C-c p f序列之后我通过"查找文件:"提示询问,但列表中唯一的文件是.projectile文件本身 - 没有显示任何项目文件.

我正在尝试从Rscript启动一个闪亮的应用程序或交互式.Rmd文档.但是,我得到的只是一条信息

听http : //127.0.0.1:...

我相信这是因为R正在以交互模式运行(关于此的另一篇文章).如何编写正确的Rscript以便以下任何一个都能正常工作？

我的剧本

#!/usr/bin/Rscript

## This
library(shiny)
runApp(appDir = "../app")

## Or this
## rmarkdown::run("Main.Rmd")

我想将openNLP中的解析(POS标记)显示为树结构可视化.下面我提供了openNLP的解析树,但我不能将其绘制为Python解析常见的可视化树.

install.packages(
    "http://datacube.wu.ac.at/src/contrib/openNLPmodels.en_1.5-1.tar.gz",  
    repos=NULL, 
    type="source"
)

library(NLP)
library(openNLP)

x <- 'Scroll bar does not work the best either.'
s <- as.String(x)

## Annotators
sent_token_annotator <- Maxent_Sent_Token_Annotator()
word_token_annotator <- Maxent_Word_Token_Annotator()
parse_annotator <- Parse_Annotator()

a2 <- annotate(s, list(sent_token_annotator, word_token_annotator))
p <- parse_annotator(s, a2)
ptext <- sapply(p$features, `[[`, "parse")
ptext
Tree_parse(ptext)

## > ptext
## [1] "(TOP (S (NP (NNP Scroll) (NN bar)) (VP (VBZ does) (RB not) (VP (VB work) (NP (DT the) (JJS …

当我有传递给renderPlot（或其他渲染函数）的反应性数据时，数据通常最初是空的，直到发生某些操作。默认渲染通常会在动作发生之前在应用程序中显示错误，因为数据为空，即

错误“x”必须是数字

在这个例子中。是否有一些标准方法可以让渲染函数在没有数据时运行（如果出现错误或只是空白，则可能不会渲染）？我知道我可以麻烦地构建所有反应值，因此输出将为空白，但这似乎是不必要的工作。

rMarkdown 中的示例闪亮

---
title: "Example"
runtime: shiny
output: html_document
---

```{r}
shinyApp(
    shinyUI(fluidPage(
        inputPanel( 
            numericInput("n", "n", 10),
            actionButton("update", "Update")
        ),
        plotOutput("plot")
    )),

    shinyServer(function(input, output) {
        values <- reactiveValues()
        values$data <- c()

        obs <- observe({
            input$update
            isolate({ values$data <- c(values$data, runif(as.numeric(input$n), -10, 10)) })
        }, suspended=TRUE)

        obs2 <- observe({
            if (input$update > 0) obs$resume()
        })

        output$plot <- renderPlot({
            dat <- values$data
            hist(dat)
        })
    }) 
)
```

我无法弄清楚如何在一行中执行以下操作:

data(attenu)
x_temp = attenu$accel^(1/4)
y_temp = log(attenu$dist)
best_line = lm(y_temp ~ x_temp)

由于上述工作,我认为我可以做到以下几点:

data(attenu)
best_line = lm( log(attenu$dist) ~ (attenu$accel^(1/4)) )

但是这给出了错误:

Error in terms.formula(formula, data = data) : invalid power in formula

在R的公式格式中使用变换变量时,显然我缺少一些东西.为什么这不起作用？

我有一些分层数据,例如,

> library(dplyr)
> df <- data_frame(id = 1:6, parent_id = c(NA, 1, 1, 2, 2, 5))
> df
Source: local data frame [6 x 2]

     id parent_id
  (int)     (dbl)
1     1        NA
2     2         1
3     3         1
4     4         2
5     5         2
6     6         5

我想通过圆形包装图在"自上而下"的视图中绘制树:http: //bl.ocks.org/mbostock/4063530

以上链接适用于d3库.是否有一个等价物允许我在ggplot2中制作这样的情节？

(我希望这个情节在一个闪亮的应用程序,它确实支持d3,但我之前没有使用过d3并且不确定学习曲线.如果d3是明显的选择,我会尝试让它工作.谢谢.)

使用testthat/devtools基础结构时,跳过R包测试目录中所有测试的正确方法是什么？例如,如果没有与数据库的连接并且所有测试都依赖于该连接,我是否需要skip单独编写所有文件或者我可以在skip某处写一个？

我有一个标准的包装设置,看起来像

mypackage的/

• ......#其他包裹的东西
• 测试/
  • testthat.R
  • testthat /
    • 测试thing1.R
    • 测试thing2.R

起初我以为我可以在testthat.R文件中进行测试

## in testthat.R
library(testthat)
library(mypackage)

fail_test <- function() FALSE
if (fail_test()) test_check("package")

但是,这不起作用,看起来调用devtools::test()只是忽略该文件.我想另一种方法是将所有测试存储在另一个目录中,但是有更好的解决方案吗？

是否允许.SDcols随by分组变量而变化？我有以下情况,我希望.SDcols每年更改为不同的列.它的值.SDcols在一个data.table中,而我正在尝试.SD使用这些值将函数应用于另一个表中.

很可能我错过了明显的做法并做错了,但这就是我的尝试,

## Contains the .SDcols applicable to each year
dat1 <- data.table(
  year = 1:4,
  vals = lapply(1:4, function(i) letters[1:i])
)

## Make the sample data (with NAs)
set.seed(1775)
dat2 <- data.table( year = sample(1:4, 10, TRUE) )
dat2[, letters[1:4] := replicate(4, sample(c(NA, 1:5), 10, TRUE), simplify=FALSE)]

## Goal: Sum up the columns in the corresponding .SDcols for each year
## Attempt, doesn't work -- I think b/c .SDcols …

我只想快速创建一个不是类型的双打数组(或矢量)NumericRange.我试过了

val ys = Array(9. to 1. by -1.)

但这会返回类型 Array[scala.collection.immutable.NumericRange[Double]]

有没有办法强制这种常规类型Array[Double]？

有人知道如果rs_没有RStudio 可以使用这些功能吗？我从课程类“统计推断”中提取了此示例，

library(UsingR); data(galton)
library(manipulate)
myHist <- function(mu){
  hist(galton$child,col="blue",breaks=100)
  lines(c(mu, mu), c(0, 150),col="red",lwd=5)
  mse <- mean((galton$child - mu)^2)
  text(63, 150, paste("mu = ", mu))
  text(63, 140, paste("Imbalance = ", round(mse, 2)))
}
> manipulate(myHist(mu), mu = slider(62, 74, step = 0.5))
Error in FUN("rs_createUUID"[[1L]], ...) : no such symbol rs_createUUID

我没有意识到有些库需要RStudio。我想知道RStudio和ESS之间是否有接口，或者某种方法可以使上述工作正常进行。