Обернуть длинную строку URL в уценке R - PullRequest
0 голосов
/ 04 октября 2018

Я читал различные посты по этому вопросу, но я до сих пор не нашел решения.Вот пример кода:

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 ...

enter image description here

То же самое происходит, если яесть заметки в коде, заканчивающемся серой полосой.

Я попытался использовать следующую строку кода в начале:

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

Но это не помогает.

1 Ответ

0 голосов
/ 04 октября 2018

У меня была похожая проблема при установке пакета в CRAN (они сообщают, если Rd строка файла превышает 90 символов ( ПРИМЕЧАНИЕ: строки шире, чем 90 символов )).Одним из аргументов моей функции был URL-адрес набора данных 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) и т. д.

...