A jak odpalę skrypt ręcznie linijka po linijce to jest OK.
Nie wczytuje mi plików CSS z folderu cssDir <- ...
a functionsDir <- ...
idą ładnie.
rm(list=ls())
if (!require(gpclib)) install.packages("gpclib", type="source")
gpclibPermit()
functionsDir <- "D:/R/frontEnd2/shiny/functions/"
cssDir <- "D:/R/frontEnd2/shiny/css/"
dirs <- c(functionsDir, cssDir)
fileList <- list.files(dirs, full.names = T)
lapply(fileList, function(x) source(x))
initDt <- function(){
dtTemp <- loadCollectionFromMongo()
calcDatabase(dtTemp)
}
dtBase <- initDt()
server <- function(input, output) {
#
# tutaj jest zaimplementowany serwer
#
}