Commit2f43cfe

committed

path fix

1 parent08cbfab commit2f43cfeCopy full SHA for 2f43cfe

File tree

-3

lines changed

-3

lines changed

Lines changed: 4 additions & 2 deletions

Original file line number	Diff line number	Diff line change
`@@ -6,7 +6,7 @@`
`6`	`6`	`#' the designated path or "data-raw" if no path is selected.`
`7`	`7`	`#'`
`8`	`8`	`#' @param data A Project FeederWatch dataset.`
`9`		`-#' @param path File path to the site description .csv from https://feederwatch.org/explore/raw-dataset-requests/. If not specified, defaults to "data-raw/site_data.csv".`
	`9`	`+#' @param path File path to the site description .csv from https://feederwatch.org/explore/raw-dataset-requests/. If not specified, defaults to "data-raw/sitedata.csv".`
`10`	`10`	`#'`
`11`	`11`	`#' @return The original dataset with site metadata merged in.`
`12`	`12`	`#'`
`@@ -20,7 +20,7 @@`
`20`	`20`	`#' @export`
`21`	`21`	`pfw_sitedata<-function(data,path) {`
`22`	`22`	`if (missing(path)\|\| is.null(path)) {`
`23`		`-path<- file.path(tools::R_user_dir("PFW","data"),"data-raw","site_data.csv")`
	`23`	`+path<- file.path(tools::R_user_dir("PFW","data"),"data-raw","sitedata.csv")`
`24`	`24`	`}`
`25`	`25`
`26`	`26`	`# Download site data if path doesn't exist`
`@@ -47,9 +47,11 @@ pfw_sitedata <- function(data, path) {`
`47`	`47`
`48`	`48`	`# Construct full URL`
`49`	`49`	`site_url<-hrefs[[1]]`
	`50`	`+filename<- basename(site_url)`
`50`	`51`	`if (!grepl("^http",site_url)) {`
`51`	`52`	`site_url<- paste0("https://feederwatch.org",site_url)`
`52`	`53`	`}`
	`54`	`+path<- file.path(dirname(path),filename)`
`53`	`55`	`message("Site metadata not found at provided path. Downloading from FeederWatch...")`
`54`	`56`
`55`	`57`	`tryCatch(`

Lines changed: 1 addition & 1 deletion

Some generated files are not rendered by default. Learn more aboutcustomizing how changed files appear on GitHub.

Comments

(0)