_daemon.R

SourceDir <- function (path, pattern = '\\.[rR]$', env = NULL, chdir = TRUE) 

message('\n|-- functions')

source('functions/strip.R')
source('functions/crawl.R')
source('functions/form.R')
source('functions/get.R')
source('functions/plot.R')

if(file.exists('_secret.R')) { source('_secret.R') }
source('_server.R')
source('_ui.R')


#-----------------------
message('|-- libraries')
#-----------------------


if(!'shiny' %in% rownames(installed.packages())) {
	install.packages(shiny)
}

pacman::p_load(dplyr, readr, tidyr, stringr, magrittr, purrr, rlist, httr, jsonlite, visNetwork, igraph, shiny)


#--------------------
message('|-- daemon')
#--------------------


Spider <- function(port = 3030){ shinyApp(

	UI(origin, pop, direction, up.initial, depth, type),
	Server,
	options = list(port = port)

)}


#------------------------------
message('|-- initialization\n')
#------------------------------


# start parameters
origin     = 'research-tactics'
direction  = 1
depth      = 1
type       = 'all'
seed       = 0
up.initial = 1
pop        = 'superchannels, channels-categorizing-other-channels, root, looseleaf, dhr-quick-reference, primer'

set.seed(seed)


# palette
colors <- c(
	'#d99aac', '#ffa9c0', '#e2979f', '#ffc6bf', '#ffb18f',
	'#d3a088', '#efb17b', '#ffcc95', '#bba98d', '#ffe2a8',
	'#fff9d3', '#cfce81', '#a1b279', '#dcf3a7', '#ebffc3',
	'#b0d791', '#ccffd5', '#80b88e', '#b7ffd1', '#56bd9c',
	'#7deac8', '#74b8a7', '#3ec1ad', '#53d4c1', '#92ffef',
	'#affff3', '#6ef4e8', '#d1fef9', '#85f8ff', '#a5d1d6',
	'#47e2f6', '#02c0d8', '#a5f0ff', '#6ab6cb', '#4fdcff',
	'#94bcc9', '#82deff', '#b2d5e8', '#76b2dc', '#98d2ff',
	'#8ac7ff', '#75b1e8', '#b6a2d9', '#e3cdff', '#ffdeff',
	'#ca9dc8', '#edabe8', '#f09ccc', '#ffb7de', '#e4bfcb')


# read in config
config <- suppressMessages(read_delim('config.txt', delim = '=', col_names = FALSE))


if(nrow(config) == 0) {

	message('config file empty, trying default port: 3030')
	port <- 3030

} else {
	# parse config file
	params <-
		config %>%
		set_names(c('param', 'value')) %>%
		mutate_each(funs(strip))

	# get port value
	port <-
		params %>%
		filter(param == 'port') %>%
		slice(1) %$%
		value %>%
		as.numeric

	message(str_c('using specified port: ', port))
}

# run spider
Spider(port = port)