use full path when retrieving allowable set of locales

cpsievert · cpsievert · commit 25cafd19fd4b · 2018-11-02T10:51:11.000-05:00
diff --git a/R/plotly.R b/R/plotly.R
@@ -473,7 +473,7 @@ locale_dependency <- function(locale) {
   }
   
   locale_dir <- dependency_dir("plotlyjs", "locales")
-  locales_all <- sub("\\.js$", "", list.files(locale_dir))
+  locales_all <- sub("\\.js$", "", list.files(system.file(locale_dir, package = "plotly")))
   if (!tolower(locale) %in% locales_all) {
     stop(
       "Invalid locale: '", locale, "'.\n\n",

Original file line number	Diff line number	Diff line change
`@@ -473,7 +473,7 @@ locale_dependency <- function(locale) {`
`473`	`473`	`}`
`474`	`474`
`475`	`475`	`locale_dir <- dependency_dir("plotlyjs", "locales")`
`476`		`- locales_all <- sub("\\.js$", "", list.files(locale_dir))`
	`476`	`+ locales_all <- sub("\\.js$", "", list.files(system.file(locale_dir, package = "plotly")))`
`477`	`477`	`if (!tolower(locale) %in% locales_all) {`
`478`	`478`	`stop(`
`479`	`479`	`"Invalid locale: '", locale, "'.\n\n",`