小编Ben*_*min的帖子

当我R CMD check --as-cran 在我的包装上运行时,我仍然得到的一个注释是:

checking CRAN incoming feasibility ... NOTE 
Maintainer:[my name] <my email>

我似乎无法找到对这个笔记的一个很好的解释,虽然我没有读过任何告诉我应该关注它的东西.和其他人一样碰到这个？我能做些什么来清除音符吗？

我的机构最近为我们安装了GitLab.我已经想出如何使用GitLab服务器安装R软件包,devtools::install_git只要项目是公共的,它就可以工作.

#* When modeltable project has Public status
devtools::install_git('https://mini-me2.lerner.ccf.org/nutterb/modeltable.git')

但是,如果我有一个列为"内部"或"私有"的软件包,我无法在没有某种形式的身份验证的情况下安装软件包.到目前为止,我还没有想出如何通过URL传递身份验证.有没有人有从GitLab下载包的经验？

#* After changing the 'modeltable' project to Private status
devtools::install_git('https://mini-me2.lerner.ccf.org/nutterb/modeltable.git')
Preparing installation of modeltable using the Git-URL: https://mini-me2.lerner.ccf.org/nutterb/modeltable.git
'/usr/bin/git'clone --depth 1 --no-hardlinks https://mini-me2.lerner.ccf.org/nutterb/modeltable.git /tmp/Rtmp5aj1cU/file24493dc03a32
Error: There seems to be a problem retrieving this Git-URL.

我将多个绘图放在一个图像中,gridExtra::grid.arrange并且希望可以选择将组合绘图保存为可以作为返回对象列表的一部分从函数内返回的对象.理想情况下,我想在不打印绘图对象的情况下执行此操作.

下面的代码创建了两个图,将它们组合在一起grid.arrange,并尝试将结果保存到x.但是,x评估NULL并打印图表.可以使用关闭grid.arrange我的文档arrangeGrob和建议绘图plot=FALSE,但是当我尝试这个因为FALSE不是grob对象时我收到错误.

对我不理解的任何建议？

# R under development
# Windows 7 (32 bit)
# ggplot2 1.0.0
# gridExtra 0.9.1

p1 <- ggplot(mtcars, aes(x=factor(cyl), y=mpg)) + geom_boxplot()

p2 <- ggplot(mtcars, aes(x=factor(cyl), y=wt)) + geom_boxplot()

x <- gridExtra::grid.arrange(p1, p2)

x

根据评论,我正在添加此编辑.当我尝试时arrangeGrob,我根本没有输出.

> gridExtra::arrangeGrob(p1, p2)
> print(gridExtra::arrangeGrob(p1, p2))
Error: No layers in plot
> x <- gridExtra::arrangeGrob(p1, p2)
> x
Error: No layers in …

我一直在尝试使用多台计算机构建一个集群三天,并且失败了.所以现在我要试着吮吸一大堆你为我解决问题.如果一切顺利的话,我希望我们能够生成一个循序渐进的指南,以便将来作为参考来使用,因为到目前为止,我还没有找到一个合适的参考来设置它(也许这太具体了？)

在我的例子中,让我们假设Windows 7,PuTTY作为SSH客户端,'localhost'将作为主服务器.

此外,我们现在假设同一网络上只有两台计算机.我想这个过程很容易概括,如果我可以让它在两台计算机上运行,​​我可以让它在三台计算机上工作.因此,我们会努力的localhost和remote-computer.

这是我到目前为止收集的内容(底部有引用链接)

1. 安装PuTTY localhost.
2. 安装PuTTY remote-computer
3. 安装SSH服务器 remote-computer
4. 为它分配一个端口来监听？(我不确定这一步)
5. 安装R on localhost
6. 安装相同版本的R on remote-computer
7. R添加到PATH环境变量上都localhost和remote-computer
8. 运行下面的R代码 localhost

码:

library(parallel)
cl <- makePSOCKcluster(c(rep("localhost", 2),
                         rep("remote-computer", 2)))

到目前为止,我已经完成了步骤1-3,不确定我是否需要执行4,完成5-7,而步骤8的代码只是无限期挂起.

