在我的r部分文档中,我使用长代码,如:
```{r}
output <- "very long query for example url to some website............................................."
output
```
Run Code Online (Sandbox Code Playgroud)
有没有办法不让R自动包装代码,让我们说60个字符后?我尝试过tidy=TRUE, tidy.opts=list(width.cutoff=60)选项,但它不起作用.
我希望输出相同,因为我的查询输出是一些文本.我希望在很多行中显示整个内容,而不仅仅是在一行中开头.我该怎么做?
在对CRAN包提交进行最终检查时,会出现以下注释:
* checking top-level files ... NOTE
Files ‘README.md’ or ‘NEWS.md’ cannot be checked without ‘pandoc’ being installed.
Run Code Online (Sandbox Code Playgroud)
但是,pandoc肯定是安装的,因为我经常使用它,这个包经常在文档中使用它pkgdown.
> rmarkdown::pandoc_available()
[1] TRUE
> rmarkdown::pandoc_version()
[1] ‘1.19.2.1’
Run Code Online (Sandbox Code Playgroud)
我想避免从源代码安装pandoc,因为最新版本的pandoc取代了与其他R软件包一起安装的版本并导致奇怪的输出.
几年前有一个类似的问题,但解决方案是:
installr包安装pandoc ,而我已经安装了pandoc; 和,仅在使用devtools::release()和使用时检查此注释devtools::check(check_version = TRUE),否则通过时不会发出警告或注释.
Pandoc的RStudio安装:
Sys.getenv('RSTUDIO_PANDOC')
[1] "/Applications/RStudio.app/Contents/MacOS/pandoc"
Run Code Online (Sandbox Code Playgroud)
我以前导出到〜/ .bash_profile:
export PATH="$PATH:/Applications/Rstudio.app/Contents/MacOS/pandoc"
Run Code Online (Sandbox Code Playgroud)
有任何想法吗?
> sessionInfo()
R version 3.4.3 (2017-11-30)
Platform: x86_64-apple-darwin15.6.0 (64-bit)
Running under: macOS High Sierra 10.13.2
Matrix products: default
BLAS: /System/Library/Frameworks/Accelerate.framework/Versions/A/Frameworks/vecLib.framework/Versions/A/libBLAS.dylib
LAPACK: /Library/Frameworks/R.framework/Versions/3.4/Resources/lib/libRlapack.dylib
locale: …Run Code Online (Sandbox Code Playgroud) 我无法去除热图中图块之间的白线。下面是我的代码和图片。以前有人遇到过这种情况吗?
t <- ggplot(Drug_heatmap_df_final,
aes(x=reorder(Drug,Total_Deaths), y=Start_Date, fill=Total_Deaths)) +
geom_tile() +
labs(title="Heatmap of Total Deaths per month by Drug", x="Drug", y="Month") +
theme(plot.title = element_text(hjust=.5)) +
scale_y_date(date_breaks="1 year" , labels = date_format("%b-%Y")) +
theme(axis.text.x = element_text(size=13))
plot(t)
Run Code Online (Sandbox Code Playgroud)
我有一个函数,它需要一个数据框和几个变量,我希望它使用整洁的评估原则生成一组滞后变量。它的简单形式如下所示:
library(dplyr)
cor_lags <- function(df, var1, var2) {
var1 <- enquo(var1)
var2 <- enquo(var2)
df %>%
select(!!var1, !!var2) %>%
mutate(lag1 = lag(!!var2, 1),
lag2 = lag(!!var2, 2),
lag3 = lag(!!var2, 3),
lag4 = lag(!!var2, 4),
lag5 = lag(!!var2, 5),
lag6 = lag(!!var2, 6))
}
Run Code Online (Sandbox Code Playgroud)
但是,这会NA为所有滞后变量生成值。
cor_lags(dts_wide,"P26","P1")
# A tibble: 24 x 8
P26 P1 lag1 lag2 lag3 lag4 lag5 lag6
<dbl> <dbl> <chr> <chr> <chr> <chr> <chr> <chr>
1 84332. 2258. NA NA NA NA NA NA
2 …Run Code Online (Sandbox Code Playgroud)