小编use*_*275的帖子

vapply中的FUN.VALUE参数

我真的不得到FUN.VALUE的参数vapply。这是我的示例:

a = list(list(1,2), list(1), list(1,2,3))

# give the lengths of each list in a
sapply(a, length)
Run Code Online (Sandbox Code Playgroud)

现在,我尝试使用vapply代替sapply

# gives me same result as sapply
vapply(a, length, FUN.VALUE=1)

# same result, but why?
vapply(a, length, FUN.VALUE=1000)

# gives me error
vapply(a, length, FUN.VALUE="integer")

# gives me error
vapply(a, length, FUN.VALUE="vector")

# gives me error
vapply(a, length, FUN.VALUE=c(1,2))
Run Code Online (Sandbox Code Playgroud)

?vapply我了解,它FUN.VALUE可以是标量,向量或矩阵,并且用于匹配输出的类型。任何暗示为什么vapply会这样表现?

r list apply

7
推荐指数
1
解决办法
1891
查看次数

R从公式字符串或表达式中删除多余的括号

我有很多与此类似的公式字符串:

str <- "( ((  A  ) *  J ) - ((  J  ) *  G  ) ) /  Z "
Run Code Online (Sandbox Code Playgroud)

有许多括号不需要在那里,(A*J - J*G)/Z就足够了.R中是否有功能或包可以解决这个问题?

我尝试了R表达式的函数,as.formula但是没有找到我需要的东西.

string r formula parentheses

6
推荐指数
2
解决办法
1411
查看次数

将列转换为保留列名称的行

在R中有没有办法将列转换为保留列名称的行?

输入示例:

A   B
1   1
2   3
3   4
44  5
Run Code Online (Sandbox Code Playgroud)

产量

 Group Number
  A       1
  A       2
  A       3
  A       44 
  B       1
  B       3
  B       4
  B       5
Run Code Online (Sandbox Code Playgroud)

r dataframe

6
推荐指数
2
解决办法
469
查看次数

knitr with bash:更改工作目录

我正在使用knitr为一些bash命令制作降价报告.但是,我的操作包括更改目录和在那里创建文件,所以如果我可以cd在我的.Rmd文件中使用它将是理想的:

make a directory
```{r mkdir, engine='bash'}
mkdir mytest
```
cd into directory
```{r cd, engine='bash'}
cd mytest
```
create file
```{r create, engine='bash'}
touch myfile
```
check contents
```{r ls, engine='bash'}
ls
```
Run Code Online (Sandbox Code Playgroud)

但是,该文件myfile是在我使用knit而不是编译文档的目录中创建的mytest.我想为每个代码块启动一个新的bash shell.