当我检查我的SSH服务器日志时,似乎我没有点击SSH服务器localhost.所以看来我的第一个问题是正确配置SSH.有没有人成功做到这一点,你愿意分享你的专业知识吗？

编辑哎呀:参考 http://www.milanor.net/blog/wp-content/uploads/2013/10/03.FirstStepinParallelComputing.pdf

R并行 - 连接到远程核心

https://stat.ethz.ch/pipermail/r-sig-hpc/2010-October/000780.html

我想自定义一个闪亮的应用程序,tabsetPanels以便所选面板显示在带有白色文本的黑色背景中,未选中的选项卡显示带有黑色文本的白色背景.

例如,在下面的应用程序中,当选择"Hello"选项卡时,我希望"Hello"在黑色背景上为白色文本.但我仍然希望面板内容(输入字段)的背景保持白色.

我能找到的最接近的东西来自这个问题:shinydashboard的Tab Box CSS

应用该代码产生彩色的背景横跨tabsetPanel一路,但我仍然无法找到一个方法来修改这个只改变标签的背景.此外,我在.nav-tabs-customCSS中改变的任何东西似乎都没有任何效果.

我不断尝试将更改应用于tab-pane标记CSS,但是将更改推送到选项卡的主体,而不是标题框.

关于我可以更改什么以获取标题框以更改背景颜色的任何想法？

ui <- shinyUI(
  fluidPage(
    tags$style(".nav-tabs {
  background-color: #006747;
    }

.nav-tabs-custom .nav-tabs li.active:hover a, .nav-tabs-custom .nav-tabs li.active a {
background-color: transparent;
border-color: transparent;
}

.nav-tabs-custom .nav-tabs li.active {
    border-top-color: #FFF;
}"),
    tabsetPanel(
      tabPanel(
        title = "Hello",
        textInput(inputId = "text", label = "Input")
      ),
      tabPanel(
        title = "World"
      )
    )
  )
)

server <- shinyServer(function(input, output, session){


})

shinyApp(ui=ui, server=server)

ggplot2我从未真正开发的包中的一个非常酷的功能是在图中添加图层列表.有趣的是,我可以将一个图层列表作为参数传递给函数,并将它们添加到图中.然后,我可以获得所需的情节外观,而不必从功能中返回情节(这是否是一个好主意是另一回事,但它是可能的).

library(ggplot2)
x <- ggplot(mtcars,
            aes(x = qsec,
                y = mpg)) 

layers <- list(geom_point(),
               geom_line(),
               xlab("Quarter Mile Time"),
               ylab("Fuel Efficiency"))

x + layers

有没有办法用管道做到这一点？类似于:

#* Obviously isn't going to work
library(dplyr)
action <- list(group_by(am, gear),
               summarise(mean = mean(mpg),
                         sd = sd(mpg)))

mtcars %>% action

我正在尝试编写一个文档，讨论使用错误将带有参数的问题传达给用户。不幸的是，我似乎无法获得.Rmd文件。一个简短的例子：

Intro text

```{r}
some_function <- function(x, y)
{
  if (x < 0) stop("x must be greater than 0")
  x + y
}

some_function(3, 2)
```

```{r}
some_function(-3, 2)
```

当我尝试将此编织为任何格式时，出现错误

Quitting from lines 14-15 (test.Rmd) 
Error in some_function(-3, 2) : x < 0
Calls: <Anonymous> ... withCallingHandlers -> withVisible -> eval -> eval -> some_function

Execution halted

到目前为止，我所读的所有内容都指出这是一个问题，要么是a）未加载软件包，要么是b）Rmd文件中的路径设置不正确。

由于我仅在此处使用基本函数，并且未引用任何文件（无论如何我都知道），所以我认为这都不是我的问题（但我很乐意弄错）。

我需要做什么来编织文档的任何提示？

解

将以下内容添加到.Rmd的顶部

```{r, echo=FALSE}
knitr::opts_chunk$set(error = TRUE)
```

简短说明，RMarkdown v1 error = TRUE默认使用，但RMarkdown v2使用error = FALSE。请参阅下面Josh评论中的链接。

