在R markdown中包裹长网址行

Question

我已经阅读了各种文章，但仍然没有找到解决方案。这是一些示例代码：

library(dplyr)
library(lubridate)

urlfile<-'https://raw.githubusercontent.com/blakeobeans/Predicting-Service-Calls/master/Data/nc.csv'
dates<-read.csv(urlfile, header=FALSE)
dates$V1 <- mdy(dates$V1)
dates <- dates %>%
    rename("data.time" = V1) %>%
    filter("2017-10-01" >= data.time & data.time >= "2017-06-01") %>%
    group_by(data.time) %>%
    summarise(n = n())

当我输出到pdf ...

如果代码中的注释用完了灰色条，也会发生同样的事情。

我尝试在开始时使用以下代码行：

knitr::opts_chunk$set(tidy.opts=list(width.cutoff=60),tidy=TRUE)

但这没有帮助。

Answer 1

将软件包放在CRAN上时，我遇到了类似的问题（如果Rd文件行超过90个字符（注意：行宽超过90个字符），他们会给出注释）。我函数的参数之一是github数据集的网址。解决方案是将url分成单独的参数。例如：

urlRemote  <- "https://raw.githubusercontent.com/"
pathGithub <- "blakeobeans/Predicting-Service-Calls/master/Data/"
fileName   <- "nc.csv"

您可以像下面这样在代码中使用它：

paste0(urlRemote, pathGithub, fileName) %>%
    read.csv(header = FALSE)

当您要使用同一存储库中的多个文件时，可以使用paste0(urlRemote, pathGithub, fileName1)，paste0(urlRemote, pathGithub, fileName2)等，因此此解决方案具有优势。