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
# 
}