我被一些我认为应该相对简单的事情难住了。

我有一个表示二进制字符串的字符串。例如：

x <- as.character(charToRaw("Hello World"))

我想写入x文件，但无法反转创建过程x以获取原始内容。我原以为这会很简单

writeBin(as.raw(x), 
         con = "filename.txt")

但这不会生成带有文本“Hello World”的文件。也没有

writeBin(x,
         con = "filename.txt")

当我尝试直接逆时，出现错误

> x <- as.character(charToRaw("Hello World"))
> x
[1] "48" "65" "6c" "6c" "6f" "20" "57" "6f" "72" "6c" "64"

> rawToChar(as.raw(x))
Error in rawToChar(as.raw(x)) : 
  embedded nul in string: '0A\0\0\0\0249\0H\0@'
In addition: Warning messages:
1: In rawToChar(as.raw(x)) : NAs introduced by coercion
2: In rawToChar(as.raw(x)) :
  out-of-range values treated as 0 in coercion to raw

语境

我知道这是解决问题的一种奇怪的方法。我受到一些奇怪的限制，我将已填充订单的数据作为 JSON …

我正在构建一个原始和基本的 Web 浏览器，我的工作场所希望在其上托管一些内部应用程序。我cefSharp在用 C# 编写的 WinForms 应用程序中使用。我已经成功地构建了浏览器来导航应用程序，但我在下载处理程序方面遇到了问题。我想将文件直接下载到C:\Users\[username]\Downloads文件夹（我们所有的计算机是 Windows 计算机）而无需使用对话框。

从Force CEFSharp to download without show dialog读取表明使用showDialog: false应该可以工作，但是当我应用它时，没有任何下载。同样，通过研究以下任何一项，我也没有取得任何进展：

• WPF：通过 CefSharp 下载文件
• https://github.com/cefsharp/CefSharp/blob/cd934267c65f494ceb9ee75995cd2a1ca0954543/CefSharp.Example/DownloadHandler.cs
• WPF：通过 CefSharp 下载文件
• https://groups.google.com/forum/?nomobile=true#!topic/cefsharp/bS8PhHRlSAc
• https://groups.google.com/forum/#!topic/cefsharp/3cMUHSGxPDc

作为奖励，可以选择打开文件（例如在 Google Chrome 中）会很好，但这并不是绝对必要的。

下面的代码运行顺利，并近似于我正在尝试的内容。此示例打开 GitHub Gist。单击右侧的“下载 Zip”按钮将打开对话框以下载并保存文件。

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Threading.Tasks;
using System.Web.Script.Serialization;
using System.Windows.Forms;
using CefSharp;
using CefSharp.WinForms;
using System.IO;

namespace ShinyChrome
{
    public partial class ShinyApp : Form
    {
        public class …

请原谅我.当我试图研究这个问题时,我最终会看到我根本无法理解的代码.我有大约3个小时的Python经验,我可能会尝试超过我能处理的.

问题很简单.我可以成功地从R(我的分析软件)调用Python来发送电子邮件.添加消息,主题,来自和我可以执行的字段.我希望能够发送附件.如果我只发送一个附件,生活会很棒.

我到目前为止的代码是

import smtplib
import os
from email.MIMEMultipart import MIMEMultipart
from email.MIMEBase import MIMEBase
from email.MIMEText import MIMEText
from email.Utils import COMMASPACE, formatdate
from email import Encoders
import email.utils

fromaddr = 'someone@gmail.com'
toaddrs  = 'recipient@gmail.org'
msg = MIMEMultipart(MIMEText('This is the body of the e-mail'))
msg['From'] = email.utils.formataddr(('Benjamin Nutter', fromaddr))
msg['To'] = email.utils.formataddr(('Benjamin Nutter', toaddrs))
msg['Subject'] = 'Simple test message'
f = 'filename.pdf'
part=MIMEBase('application', 'octet-stream')
part.set_payload(open(f, 'rb').read())
Encoders.encode_base64(part)
part.add_header('Content-Disposition', 'attachment; filename=\"%s\"' %    os.path.basename(f))
msg.attach(part)

"username = 'user'
"password = 'pw' …