小编Mar*_*ann的帖子

避免打印到控制台的字符串被截断(在RStudio中)

我想将一个长字符串打印到RStudio控制台,以便它不会被截断.

> paste(1:300, letters, collapse=" ")
[1] "1 a 2 b 3 c 4 d 5 e 6 f 7 g 8 h 9 i 
...
181 y 182 z 183 a 184 b... <truncated>
Run Code Online (Sandbox Code Playgroud)

我认为这应该相当简单,但我无法弄清楚如何.我试过了

options(max.print = 10000)
Run Code Online (Sandbox Code Playgroud)

并查看了print帮助页面上的args .仍然没有运气.

我必须更改哪些参数/设置才能实现此目的?

settings r output-formatting rstudio

69
推荐指数
1
解决办法
3万
查看次数

如何更新闪亮的fileInput对象?

我想创建一个输入文件对话框.这很简单,使用该fileInput功能.

shinyUI(pageWithSidebar(
  headerPanel(""),
  sidebarPanel(
    fileInput("file", "Select a file")  
  ),
  mainPanel()
))
Run Code Online (Sandbox Code Playgroud)

在此输入图像描述

上传后,它看起来像这样: 在此输入图像描述

现在,我想将inputFile元素重置为上传前的状态.由于没有像updateFileInput我这样的JS/HTML菜鸟这样的功能,我无法弄清楚我是如何实现这一目标的.输出的代码fileInput("file", "Select a file")如下.

<label>Select a file</label>
<input id="file" type="file" accept="text/plain"/>
<div id="file_progress" class="progress progress-striped active shiny-file-input-progress">
  <div class="bar"></div>
  <label></label>
</div> 
Run Code Online (Sandbox Code Playgroud)

有任何想法吗?

PS.我不想在renderUI这里使用反应来重新渲染文件输入元素.我宁愿去'更新方式'(如果有这样的事情)......

r shiny

29
推荐指数
2
解决办法
7343
查看次数

if/else构造内部和外部函数

当我查看R函数时,我经常会发现以下结构:

f <- function(exp=T) {
  if (exp)
    a <- 1
  else
    a <- 2
}
f()
f(F)
Run Code Online (Sandbox Code Playgroud)

这将运行没有错误.但是执行内部函数代码会引发错误,因为R可能假定语句在第一次赋值后完成,a <- 1并且无法处理以下其他内容.

exp=T
if (exp)
  a <- 1
else
  a <- 2
Run Code Online (Sandbox Code Playgroud)

现在,这对我来说很有意义,但我仍然想了解为什么执行代码的行为在函数内部或外部执行时会有所不同.

if-statement r

22
推荐指数
2
解决办法
2万
查看次数

如何索引R中列表对象的元素

我正在执行以下操作以导入一些txt表并将它们保存为列表:

# set working directory - the folder where all selection tables are stored
hypo_selections<-list.files() # change object name according to each species
hypo_list<-lapply(hypo_selections,read.table,sep="\t",header=T) # change object name according to each species
Run Code Online (Sandbox Code Playgroud)

我想访问一个特定的元素,比如说hypo_list [1].由于每个元素代表一个表,我应该如何获取访问特定单元格(行和列)?

我想做类似的事情:

a<-hypo_list[1]

a[1,2]
Run Code Online (Sandbox Code Playgroud)

但是我收到以下错误消息:

Error in a[1, 2] : incorrect number of dimensions
Run Code Online (Sandbox Code Playgroud)

有一个聪明的方法吗?

提前致谢!

indexing r list lapply read.table

20
推荐指数
1
解决办法
8万
查看次数

如何正确记录S4"["和"[< - "方法使用roxygen?

下面我发布了一个迷你示例,其中我想“[“为S4类的方法编写文档.有人知道如何正确记录"["使用roxygen和S4 的通用方法吗?
在建造后检查包装时我收到警告(见下文).

#' An S4 class that stores a string.
#' @slot a contains a string
#' @export
setClass("testClass", 
         representation(a="character"))

#' extract method for testClass
#'
#' @docType methods
#' @rdname extract-methods
setMethod("[", signature(x = "testClass", i = "ANY", j="ANY"),
         function (x, i, j, ..., drop){
             print("void function")
         }
)
Run Code Online (Sandbox Code Playgroud)

包检查摘录:

* checking for missing documentation entries ... WARNING
Undocumented S4 methods:
  generic '[' and siglist 'testClass'
All user-level objects in a package (including S4 …
Run Code Online (Sandbox Code Playgroud)

r roxygen s4

18
推荐指数
3
解决办法
2830
查看次数

可以使用pandoc和包含base64内嵌图像的HTML吗?

我想将包含base64编码图像的HTML文件转换为DOCX.当我使用pandoc执行此操作时,不会转换base64图像.

是否可以使用pandoc包含base64图像?

base64 pandoc

13
推荐指数
2
解决办法
1874
查看次数

R中的2d颜色梯度图

我想生成一个二维颜色渐变矩形,如右下图所示.我怎么能在R中这样做?使用colorRampRColorBrewer或其他功能/包我可以生产漂亮的1D dolor坡道.但是我如何为2D做这个,包括角落里的几种颜色,比如右上方的矩形?

颜色渐变

我想得到的是例如以下两种渐变类型:

在此输入图像描述 在此输入图像描述

BTY:我完全忘了提到我在这里找到了上面的图表(由Luca Fenu制作).

plot r colors linear-gradients

10
推荐指数
2
解决办法
6851
查看次数

Sweave to R markdown文件转换 - 可用的代码或转换器?

我不确定这类问题是否符合明确定义的问题的SO规则;)......无论如何:

我想将几个R Sweave文件(.Rnw)转换为R markdown文件(.Rmd).Jeromy Anglin在这里发布了此事,但没有提供代码.我尝试使用pandoc,但当然pandoc无法正确处理块标签和内联代码标签.

结论:我想我会编写一些代码来解析我的.Rnw文件以准备pandoc转换.因此我的问题:

  1. 还有更好的方法吗?
  2. 有人偶然有代码可以完成这项工作吗?

TIA

r sweave r-markdown

8
推荐指数
1
解决办法
1897
查看次数

如何从 RStudio 的代码大纲中删除函数定义以更加清晰?

在 RStudio 中,我使用标签####来构建代码并拥有整洁的代码大纲(见下文)。但是,我希望函数(foo等)有时不会在大纲中显示,因为它常常使结构过于混乱和凌乱(红色箭头),特别是当文件很大并且包含许多函数定义时。

有没有办法抑制(或切换)显示代码大纲中的函数?

..或者设置函数条目的缩进级别,以便它们在代码大纲中变得不那么突出?

在此输入图像描述

r rstudio

8
推荐指数
1
解决办法
475
查看次数

重用包含使用knitr .Rmd绘图的块

当重新使用包含绘图的块时,绘图没有被正确引用,即它们对于两个块都是相同的,尽管它们应该是不同的.我能做些什么呢?

## Test

```{r}
col <- "black"
```

```{r chunk1}
plot(0, col=col)
```

```{r}
col <- "red"
```

```{r chunk1}
```
Run Code Online (Sandbox Code Playgroud)

r knitr

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