我有以下Rmd文件test.Rmd:
---
title: "test"
output: html_document
---
```{r}
print(y)
```
```{r}
x <- "don't you ignore me!"
print(x)
```
Run Code Online (Sandbox Code Playgroud)
我想以下面的方式调用render:
render('test.Rmd', output_format = "html_document",
output_file = 'test.html',
envir = list(y="hello"))
Run Code Online (Sandbox Code Playgroud)
但它失败了:
processing file: test.Rmd
|................ | 25%
ordinary text without R code
|................................ | 50%
label: unnamed-chunk-1
|................................................. | 75%
ordinary text without R code
|.................................................................| 100%
label: unnamed-chunk-2
Quitting from lines 11-13 (test.Rmd)
Error in print(x) : object 'x' not found
Run Code Online (Sandbox Code Playgroud)
第一块块很好,所以有些东西有效.如果我y在我的全局环境中定义我可以在没有envir …
我有一个这样的功能:
fun <- function() {
browser()
is_browsing()
}
Run Code Online (Sandbox Code Playgroud)
我想知道代码is_browsing()应该是什么TRUE,以便在当前正在浏览函数时返回,因此控制台将如下所示:
> fun()
Called from: fun()
Browse[1]>
debug at #3: is_browsing()
Browse[2]>
TRUE
Run Code Online (Sandbox Code Playgroud)
但是,如果我注释掉该browser()行,或按 停止浏览c,is_browsing()则应返回FALSE,如下所示:
> fun()
Called from: fun()
Browse[1]> c
FALSE
Run Code Online (Sandbox Code Playgroud)
我已经阅读了debuggingState(),isdebugged()但它们似乎对我的情况没有多大帮助。
真实情况仅供参考,是在我们浏览时更新绘图或视图,但仅当我们正在浏览时,如果我们不是,我只想最终绘制/查看一次,以节省资源。
但是有可能在刻面图上做类似的事情,这样标签样式对应于线型(aestetics),并且我可以单独注释不同的方面吗?
一些数据:
funny <- structure(list(Institution = structure(c(1L, 1L, 1L, 1L, 2L,
2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L,
3L, 3L, 3L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 1L,
1L, 1L, 1L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L), .Label = c("Q-branch",
"Some-Ville", "Spectre"), class = "factor"), Type = structure(c(5L,
6L, 1L, 3L, 5L, 6L, 2L, 4L, 5L, 6L, …Run Code Online (Sandbox Code Playgroud) 在阅读http://ggvis.rstudio.com/interactivity.html时,我注意到代码中有:=洒在其中.我假设这是一种为函数提供参数的新方法?究竟是什么?
mtcars %>%
ggvis(~wt, ~mpg, size := input_slider(10, 1000)) %>%
layer_points(fill := "red") %>%
layer_points(stroke := "black", fill := NA)
Run Code Online (Sandbox Code Playgroud) 关于如何将列移动到第一个或最后一个位置有很多问题和答案.
使用dplyr最佳答案分别类似于:
iris2 <- iris %>% head(2)
iris2 %>% select( Sepal.Width, everything()) # move Sepal.Width to first
# Sepal.Width Sepal.Length Petal.Length Petal.Width Species
# 1 3.5 5.1 1.4 0.2 setosa
# 2 3.0 4.9 1.4 0.2 setosa
iris2 %>% select(-Sepal.Width, Sepal.Width) # move Sepal.Width to last
# Sepal.Length Petal.Length Petal.Width Species Sepal.Width
# 1 5.1 1.4 0.2 setosa 3.5
# 2 4.9 1.4 0.2 setosa 3.0
Run Code Online (Sandbox Code Playgroud)
但是,我没有找到任何简单的方法在给定的一个之后或之前移动一个列.
我在下面发布了一个粗略的解决方案但是:
dplyr函数的灵活性来使用数字索引,名称,字符串等......我相信使用dplyr我们也可以移动列的列表,或者在名称等中显示模式的一组列...但我对dplyr样式编程还不是很熟悉.
所以我挑战你做得更好/更聪明,或者指出我错过的明显解决方案. …
目前,我正在学习一些使用VHDL的FPGA设计技术,我的问题是我们是否可以在VHDL中使用:=和<=可互换,尽管我已经看到在常量声明中使用:=和<=在赋值中?提前致谢!
我使用 plpgsql 来编写触发器 n 我想知道在 postgreSQL 中何时使用 = 和何时使用 := ,有什么区别???
例如:
CREATE OR REPLACE FUNCTION on_ai_myTable() RETURNS TRIGGER AS $$
DECLARE
t_ix real;
n int;
BEGIN
IF NEW.time_type = 'Start' THEN
SELECT t.time_index FROM table_ebscb_spa_log02 t WHERE t.fn_name = NEW.fn_name AND t.time_type = 'Start' ORDER BY t.timestamp02 DESC LIMIT 1 INTO t_ix;
GET DIAGNOSTICS n = ROW_COUNT;
IF (n = 0) THEN
t_ix = 1;
ELSE
t_ix = t_ix + 1;
END IF;
END IF;
NEW.time_index = t_ix;
return …Run Code Online (Sandbox Code Playgroud) 我正在尝试为MSVC2015编译pthreads并发现一些奇怪的代码.
localPtr->wNodePtr->spin := PTW32_TRUE;
Run Code Online (Sandbox Code Playgroud)
这条线在做什么?