github/shiny
1
1
Fork 0
mirror of https://github.com/rstudio/shiny.git synced 2026-04-07 03:00:20 -04:00
Code Issues Packages Projects Releases Wiki Activity

Add news

Browse Source 
and other minor changes from self-review
This commit is contained in:
trestletech
2019-08-08 15:55:08 -05:00
parent 37569a291b
commit 51befe3e27
2 changed files with 6 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
R/app.R
View File

@@ -297,16 +297,14 @@ initAutoReloadMonitor <- function(dir) {
# Loads in all helpers in the R/ directory of the app
# From `list.files`:
# > The files are sorted in alphabetical order, on the full path if full.names = TRUE.
# > The files are sorted in alphabetical order, on the full path
loadHelpers <- function(appDir, envir=globalenv()){
# TODO: what if we're on a case-sensitive file system and there's R/ and r/?
helpersDir <- file.path(appDir, "R")
if (!file.exists(helpersDir)){
# We may be on a case-sensitive filesystem and have a dir named r/
helpersDir <- file.path(appDir, "r")
}
helpers <- list.files(helpersDir, pattern="\\.[rR]$", ignore.case=TRUE,
recursive=TRUE, full.names=TRUE)
helpers <- list.files(helpersDir, pattern="\\.[rR]$", recursive=TRUE, full.names=TRUE)
lapply(helpers, sourceUTF8, envir=envir)
}