我已经看过有关cwd在R(https://github.com/yihui/knitr/issues/277)中进行设置的讨论,但对于bash没有.

有没有办法为代码块设置工作目录?

bash markdown cd r knitr

6
推荐指数
1
解决办法
922
查看次数

Perl - 从数组中提取具有偏移量的数字序列

我试图在整数数组中搜索一系列数字.例如,如果数组由数字组成1,2,3,10,12,14,则可以将其汇总为

1到3,偏移量为1,

偏移2为10到14

在我的代码下面,我从第二个元素循环遍历数组,跟踪连续数组元素之间的偏移量,如果偏移量发生变化,则创建一个新的"系列":

use strict;
use warnings;

my @numbers = (1,2,3,10,12,14); #array to extract series from 
my $last_diff;
my $start = $numbers[0];
my $end;
my @all_series; #array will hold all information on series
for my $i (1..($#numbers+1)){
        my $diff;
        if ($i <($#numbers+1)){
                $diff = $numbers[$i] - $numbers[$i-1];
        }
        if (!$diff || ( $last_diff && ($last_diff != $diff)) ) {
                $end = $numbers[$i-1];
                my $series = { 'start'=> $start,
                            'end'  => $end,
                            'offset'=> $start == $end ? 1 …
Run Code Online (Sandbox Code Playgroud)

arrays perl extract sequence

5
推荐指数
1
解决办法
264
查看次数

下载GitHub项目最新版本的链接

我想在我的网站上添加一个项目最新github版本的下载链接.例如,链接https://github.com/mongodb/mongo/archive/r3.0.0-rc7.zip确实链接到最新版本(截至今天),但我不想硬编码版本号网站.

我发现了几个关于这个问题的问题,使用curl,ajaxphp的答案.

我使用ajax尝试了使用github发布API的解决方案:

<!DOCTYPE html>

<HTML> <BODY>

<script language="javascript" type="text/javascript">   
    $(document).ready(function () { 
        GetLatestReleaseInfo();   
    });   

    function GetLatestReleaseInfo() {
      $.getJSON("https://github.com/mongodb/mongo/releases").done(function (json) {
         var release = json[0];
         var asset = release.assets[0];
         var downloadURL = "https://github.com/mongodb/mongo/releases" + release.tag_name + "/" + asset.name;
         $(".mongodb-download").attr("href", downloadURL);   
      });    
    } 
</script>

<a href="GetLatestReleaseInfo();">Link</a> 
<a href="" onclick="location.href=this.href+downloadURL;return false;">Link2</a> 
<a href="" onclick="location.href=this.href+mongodb-download;return false;">Link3</a>

</BODY>
</HTML>
Run Code Online (Sandbox Code Playgroud)

但我无法正确调用javascript函数,因为它似乎在我的上面尝试(Link,Link2和Link3).我对javascript或ajax不太熟悉,所以我很感激任何帮助; 也许没有Ajax有一种更简单的方法?

html javascript ajax github github-api

5
推荐指数
1
解决办法
1807
查看次数

如何合并1列上的2列

我想合并2 df的在df1中包含2列和df2 1列,在这种情况下如何应用函数合并?

以下是示例案例:

df1 <- data.frame(var1=letters[1:5],var2=letters[6:10])
df2 <- data.frame(var3=letters[1:10])
Run Code Online (Sandbox Code Playgroud)

错误尝试:

merge(df1,df2,by.x=c("var1","var2"),by.y="var3",all.y=TRUE)
Run Code Online (Sandbox Code Playgroud)

如何合并这两个df,以便匹配搜索使用df1(var1和var2)的两列并在df2(var3)上运行?

期望的输出:

    var1  var2   var3 
1     a    f       a
2     b    g       b
3     c    h       c
4     d    i       d
5     e    j       e
6     <NA> <NA>    f
7     <NA> <NA>    g
8     <NA> <NA>    h
9     <NA> <NA>    i 
10    <NA> <NA>    j
Run Code Online (Sandbox Code Playgroud)

编辑:改进数据(我希望):

df1 <- data.frame(var1=c(letters[1:5],rep("x",5)),var2=c(letters[6:10],rep("x",5)))
df2 <- data.frame(var3=letters[1:10])
Run Code Online (Sandbox Code Playgroud)

期望的输出:

     var1  var2   var3 
 1     a    f       a
 2     b    g       b
 3     c    h       c …
Run Code Online (Sandbox Code Playgroud)

r dataframe

5
推荐指数
3
解决办法
149
查看次数

Swagger-ui锚链接到模型定义

是否可以直接通过锚点通过swagger-ui访问模型定义?

在示例页面http://petstore.swagger.io/中,我看到锚适用于一组端点,例如 http://petstore.swagger.io/#/pet

将鼠标悬停在模型描述上会显示一个锚点(例如,#/definitions/Category用于Category模型),但是 http://petstore.swagger.io/#/definitions/Category不能将我带到那里。

如果检查元素,则会看到一个真正的锚链接pet

<a class="nostyle" href="#/pet"><span>pet</span></a>

Category这是一个模型提示

<span class="model-hint">#/definitions/Category</span>

所以我想知道是否完全支持锚定模型。

javascript anchor swagger swagger-ui

5
推荐指数
1
解决办法
1029
查看次数

使用图像文件内容进行 Apache bench 测试 POST

我有一个通过 http POST 接受图像文件的网络服务,我用 发送它们curl,例如:

curl -X POST -F "image=@ta1.jpeg" -F "image=@ta2.jpeg" http://domain.tld/upload
Run Code Online (Sandbox Code Playgroud)

我正在尝试使用 apache bench ( ab) 来测试并发请求。我看到ab可以选择-p发布数据,但我认为这需要 JSON 内容...我尝试使用postmanecho 服务将图像编码为 JSON:

curl -X POST -F "image=@ta1.jpeg" -F "image=@ta2.jpeg" http://www.postman-echo.com/post
Run Code Online (Sandbox Code Playgroud)

将输出保存到文件,并使用 的ab选项发送该文件-p,但会产生服务器错误。

有关如何使用 apache bench 测试 POSTing 图像的任何提示吗?

post image http http-post apachebench

5
推荐指数
1
解决办法
3132
查看次数

绘制PCA的所有组件

我想知道如何在第一和第二个组件中绘制个体,如下所示:

在此输入图像描述

plot r pca

4
推荐指数
2
解决办法
3329
查看次数