小编sta*_*ant的帖子

我使用的vim-screen插件使我能够编写脚本,在同一窗口中启动解释器并向解释器发送行.问题是解释器不接受写在几行上的语句.

例如:这将有效 f:{[x] y:y+1; Z:y+1; :Z; };

但这不会

f:{[x] y:y+1;
    Z:y+1;
    :Z;
 };

如何编写一个vim函数,我可以调用它来重塑行以便发送给解释器？

编辑:我没有成功完成这个功能,我想创建一个函数,从这样的输入(可视化选择)

F:{[a;b;r]
//ccc1
   aaa1;
aaa2;
  //ccc2
    aaa3;
};

输出这样的东西F:{[a;b;r] aaa1; aaa2; aaa3; }; 所以我创造了一个赏金

当我使用Sys.chmod(file,'777')它看起来只是为所有者而不是所有用户更改权限,我该怎么办？

在我的工作场所中，我们使用git在Linux（centos 7风味）下进行版本控制。我们有用户ID，但也有一些我们可以模拟的产品ID。

因为我们很虚弱，所以我们允许提交产品ID并推送存储库，通常是出于实用性考虑，当我们热修复问题时。我们应该在这样做时使用--author，但我们有时会忘记。

使用特定的prod用户时，是否可以强制使用--author？

我在R代码中使用"%within[]%" <- function(x,y){x>=y[1] & x<=y[2]}(意思x是在紧凑集中y)很多,但我很确定它非常慢.你有更快的东西吗？它需要适用于>定义的所有内容.

编辑:x可能是一个向量和y2元素向量按升序排列...

编辑2:奇怪的是没有人(据我所知)写了一个rOperator实现快速C操作符的包%w/i[]%, %w/i[[%, ...

编辑3:我意识到我的问题太笼统,因为假设x,y会修改任何结果,我认为我们应该关闭它,感谢您的输入.

我想填补一个阶跃函数行我使用ploted下的面积plot(X, type='s')我试过polygon没有成功.

set.seed(1);y = abs(rnorm(10))
plot(y,ylim=c(0,max(y)), type="p",pch=24)
lines(y, type='s')
abline(h=0)

假设我想在曲线下面和上面画灰色 y=0

tidyr提供UNNEST功能,帮助扩大列表列.

这类似于kdb中更多(20x)更快的ungroup函数.

我正在寻找一个类似(但速度更快)的函数,假设data.table包含多个列表列,每个列在每行上具有相同数量的元素,将扩展data.table.

这是这篇文章的延伸.

library(data.table)
library(tidyr)
t = Sys.time()
DT = data.table(a=c(1,2,3),
                b=c('q','w','e'),
                c=list(rep(t,2),rep(t+1,3),rep(t,0)),
                d=list(rep(1,2),rep(20,3),rep(1,0)))

print(DT)
   a b                                                           c        d
1: 1 q                     2016-01-09 09:55:14,2016-01-09 09:55:14      1,1
2: 2 w 2016-01-09 09:55:15,2016-01-09 09:55:15,2016-01-09 09:55:15 20,20,20
3: 3 e                                                                     

print(unnest(DT))
Source: local data frame [5 x 4]

      a     b                   c     d
  (dbl) (chr)              (time) (dbl)
1     1     q 2016-01-09 09:55:14     1
2     1     q 2016-01-09 09:55:14     1
3     2     w 2016-01-09 09:55:15    20
4 …

我对以下内容感到困惑:

#include <iostream>

int main()
{
  bool a = true;
  int nb = 1;
  int nb2 = 2;
  a ? nb++, nb2++ : nb--, nb2--;
  std::cout << " (nb,nb2) = (" << nb << "," << nb2 << ")";
}

结果:

(nb,nb2) = (2,2) 

为什么nb2不等于3？

我很确定我已经看到在我处理文档时可以将设置kable或其他一些Rstudio支持的表包作为默认值。rmarkdown:::renderRmd

我找不到这是否是一个yaml选项或可以的东西knitr::opts_chunk$set()

我想要的是不再需要做的事

```{r}
 table = f()
 table %>% head() %>% kable(table) # or something equivalent so the table is 'nicely' displayed 
```

我想要rmarkdown::render一个R文档而不在文档本身中指明 yaml 选项。

理想情况下，这可能是一个论点rmarkdown::render或knitr::spin喜欢你可以做什么来传递params（请参阅Rmarkdown 参考书）。通常我想要author，date还有output选项。

我认为这是可能的，因为在不指定任何内容的情况下旋转以下文档我得到以下输出（因此必须有一个我希望可以更改的默认参数模板）

作为一个例子，我怎么能做render一个文档，它会给我与下面说的相同的输出（但当然没有在文档中指定 yaml，即文档中没有任何 yaml）

---
title: "Sample Document"
output:
  html_document:
    toc: true
    theme: united
  pdf_document:
    toc: true
    highlight: zenburn
---

#' # Title
Hello world

#+ one_plus_one
1 + 1

当我将 Rmd 文件编织为 html 时，我在浏览器上可视化的输出始终居中。我怎样才能证明左边的所有东西都是合理的，这样就不会有浪费的空间？浪费的空间是指 TOC 左侧有未使用的空间

编辑我知道这个线程，但我想保留 TOC，我真正想要的是将所有内容都向左移动，这样 TOC 就在左对齐的旁边

代码：

---                                                                        
title: "Example SO"                                                        
output:                                                                    
  html_document:                                                           
    toc: true                                                              
    number_sections: true                                                  
    code_folding: "hide"                                                   
    toc_float:                                                             
      collapse: false                                                      
      smooth_scroll: false                                                 
---                                                                        

```{r setup, echo=FALSE}                                                   
knitr::opts_chunk$set(error = TRUE,                                        
                      echo = TRUE,                                         
                      message = FALSE,                                     
                      comment = "",                                        
                      fig.align = "left"                                   
                      )                                                    
```                                                                        

# H1 Stuff                                                                 

```{r, DT}                                                                 
    DT::datatable(mtcars, rownames = FALSE, options = list(pageLength = 2))
```                                                                        

# H2 More stuff                                                            
Bla 

输出：