Initial Script
This commit is contained in:
spegg committed
commit
54f5e8c418
17 files changed
+61184
No files matched your search
+218
@@ -0,0 +1,218 @@
|
||||
library(DT)
|
||||
library(shiny)
|
||||
library(shinyBS)
|
||||
library(shinyjs)
|
||||
library(shinydashboard)
|
||||
library(htmltools)
|
||||
library(DiagrammeR)
|
||||
library(magrittr)
|
||||
library(plotly)
|
||||
library(shiny)
|
||||
library(googleway)
|
||||
library(Rgraphviz)
|
||||
|
||||
addResourcePath("js", "./www/js")
|
||||
|
||||
source('Parses.R')
|
||||
|
||||
# shinyInput <- function(FUN, len, id, ...) {
|
||||
# inputs <- character(len)
|
||||
# for (i in seq_len(len)) {
|
||||
# inputs[i] <- as.character(FUN(paste0(id, i), ...))
|
||||
# }
|
||||
# inputs
|
||||
# }
|
||||
|
||||
ui<-dashboardPage(
|
||||
dashboardHeader(title = "JNCC MESO online"),
|
||||
dashboardSidebar(
|
||||
sidebarMenu(id = "tabs",
|
||||
menuItem("Pressure Test", tabName = "1", icon = icon("align-left", lib = "glyphicon")),
|
||||
menuItem("Bayesian Network", tabName = "2", icon = icon("plug")),
|
||||
menuItem("Habitats", tabName = "3", icon = icon("map")),
|
||||
selectInput(ns("modelSelect"), "Select MESO model", choices=ns("output$selModels"), selected=NULL, multiple=FALSE)
|
||||
)
|
||||
),
|
||||
dashboardBody(
|
||||
tabItems(
|
||||
tabItem(tabName = "1",h4("Pressure Test"),
|
||||
fluidPage(
|
||||
fluidRow(
|
||||
column(width=3,
|
||||
radioButtons(ns("pressure1"), 'Sediment type', choices=c('On', 'Off'), inline=TRUE),
|
||||
radioButtons(ns("pressure2"), 'Seabed type', choices=c('On', 'Off'), inline=TRUE),
|
||||
radioButtons(ns("pressure3"), 'Material extraction', choices=c('On', 'Off'), inline=TRUE),
|
||||
radioButtons(ns("pressure4"), 'Abrasion of seabed', choices=c('On', 'Off'), inline=TRUE),
|
||||
radioButtons(ns("pressure5"), 'Penetration of seabed', choices=c('On', 'Off'), inline=TRUE),
|
||||
radioButtons(ns("pressure6"), 'Siltation', choices=c('On', 'Off'), inline=TRUE),
|
||||
radioButtons(ns("pressure7"), 'Wave exposure', choices=c('On', 'Off'), inline=TRUE),
|
||||
radioButtons(ns("pressure8"), 'Suspended sediment', choices=c('On', 'Off'), inline=TRUE),
|
||||
radioButtons(ns("pressure9"), 'Generic contamination', choices=c('On', 'Off'), inline=TRUE),
|
||||
radioButtons(ns("pressure10"), 'Deoxygenation', choices=c('On', 'Off'), inline=TRUE),
|
||||
radioButtons(ns("pressure11"), 'Removal of target species', choices=c('On', 'Off'), inline=TRUE),
|
||||
actionButton(ns("calcAB"), "Calc")
|
||||
),
|
||||
column(width=9,
|
||||
plotlyOutput(ns("layer1"), height="300px") %>% withSpinner(),
|
||||
plotlyOutput(ns("layer2"), height="300px") %>% withSpinner(),
|
||||
plotlyOutput(ns("layer3"), height="300px") %>% withSpinner()
|
||||
)
|
||||
)
|
||||
)
|
||||
),
|
||||
tabItem(tabName = "2",h4("Bayesian Network"),
|
||||
fluidPage(
|
||||
fluidRow(
|
||||
plotOutput(ns("bbnGraphPlot"))
|
||||
),
|
||||
fluidRow(
|
||||
column(
|
||||
width=6,
|
||||
DT::dataTableOutput(ns('nodeTable'))
|
||||
),
|
||||
column(
|
||||
width=6,
|
||||
DT::dataTableOutput(ns('edgeTable'))
|
||||
)
|
||||
)
|
||||
)
|
||||
),
|
||||
tabItem(tabName = "3",h4("Habitats"),
|
||||
fluidPage(
|
||||
google_mapOutput(outputId = "map", width = "100%", height = "400px")
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
}
|
||||
|
||||
server <- function(input, output, session) {
|
||||
#SERVER Constants
|
||||
|
||||
print('Loading data')
|
||||
|
||||
set_key("AIzaSyAw8_btgGN1drf8qhCxNcotP6r11qEXA_M")
|
||||
dataStorage <- 'data/'
|
||||
|
||||
models<-NULL
|
||||
selectedModel <- NULL
|
||||
|
||||
availableModels <- function() return(models)
|
||||
|
||||
observeEvent(input$modelSelect, {
|
||||
selectedModel <<- match(input$modelSelect, models)
|
||||
})
|
||||
|
||||
output$map <- renderGoogle_map({
|
||||
google_map(location = c(0, 55), zoom = 10)
|
||||
})
|
||||
|
||||
#parse on load sheets in the input sheet folder
|
||||
|
||||
modelList <- list()
|
||||
fileList <- list.files(dataStorage, pattern='.xlsx')
|
||||
|
||||
print(fileList)
|
||||
|
||||
for (idx in 1:length(fileList)) {
|
||||
tmp <- parseSheets(fileList[idx], plot=FALSE)
|
||||
|
||||
if (!is.null(tmp)) {
|
||||
modelList[[cnt]] <- tmp
|
||||
models <<- c(models, substring(fileList[idx], start=1, stop=nchar(fileList[idx])-5))
|
||||
print(paste('Model file successfully loaded', fileList[idx]))
|
||||
cnt=cnt+1
|
||||
}
|
||||
}
|
||||
|
||||
output$nodeTable <- DT::renderDataTable(modelList[[selectedModel]]$pressEcoServMap$nodes,
|
||||
selection = 'single',options = list(searching = FALSE,pageLength = 10),server = TRUE, escape = FALSE,rownames= TRUE)
|
||||
|
||||
output$edgeTable <- DT::renderDataTable(modelList[[selectedModel]]$pressEcoServMap$edges,
|
||||
selection = 'single',options = list(searching = FALSE,pageLength = 10),server = TRUE, escape = FALSE,rownames= TRUE)
|
||||
|
||||
|
||||
output$bbnGraphPlot <- renderPlot({
|
||||
graphviz.plot(modelList[[selectedModel]]$p_es$net)
|
||||
})
|
||||
|
||||
output$layer1 <- renderPlotly({
|
||||
calcLikelihood(plot=TRUE)
|
||||
})
|
||||
|
||||
output$layer2 <- renderPlotly({
|
||||
calcLikelihood(plot=TRUE)
|
||||
})
|
||||
|
||||
output$layer3 <- renderPlotly({
|
||||
calcLikelihood(plot=TRUE)
|
||||
})
|
||||
|
||||
# TaskRow <- eventReactive(input$select_button,{
|
||||
# taskList[SelectedRow(),2:ncol(taskList)]
|
||||
# })
|
||||
#
|
||||
# points <- eventReactive(input$recalc, {
|
||||
# cbind(rnorm(40) * 2 + 13, rnorm(40) + 48)
|
||||
# }, ignoreNULL = FALSE)
|
||||
#
|
||||
# cities <- read.csv(textConnection("
|
||||
# City,Lat,Long,Pop
|
||||
# Boston,42.3601,41.0589,645966
|
||||
# Hartford,41.7627,42.6743,125017
|
||||
# New York City,40.7127,44.0059,8406000
|
||||
# Philadelphia,39.9500,45.1667,1553000
|
||||
# Pittsburgh,40.4397,39.9764,305841
|
||||
# Providence,41.8236,41.4222,177994
|
||||
# "))
|
||||
|
||||
# output$mymap <- renderLeaflet({
|
||||
# leaflet(cities) %>% addTiles() %>%
|
||||
# addCircles(lng = ~Long, lat = ~Lat, weight = 1,
|
||||
# radius = ~sqrt(Pop) * 30, popup = ~City
|
||||
# )
|
||||
# })
|
||||
|
||||
# output$mymap1 <- renderUI({
|
||||
# require(maptools)
|
||||
#
|
||||
# data(meuse)
|
||||
# coordinates(meuse) = ~x+y
|
||||
# proj4string(meuse) <- CRS("+init=epsg:28992")
|
||||
#
|
||||
# data(meuse.grid)
|
||||
# coordinates(meuse.grid)<-c('x','y')
|
||||
# meuse.grid<-as(meuse.grid,'SpatialPixelsDataFrame')
|
||||
# im<-as.image.SpatialGridDataFrame(meuse.grid['dist'])
|
||||
# cl<-ContourLines2SLDF(contourLines(im))
|
||||
# str(cl)
|
||||
# proj4string(cl) <- CRS('+init=epsg:28992')
|
||||
#
|
||||
# #m <- plotGoogleMaps(meuse, filename = 'myMap1.html', openMap = FALSE, streetViewControl = TRUE)
|
||||
#
|
||||
# # Combine point and line data
|
||||
# m<-plotGoogleMaps(meuse, mapTypeId='TERRAIN', openMap = FALSE)
|
||||
# #mapMeusePoints<- plotGoogleMaps(cl, mapTypeId='TERRAIN', openMap = FALSE)
|
||||
# comboMap<- plotGoogleMaps(cl,add=TRUE, previousMap=m, openMap = FALSE, layerName='Lines')
|
||||
# finalMap<- plotGoogleMaps(comboMap, filename = '/home/spegg/R projects/draw/www/myMap1.htm', openMap = FALSE)
|
||||
#
|
||||
# tags$iframe(
|
||||
# srcdoc = paste(readLines('/home/spegg/R projects/draw/www/myMap1.htm'), collapse = '\n'),
|
||||
# width = "100%",
|
||||
# height = "600px"
|
||||
# )
|
||||
# })
|
||||
#
|
||||
# output$popup <- renderUI({
|
||||
# bsModal("taskModal", paste0("Task information for: ",SelectedRow()), "", size = "large",
|
||||
# column(12,
|
||||
# DT::renderDataTable(TaskRow())
|
||||
# ),
|
||||
# column(6,
|
||||
# actionButton("openTask", "Open Task")
|
||||
# )
|
||||
# )
|
||||
# })
|
||||
}
|
||||
|
||||
shinyApp(ui('JNCC'), function(...) {callModule(server, 'JNCC')})
|
||||
@@ -0,0 +1,328 @@
|
||||
|
||||
modules::import(openxlsx)
|
||||
modules::import(bnlearn)
|
||||
modules::import(stringr)
|
||||
modules::import(graph)
|
||||
modules::import(ggplot2)
|
||||
modules::import(stats)
|
||||
modules::import(plotly)
|
||||
modules::import(utils)
|
||||
|
||||
|
||||
#Improvements needed: make the selection of first row/column of nodes programmatic
|
||||
FIRST_NODE_COL <- 3
|
||||
|
||||
mappings <- c('TestScenario', 'Map_P_BA', 'Map_BA_OP', 'Map_OP_ES')
|
||||
nodeTypes <- c('Input.Nodes', 'Internal.Nodes', 'Published.Nodes')
|
||||
states <- c('impact', 'confidence', 'growth', 'recovery')
|
||||
refs <-c(1:length(mappings))
|
||||
|
||||
setEmpties <- function(val) {
|
||||
if (is.na(val)) return(0) else return(val)
|
||||
}
|
||||
|
||||
readXL <- function(fName, sheetN, startRow=1) {
|
||||
xl <- read.xlsx(fName, sheet = sheetN, startRow) #, rowNames = import)
|
||||
return(data.frame(xl, stringsAsFactors = FALSE, row.names = NULL))
|
||||
}
|
||||
|
||||
delNA <- function(vec) {
|
||||
return(vec[!is.na(vec)])
|
||||
}
|
||||
|
||||
parseScenario <- function(press, prefix = 'p') {
|
||||
pressNames <- colnames(press)[2:length(colnames(press))]
|
||||
coefs <- matrix(data=NA, nrow=length(pressNames), ncol=2, dimnames=list(NULL, c('growth', 'confidence')))
|
||||
for (col in 2:ncol(press)) {
|
||||
coefs[col-1,] <- as.numeric(split(press[1, col]))[match(c('growth', 'confidence'), states)]
|
||||
}
|
||||
press[is.na(press)] <- 0
|
||||
if (sum(duplicated(pressNames))>0) {
|
||||
cat('Duplicated pressure node names found')
|
||||
print(pressNodes[duplicated(pressNames)])
|
||||
}
|
||||
|
||||
return(list(
|
||||
timeSeq=press,
|
||||
nodes=data.frame(name = pressNames,
|
||||
code=paste0(prefix, seq(1:length(pressNames))),
|
||||
growth = coefs[,'growth'],
|
||||
confidence=coefs[,'confidence'],
|
||||
stringsAsFactors = FALSE),
|
||||
edges=data.frame(input=NULL, output=NULL, impact=NULL)
|
||||
))
|
||||
}
|
||||
|
||||
getInitial <- function(string, letter) {
|
||||
return(tolower(substr(string, start=1, stop=1)))
|
||||
}
|
||||
|
||||
split <- function(cell) {
|
||||
params <- unlist(strsplit(cell, ','))
|
||||
values <- rep(0, length(states))
|
||||
|
||||
for (n in 1:length(params)) {
|
||||
kvp <- unlist(strsplit(params[n], '='))
|
||||
ref <- match(getInitial(trimws(kvp[1])), getInitial(states))
|
||||
if ((ref>0) & (ref<=length(values))) {
|
||||
values[ref] <- kvp[2]
|
||||
} else {
|
||||
print(paste('Unrecognised parameter(s):',params[n]))
|
||||
}
|
||||
|
||||
}
|
||||
return(values)
|
||||
|
||||
}
|
||||
|
||||
cleanTitles <- function(titleV) {
|
||||
return(str_replace_all(titleV, c(' ' = '.', '-' = '')))
|
||||
}
|
||||
|
||||
getOutNodes <- function(codes, codeList) {
|
||||
v <- vector(mode='logical', length=length(codes))
|
||||
for (idx in 1:length(codes)) {
|
||||
v[idx] <- (sum(startsWith(codes[idx], codeList))>0)
|
||||
}
|
||||
return(v)
|
||||
}
|
||||
|
||||
buildGraph <- function(model, desc) {
|
||||
|
||||
#model contains the following
|
||||
# node table, edge table
|
||||
|
||||
#descriptor (desc) contains:
|
||||
#inputCode - the top layer of the model
|
||||
#outputCodes - all subsequent layers to be included in the model
|
||||
|
||||
inputNodes <- model$nodes$code[which(startsWith(model$nodes$code, desc$inputCode))]
|
||||
inputText <- paste0("[", inputNodes, "]", collapse ="")
|
||||
|
||||
#do the internal nodes
|
||||
edges <- ""
|
||||
|
||||
outNodes <- model$nodes$code[getOutNodes(model$nodes$code, desc$outputCodes)]
|
||||
outDist <- vector(mode="list", length=length(outNodes))
|
||||
|
||||
for (idx in 1:length(outNodes)) {
|
||||
nodeRef <- match(outNodes[idx], model$nodes$code)
|
||||
|
||||
rows <- which(model$edges$output == outNodes[idx])
|
||||
inputsStr <- paste0(model$edges$input[which(model$edges$output == outNodes[idx])], sep=":", collapse="")
|
||||
edges <- paste0(edges, paste0("[", outNodes[idx], "|", substr(inputsStr, start=1, stop=(nchar(inputsStr)-1)), "]"))
|
||||
|
||||
#Make the coefficient of the distribution
|
||||
coefVal <- setNames(c(model$nodes$growth[nodeRef], model$edges$impact[rows]),
|
||||
c("(Intercept)", model$edges$input[rows])
|
||||
)
|
||||
#str(coefVal)
|
||||
outDist[[idx]] <- list(coef = coefVal,
|
||||
sd = model$nodes$confidence[nodeRef])
|
||||
}
|
||||
|
||||
print('about to build network')
|
||||
|
||||
net <- model2network(paste0(inputText, edges))
|
||||
|
||||
print('network build successful')
|
||||
|
||||
inDist <- vector(mode="list", length=length(inputNodes))
|
||||
|
||||
for (idx in 1:length(inputNodes)) {
|
||||
inRef <- match(inputNodes[idx], model$nodes$code)
|
||||
coefVal <- setNames(model$nodes$growth[inRef], "(Intercept)")
|
||||
inDist[[idx]] <- list(coef = coefVal, sd = model$nodes$confidence[inRef])
|
||||
}
|
||||
|
||||
allDists = as.list(setNames(c(inDist, outDist), c(inputNodes, outNodes)))
|
||||
cfit = custom.fit(net, allDists)
|
||||
|
||||
cat('about to calculate sample distributions')
|
||||
print(outNodes)
|
||||
|
||||
sampleDists <- cpdist(cfit, nodes = outNodes, evidence = TRUE, n = 10000, method = "lw")
|
||||
summDists <- summary(sampleDists)
|
||||
#stdDev <- sd(sampleDists)
|
||||
|
||||
print('sample distribution build successful')
|
||||
|
||||
model$edges$input <- model$nodes$name[match(model$edges$input, model$nodes$code)]
|
||||
model$edges$output <- model$nodes$name[match(model$edges$output, model$nodes$code)]
|
||||
|
||||
return(
|
||||
list(
|
||||
nodes = model$nodes,
|
||||
edges = model$edges,
|
||||
net = net,
|
||||
cfit = cfit,
|
||||
allDists = allDists,
|
||||
summDists = summDists
|
||||
)
|
||||
)
|
||||
}
|
||||
|
||||
|
||||
getValidNodes <- function(mapping, prevOutputs, prefix) {
|
||||
|
||||
#Find row id for input nodes, internal and published
|
||||
inputNodes <- mapping[2:nrow(mapping),1]
|
||||
|
||||
#check that all input nodes are in the previous table
|
||||
inputNodes <- delNA(mapping[mapping[,"Node.Type"] == 'input', "Nodes"])
|
||||
if (length(inputNodes)>0) {
|
||||
if (sum(inputNodes %in% prevOutputs$name)<length(inputNodes)) {
|
||||
cat('Missing entries for input nodes in previous output columns')
|
||||
print(inputNodes[!inputNodes %in% prevOutputs$name])
|
||||
}
|
||||
} else print('Invalid sheet - table must have at least one input row containing names from previous table')
|
||||
|
||||
|
||||
#Check the row headings concur with previous names
|
||||
validInputs <- delNA(inputNodes[which(unique(inputNodes) %in% prevOutputs$name)])
|
||||
if (length(validInputs)==0) print('Invalid sheet - table must have at least one input row containing names from previous table')
|
||||
|
||||
|
||||
inputInts <- delNA(inputNodes[mapping$Node.Type!='link'])
|
||||
|
||||
if (sum(duplicated(inputInts))>0) {
|
||||
cat('Duplicated input node names found')
|
||||
print(inputNodes[duplicated(inputNodes)])
|
||||
}
|
||||
|
||||
outNodes <- delNA(colnames(mapping)[FIRST_NODE_COL:ncol(mapping)])
|
||||
if (sum(duplicated(outNodes))>0) {
|
||||
cat('Duplicated output node names found')
|
||||
print(outNodes[duplicated(outNodes)])
|
||||
}
|
||||
|
||||
|
||||
#check that all internal nodes are in the columns
|
||||
intNodes <- delNA(mapping[mapping[,"Node.Type"] == 'internal', "Nodes"])
|
||||
if (length(intNodes)>0) {
|
||||
if (sum(intNodes %in% outNodes)<length(intNodes)) {
|
||||
cat('Missing entries for internal nodes in output columns')
|
||||
print(intNodes[!intNodes %in% outNodes])
|
||||
}
|
||||
}
|
||||
|
||||
coefs <- matrix(data=NA, nrow=length(outNodes), ncol=2, dimnames=list(NULL, c('growth', 'confidence')))
|
||||
for (idx in 1:length(outNodes)) {
|
||||
col <- match(outNodes[idx], colnames(mapping))
|
||||
coefs[idx,] <- as.numeric(split(mapping[1, col]))[match(c('growth', 'confidence'), states)]
|
||||
}
|
||||
|
||||
return(data.frame(
|
||||
code=c(prevOutputs$code, paste0(prefix, seq(1:length(outNodes)))),
|
||||
name=c(prevOutputs$name, outNodes),
|
||||
growth=c(prevOutputs$growth, coefs[,"growth"]),
|
||||
confidence=c(prevOutputs$confidence, coefs[,"confidence"]),
|
||||
stringsAsFactors=FALSE
|
||||
))
|
||||
}
|
||||
|
||||
getCode <- function(name, nodeDF) {
|
||||
nodeDF$code[match(name, nodeDF$name)]
|
||||
}
|
||||
|
||||
getValidEdges <- function(mapping, nodeDF, prevEdge=NULL, prefix) {
|
||||
str(nodeDF)
|
||||
edgeCols <- c('inputNode', 'outputNode', 'impact')
|
||||
edgeM <- matrix(data=NA, nrow=0, ncol=length(edgeCols), dimnames=list(NULL, edgeCols))
|
||||
|
||||
#to start let just get the statements and print them out....
|
||||
for (col in FIRST_NODE_COL:ncol(mapping)) {
|
||||
count=0
|
||||
|
||||
for (row in 2:nrow(mapping)) {
|
||||
|
||||
if (!is.na(mapping[row, col])) {
|
||||
edgeM <- rbind(edgeM,
|
||||
c(getCode(mapping[row, 1], nodeDF),
|
||||
getCode(colnames(mapping)[col], nodeDF),
|
||||
split(mapping[row,col])[match('impact', states)]
|
||||
)
|
||||
)
|
||||
count=count+1
|
||||
}
|
||||
#if (count==0) print(paste('No edges found for output', colnames(mapping)[col]))
|
||||
}
|
||||
}
|
||||
if (is.null(prevEdge)) return (
|
||||
data.frame(
|
||||
input = edgeM[,"inputNode"],
|
||||
output = edgeM[,"outputNode"],
|
||||
impact = as.numeric(edgeM[,"impact"]),
|
||||
stringsAsFactors = FALSE
|
||||
)
|
||||
) else return (
|
||||
data.frame(
|
||||
input = c(prevEdge$input, edgeM[,"inputNode"]),
|
||||
output = c(prevEdge$output, edgeM[,"outputNode"]),
|
||||
impact = c(prevEdge$impact, as.numeric(edgeM[,"impact"])),
|
||||
stringsAsFactors = FALSE
|
||||
)
|
||||
)
|
||||
}
|
||||
|
||||
parseMapping <- function(mapping, prevOutputs, prefix) {
|
||||
|
||||
mapping <- mapping[,-1]
|
||||
mapping[,1] <- cleanTitles(mapping[,1])
|
||||
|
||||
nodeDF <- getValidNodes(mapping, prevOutputs$nodes, prefix)
|
||||
edgeDF <- getValidEdges(mapping, nodeDF, prevEdge=prevOutputs$edges, prefix)
|
||||
|
||||
return(list(
|
||||
#New structure
|
||||
nodes=nodeDF,
|
||||
edges=edgeDF
|
||||
))
|
||||
|
||||
}
|
||||
|
||||
parseSheet <- function(fName) {
|
||||
#get sheet names
|
||||
|
||||
print(paste('starting sheet load', fName))
|
||||
|
||||
if (file.exists(fName)) {
|
||||
names <- openxlsx::getSheetNames(fName)
|
||||
|
||||
if (length(names)>0) {
|
||||
|
||||
sheets <- sort(delNA(match(names, mappings)))
|
||||
|
||||
cat('starting sheet parse')
|
||||
print(sheets)
|
||||
|
||||
if (sum(sheets==refs)==length(refs)) {
|
||||
#read all mapping tables
|
||||
scenario <- parseScenario(readXL(fName,mappings[1], startRow=1), prefix='p')
|
||||
p_ba <- parseMapping(readXL(fName,mappings[2], startRow=1), scenario, prefix='ba')
|
||||
p_op <- parseMapping(readXL(fName,mappings[3], startRow=1), p_ba, prefix='op')
|
||||
p_es <- parseMapping(readXL(fName,mappings[4], startRow=1), p_op, prefix='es')
|
||||
|
||||
print('building graphs')
|
||||
|
||||
p_baNet <- buildGraph(p_ba, desc=list(inputCode='p', outputCodes='ba'))
|
||||
p_opNet <- buildGraph(p_op, desc=list(inputCode='p', outputCodes=c('ba', 'op')))
|
||||
p_esNet <- buildGraph(p_es, desc=list(inputCode='p', outputCodes=c('ba', 'op', 'es')))
|
||||
|
||||
print('sheet load completed')
|
||||
return(
|
||||
list(
|
||||
pressBioAss = p_baNet,
|
||||
pressOpProc = p_opNet,
|
||||
pressEcoServ = p_esNet
|
||||
)
|
||||
)
|
||||
|
||||
} else {
|
||||
print(paste('Sheets found include', mappings[sheets]))
|
||||
cat('Missing sheets are:')
|
||||
print(refs[-sheets])
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
@@ -0,0 +1,267 @@
|
||||
modules::import(DT)
|
||||
modules::import(shiny)
|
||||
modules::import(shinyBS)
|
||||
modules::import(shinyjs)
|
||||
modules::import(shinydashboard)
|
||||
modules::import(htmltools)
|
||||
modules::import(DiagrammeR)
|
||||
modules::import(magrittr)
|
||||
modules::import(plotly)
|
||||
modules::import(kableExtra)
|
||||
modules::import(Rgraphviz)
|
||||
modules::import(knitr)
|
||||
modules::import(shinycssloaders)
|
||||
modules::import(googleway)
|
||||
modules::import(Rgraphviz)
|
||||
modules::import(bnlearn)
|
||||
|
||||
parser <- modules::use('Parses.R')
|
||||
|
||||
layers <- c("Pressures to Bio-Assemblages", "Bio-Assemblages to Output Processes", "Output Processes to Eco-system services")
|
||||
transitions <- c("Pressures to Bio-Assemblages", "Pressures to Output Processes", "Pressures to Eco-system services")
|
||||
addResourcePath("js", "./www/js")
|
||||
|
||||
ui<-dashboardPage(
|
||||
dashboardHeader(title = "JNCC MESO online"),
|
||||
dashboardSidebar(
|
||||
sidebarMenu(id = "tabs",
|
||||
menuItem("Pressure Test", tabName = "1", icon = icon("arrow-down")),
|
||||
menuItem("Bayesian Network", tabName = "2", icon = icon("atom")),
|
||||
menuItem("Habitats", tabName = "3", icon = icon("atlas")),
|
||||
selectInput("modelSelect", "Select MESO model", choices=c(""), selected=NULL, multiple=FALSE),
|
||||
selectInput("layerSelect", "Select Transition",
|
||||
choices=transitions,
|
||||
selected=NULL, multiple=FALSE)
|
||||
)
|
||||
),
|
||||
dashboardBody(
|
||||
tabItems(
|
||||
tabItem(tabName = "1",
|
||||
fluidRow(
|
||||
column(width=2,
|
||||
h4('Pressure Test'),
|
||||
radioButtons("pressure1", 'Sediment type', choices=c('On', 'Off'), inline=TRUE),
|
||||
radioButtons("pressure2", 'Seabed type', choices=c('On', 'Off'), inline=TRUE),
|
||||
radioButtons("pressure3", 'Material extraction', choices=c('On', 'Off'), inline=TRUE),
|
||||
radioButtons("pressure4", 'Abrasion of seabed', choices=c('On', 'Off'), inline=TRUE),
|
||||
radioButtons("pressure5", 'Penetration of seabed', choices=c('On', 'Off'), inline=TRUE),
|
||||
radioButtons("pressure6", 'Siltation', choices=c('On', 'Off'), inline=TRUE),
|
||||
radioButtons("pressure7", 'Wave exposure', choices=c('On', 'Off'), inline=TRUE),
|
||||
radioButtons("pressure8", 'Suspended sediment', choices=c('On', 'Off'), inline=TRUE),
|
||||
radioButtons("pressure9", 'Generic contamination', choices=c('On', 'Off'), inline=TRUE),
|
||||
radioButtons("pressure10", 'Deoxygenation', choices=c('On', 'Off'), inline=TRUE),
|
||||
radioButtons("pressure11", 'Removal of target species', choices=c('On', 'Off'), inline=TRUE),
|
||||
actionButton("calcAB", "Calc")
|
||||
),
|
||||
column(width=10,
|
||||
h4('Effect on bio-assemblage'),
|
||||
plotlyOutput("layer1", height="270px") %>% withSpinner(),
|
||||
h4('Effect on Output Processes'),
|
||||
plotlyOutput("layer2", height="270px") %>% withSpinner(),
|
||||
h4('Effect on Eco-system services'),
|
||||
plotlyOutput("layer3", height="270px") %>% withSpinner()
|
||||
)
|
||||
)
|
||||
),
|
||||
tabItem(tabName = "2",h4("Bayesian Network"),
|
||||
fluidPage(
|
||||
fluidRow(
|
||||
plotOutput("bbnGraphPlot")
|
||||
),
|
||||
fluidRow(
|
||||
column(
|
||||
width=6,
|
||||
h4('Ecoservice nodes'),
|
||||
DT::dataTableOutput('nodeTable')
|
||||
),
|
||||
column(
|
||||
width=6,
|
||||
h4('Ecoservice influences'),
|
||||
DT::dataTableOutput('edgeTable')
|
||||
)
|
||||
)
|
||||
)
|
||||
),
|
||||
tabItem(tabName = "3",h4("Habitats"),
|
||||
fluidPage(
|
||||
google_mapOutput(outputId = "map", width = "100%", height = "750px")
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
)
|
||||
|
||||
server <- function(input, output, session) {
|
||||
#SERVER Constants
|
||||
|
||||
print('Loading data')
|
||||
|
||||
set_key("AIzaSyAw8_btgGN1drf8qhCxNcotP6r11qEXA_M")
|
||||
dataStorage <- 'data/'
|
||||
|
||||
models<-NULL
|
||||
|
||||
getAvailableModels <- function() {
|
||||
fileList <- list.files(dataStorage, pattern='.xlsx')
|
||||
|
||||
print(fileList)
|
||||
modelList <- list()
|
||||
cnt<-1
|
||||
|
||||
for (idx in 1:length(fileList)) {
|
||||
print(paste('attempting to load', paste0(dataStorage, fileList[idx])))
|
||||
tmp <- parser$parseSheet(paste0(dataStorage, fileList[idx]))
|
||||
|
||||
if (!is.null(tmp)) {
|
||||
modelList[[cnt]] <- tmp
|
||||
|
||||
#tidy up the list for displaying
|
||||
|
||||
models <<- c(models, substr(fileList[idx], 1, (nchar(fileList[idx])-5)))
|
||||
print(paste('Model file successfully loaded', fileList[idx]))
|
||||
cnt=cnt+1
|
||||
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
updateSelectInput(session, "modelSelect", choices=models)
|
||||
|
||||
return(modelList)
|
||||
}
|
||||
|
||||
|
||||
.selections <- reactiveValues(model=1, layer=1)
|
||||
|
||||
#parse on load sheets in the input sheet folder
|
||||
modelList <- getAvailableModels()
|
||||
|
||||
calcLikelihood <- function(layer) {
|
||||
|
||||
isolate({
|
||||
if (layer==1) layerStr='ba' else if (layer==2) layerStr='op' else layerStr ='es'
|
||||
nodeList <- modelList[[.selections$model]][[.selections$layer]]$nodes
|
||||
str(nodeList)
|
||||
nodeNames <- nodeList$name[startsWith(nodeList$code, layerStr)]
|
||||
mean = runif(length(nodeNames), min=-1, max=1)
|
||||
sd = runif(length(nodeNames), min=-0.25, max=0.25)
|
||||
|
||||
df <- data.frame(
|
||||
nodeNames = nodeNames,
|
||||
range = c((mean - (3*sd)), (mean - (2*sd)), (mean - sd), mean,
|
||||
(mean + sd), (mean + (2*sd)), (mean + (3*sd))),
|
||||
stringsAsFactors=FALSE
|
||||
)
|
||||
print(df)
|
||||
})
|
||||
return(
|
||||
df
|
||||
)
|
||||
# isolate({
|
||||
#
|
||||
# if (layer==1) layerStr='ba' else if (layer==2) layerStr='op' else if (layer==3) layerStr='es'
|
||||
#
|
||||
# layerRange <- which(startsWith(modelList[[.selections$model]][[layer]]$nodes, layerStr))
|
||||
# distList <- modelList[[.selections$model]][[layer]]$summDist[,layerRange]
|
||||
# nodeNames <- modelList[[.selections$model]][[layer]]$nodes$name[layerRange]
|
||||
#
|
||||
# }
|
||||
|
||||
# print(paste('Length of layer & node names',layer, length(nodeNames)))
|
||||
#
|
||||
# distList <- modelList[[.selections$model]][[layer]]$summDist
|
||||
# colNames <- c('min', 'q1', 'q1', 'mean', 'q3', 'q3', 'max')
|
||||
# distM <- matrix(data=NA, nrow=ncol(distList), ncol=length(colNames))
|
||||
#
|
||||
# print(paste('Length of distributions',nrow(distM)))
|
||||
|
||||
# for (col in 1:ncol(distList)) {
|
||||
# valsAsStrs <- unlist(strsplit(distList[,col], ":"))
|
||||
# valIdxs <- seq(from=2, to=length(valsAsStrs), by=2)
|
||||
# distVals <- as.numeric(valsAsStrs[valIdxs])
|
||||
# distM[col,] <- c(distVals[1], distVals[2], distVals[2], distVals[4], distVals[5], distVals[5], distVals[6])
|
||||
# }
|
||||
# })
|
||||
#
|
||||
# df <- data.frame(
|
||||
# nodeNames = nodeNames,
|
||||
# dist = distM,
|
||||
# stringsAsFactors=FALSE
|
||||
# )
|
||||
# print(df)
|
||||
#
|
||||
# return(
|
||||
# df
|
||||
# )
|
||||
}
|
||||
|
||||
|
||||
.likelihoods <-reactiveValues(
|
||||
p_ba = calcLikelihood(1),
|
||||
ba_os = calcLikelihood(2),
|
||||
os_es = calcLikelihood(3)
|
||||
)
|
||||
|
||||
observeEvent(input$modelSelect, {
|
||||
.selections$model <<- match(input$modelSelect, models)
|
||||
#print(.selections$model)
|
||||
})
|
||||
|
||||
observeEvent(input$layerSelect, {
|
||||
.selections$layer <<- match(input$layerSelect, transitions)
|
||||
#print(.selections$layer)
|
||||
})
|
||||
|
||||
observeEvent(input$calcAB, {
|
||||
#print(paste('Action button pressed', input$calcAB))
|
||||
|
||||
.likelihoods$p_ba <<- calcLikelihood(1)
|
||||
.likelihoods$ba_os <<- calcLikelihood(2)
|
||||
.likelihoods$os_es <<- calcLikelihood(3)
|
||||
|
||||
})
|
||||
|
||||
output$map <- renderGoogle_map({
|
||||
google_map(location = c(55, 0), zoom = 7)
|
||||
})
|
||||
|
||||
|
||||
|
||||
|
||||
output$nodeTable <- DT::renderDataTable(
|
||||
|
||||
modelList[[.selections$model]][[.selections$layer]]$nodes,
|
||||
selection = 'single',options = list(searching = TRUE, pageLength = 10),server = TRUE, escape = FALSE,rownames= TRUE
|
||||
)
|
||||
|
||||
output$edgeTable <- DT::renderDataTable(
|
||||
|
||||
modelList[[.selections$model]][[.selections$layer]]$edges,
|
||||
selection = 'single',options = list(searching = TRUE, pageLength = 10),server = TRUE, escape = FALSE,rownames= TRUE
|
||||
)
|
||||
|
||||
output$bbnGraphPlot <- renderPlot({
|
||||
graphviz.plot(modelList[[.selections$model]][[.selections$layer]]$net)
|
||||
})
|
||||
|
||||
output$layer1 <- renderPlotly({
|
||||
plot_ly(.likelihoods$p_ba, y = ~range, color = ~nodeNames, type = "box")
|
||||
})
|
||||
|
||||
output$layer2 <- renderPlotly({
|
||||
#print(.likelihoods)
|
||||
|
||||
if (.selections$layer>1) {
|
||||
plot_ly(.likelihoods$ba_os, y = ~range, color = ~nodeNames, type = "box")
|
||||
}
|
||||
})
|
||||
|
||||
output$layer3 <- renderPlotly({
|
||||
|
||||
if (.selections$layer>2) {
|
||||
plot_ly(.likelihoods$os_es, y = ~range, color = ~nodeNames, type = "box")
|
||||
}
|
||||
})
|
||||
}
|
||||
|
||||
shinyApp(ui, server)
|
||||
Binary file not shown.
Binary file not shown.
Vendored
+9109
File diff suppressed because it is too large.
Load diff
@@ -0,0 +1,387 @@
|
||||
/*! JointJS v2.1.2 (2018-05-08) - JavaScript diagramming library
|
||||
|
||||
|
||||
This Source Code Form is subject to the terms of the Mozilla Public
|
||||
License, v. 2.0. If a copy of the MPL was not distributed with this
|
||||
file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
||||
*/
|
||||
/*
|
||||
A complete list of SVG properties that can be set through CSS is here:
|
||||
http://www.w3.org/TR/SVG/styling.html
|
||||
|
||||
Important note: Presentation attributes have a lower precedence over CSS style rules.
|
||||
*/
|
||||
|
||||
|
||||
/* .viewport is a <g> node wrapping all diagram elements in the paper */
|
||||
.joint-viewport {
|
||||
-webkit-user-select: none;
|
||||
-moz-user-select: none;
|
||||
user-select: none;
|
||||
}
|
||||
|
||||
.joint-paper > svg,
|
||||
.joint-paper-background,
|
||||
.joint-paper-grid {
|
||||
position: absolute;
|
||||
top: 0;
|
||||
left: 0;
|
||||
right: 0;
|
||||
bottom: 0;
|
||||
}
|
||||
|
||||
/*
|
||||
1. IE can't handle paths without the `d` attribute for bounding box calculation
|
||||
2. IE can't even handle 'd' attribute as a css selector (e.g path[d]) so the following rule will
|
||||
break the links rendering.
|
||||
|
||||
path:not([d]) {
|
||||
display: none;
|
||||
}
|
||||
|
||||
*/
|
||||
|
||||
|
||||
/* magnet is an element that can be either source or a target of a link */
|
||||
[magnet=true]:not(.joint-element) {
|
||||
cursor: crosshair;
|
||||
}
|
||||
[magnet=true]:not(.joint-element):hover {
|
||||
opacity: .7;
|
||||
}
|
||||
|
||||
/*
|
||||
|
||||
Elements have CSS classes named by their types. E.g. type: basic.Rect has a CSS class "element basic Rect".
|
||||
This makes it possible to easilly style elements in CSS and have generic CSS rules applying to
|
||||
the whole group of elements. Each plugin can provide its own stylesheet.
|
||||
|
||||
*/
|
||||
|
||||
.joint-element {
|
||||
/* Give the user a hint that he can drag&drop the element. */
|
||||
cursor: move;
|
||||
}
|
||||
|
||||
.joint-element * {
|
||||
user-drag: none;
|
||||
}
|
||||
|
||||
.joint-element .scalable * {
|
||||
/* The default behavior when scaling an element is not to scale the stroke in order to prevent the ugly effect of stroke with different proportions. */
|
||||
vector-effect: non-scaling-stroke;
|
||||
}
|
||||
/*
|
||||
|
||||
connection-wrap is a <path> element of the joint.dia.Link that follows the .connection <path> of that link.
|
||||
In other words, the `d` attribute of the .connection-wrap contains the same data as the `d` attribute of the
|
||||
.connection <path>. The advantage of using .connection-wrap is to be able to catch pointer events
|
||||
in the neighborhood of the .connection <path>. This is especially handy if the .connection <path> is
|
||||
very thin.
|
||||
|
||||
*/
|
||||
|
||||
.marker-source,
|
||||
.marker-target {
|
||||
/* This makes the arrowheads point to the border of objects even though the transform: scale() is applied on them. */
|
||||
vector-effect: non-scaling-stroke;
|
||||
}
|
||||
|
||||
/* Paper */
|
||||
.joint-paper {
|
||||
position: relative;
|
||||
}
|
||||
/* Paper */
|
||||
|
||||
/* Highlighting */
|
||||
.joint-highlight-opacity {
|
||||
opacity: 0.3;
|
||||
}
|
||||
/* Highlighting */
|
||||
|
||||
/*
|
||||
|
||||
Vertex markers are `<circle>` elements that appear at connection vertex positions.
|
||||
|
||||
*/
|
||||
|
||||
.joint-link .connection-wrap,
|
||||
.joint-link .connection {
|
||||
fill: none;
|
||||
}
|
||||
|
||||
/* <g> element wrapping .marker-vertex-group. */
|
||||
.marker-vertices {
|
||||
opacity: 0;
|
||||
cursor: move;
|
||||
}
|
||||
.marker-arrowheads {
|
||||
opacity: 0;
|
||||
cursor: move;
|
||||
cursor: -webkit-grab;
|
||||
cursor: -moz-grab;
|
||||
/* display: none; */ /* setting `display: none` on .marker-arrowheads effectivelly switches of links reconnecting */
|
||||
}
|
||||
.link-tools {
|
||||
opacity: 0;
|
||||
cursor: pointer;
|
||||
}
|
||||
.link-tools .tool-options {
|
||||
display: none; /* by default, we don't display link options tool */
|
||||
}
|
||||
.joint-link:hover .marker-vertices,
|
||||
.joint-link:hover .marker-arrowheads,
|
||||
.joint-link:hover .link-tools {
|
||||
opacity: 1;
|
||||
}
|
||||
|
||||
/* <circle> element used to remove a vertex */
|
||||
.marker-vertex-remove {
|
||||
cursor: pointer;
|
||||
opacity: .1;
|
||||
}
|
||||
|
||||
.marker-vertex-group:hover .marker-vertex-remove {
|
||||
opacity: 1;
|
||||
}
|
||||
|
||||
.marker-vertex-remove-area {
|
||||
opacity: .1;
|
||||
cursor: pointer;
|
||||
}
|
||||
.marker-vertex-group:hover .marker-vertex-remove-area {
|
||||
opacity: 1;
|
||||
}
|
||||
|
||||
/*
|
||||
Example of custom changes (in pure CSS only!):
|
||||
|
||||
Do not show marker vertices at all: .marker-vertices { display: none; }
|
||||
Do not allow adding new vertices: .connection-wrap { pointer-events: none; }
|
||||
*/
|
||||
|
||||
/* foreignObject inside the elements (i.e joint.shapes.basic.TextBlock) */
|
||||
.joint-element .fobj {
|
||||
overflow: hidden;
|
||||
}
|
||||
.joint-element .fobj body {
|
||||
background-color: transparent;
|
||||
margin: 0px;
|
||||
position: static;
|
||||
}
|
||||
.joint-element .fobj div {
|
||||
text-align: center;
|
||||
vertical-align: middle;
|
||||
display: table-cell;
|
||||
padding: 0px 5px 0px 5px;
|
||||
}
|
||||
|
||||
/* Paper */
|
||||
.joint-paper.joint-theme-dark {
|
||||
background-color: #18191b;
|
||||
}
|
||||
/* Paper */
|
||||
|
||||
/* Links */
|
||||
.joint-link.joint-theme-dark .connection-wrap {
|
||||
stroke: #8F8FF3;
|
||||
stroke-width: 15;
|
||||
stroke-linecap: round;
|
||||
stroke-linejoin: round;
|
||||
opacity: 0;
|
||||
cursor: move;
|
||||
}
|
||||
.joint-link.joint-theme-dark .connection-wrap:hover {
|
||||
opacity: .4;
|
||||
stroke-opacity: .4;
|
||||
}
|
||||
.joint-link.joint-theme-dark .connection {
|
||||
stroke-linejoin: round;
|
||||
}
|
||||
.joint-link.joint-theme-dark .link-tools .tool-remove circle {
|
||||
fill: #F33636;
|
||||
}
|
||||
.joint-link.joint-theme-dark .link-tools .tool-remove path {
|
||||
fill: white;
|
||||
}
|
||||
.joint-link.joint-theme-dark .link-tools [event="link:options"] circle {
|
||||
fill: green;
|
||||
}
|
||||
/* <circle> element inside .marker-vertex-group <g> element */
|
||||
.joint-link.joint-theme-dark .marker-vertex {
|
||||
fill: #5652DB;
|
||||
}
|
||||
.joint-link.joint-theme-dark .marker-vertex:hover {
|
||||
fill: #8E8CE1;
|
||||
stroke: none;
|
||||
}
|
||||
.joint-link.joint-theme-dark .marker-arrowhead {
|
||||
fill: #5652DB;
|
||||
}
|
||||
.joint-link.joint-theme-dark .marker-arrowhead:hover {
|
||||
fill: #8E8CE1;
|
||||
stroke: none;
|
||||
}
|
||||
/* <circle> element used to remove a vertex */
|
||||
.joint-link.joint-theme-dark .marker-vertex-remove-area {
|
||||
fill: green;
|
||||
stroke: darkgreen;
|
||||
}
|
||||
.joint-link.joint-theme-dark .marker-vertex-remove {
|
||||
fill: white;
|
||||
stroke: white;
|
||||
}
|
||||
/* Links */
|
||||
/* Paper */
|
||||
.joint-paper.joint-theme-default {
|
||||
background-color: #FFFFFF;
|
||||
}
|
||||
/* Paper */
|
||||
|
||||
/* Links */
|
||||
.joint-link.joint-theme-default .connection-wrap {
|
||||
stroke: #000000;
|
||||
stroke-width: 15;
|
||||
stroke-linecap: round;
|
||||
stroke-linejoin: round;
|
||||
opacity: 0;
|
||||
cursor: move;
|
||||
}
|
||||
.joint-link.joint-theme-default .connection-wrap:hover {
|
||||
opacity: .4;
|
||||
stroke-opacity: .4;
|
||||
}
|
||||
.joint-link.joint-theme-default .connection {
|
||||
stroke-linejoin: round;
|
||||
}
|
||||
.joint-link.joint-theme-default .link-tools .tool-remove circle {
|
||||
fill: #FF0000;
|
||||
}
|
||||
.joint-link.joint-theme-default .link-tools .tool-remove path {
|
||||
fill: #FFFFFF;
|
||||
}
|
||||
|
||||
/* <circle> element inside .marker-vertex-group <g> element */
|
||||
.joint-link.joint-theme-default .marker-vertex {
|
||||
fill: #1ABC9C;
|
||||
}
|
||||
.joint-link.joint-theme-default .marker-vertex:hover {
|
||||
fill: #34495E;
|
||||
stroke: none;
|
||||
}
|
||||
|
||||
.joint-link.joint-theme-default .marker-arrowhead {
|
||||
fill: #1ABC9C;
|
||||
}
|
||||
.joint-link.joint-theme-default .marker-arrowhead:hover {
|
||||
fill: #F39C12;
|
||||
stroke: none;
|
||||
}
|
||||
|
||||
/* <circle> element used to remove a vertex */
|
||||
.joint-link.joint-theme-default .marker-vertex-remove {
|
||||
fill: #FFFFFF;
|
||||
}
|
||||
/* Links */
|
||||
|
||||
@font-face {
|
||||
font-family: 'lato-light';
|
||||
src: url(data:application/font-woff;charset=utf-8;base64,d09GRgABAAAAAHhgABMAAAAA3HwAAQAAAAAAAAAAAAAAAAAAAAAAAAAAAABGRlRNAAABqAAAABwAAAAcaLe9KEdERUYAAAHEAAAAHgAAACABFgAER1BPUwAAAeQAAAo1AAARwtKX0BJHU1VCAAAMHAAAACwAAAAwuP+4/k9TLzIAAAxIAAAAWQAAAGDX0nerY21hcAAADKQAAAGJAAAB4hcJdWJjdnQgAAAOMAAAADoAAAA6DvoItmZwZ20AAA5sAAABsQAAAmVTtC+nZ2FzcAAAECAAAAAIAAAACAAAABBnbHlmAAAQKAAAXMoAAK3EsE/AsWhlYWQAAGz0AAAAMgAAADYOCCHIaGhlYQAAbSgAAAAgAAAAJA9hCBNobXR4AABtSAAAAkEAAAOkn9Zh6WxvY2EAAG+MAAAByAAAAdTkvg14bWF4cAAAcVQAAAAgAAAAIAIGAetuYW1lAABxdAAABDAAAAxGYqFiYXBvc3QAAHWkAAAB7wAAAtpTFoINcHJlcAAAd5QAAADBAAABOUVnCXh3ZWJmAAB4WAAAAAYAAAAGuclXKQAAAAEAAAAAzD2izwAAAADJKrAQAAAAANNPakh42mNgZGBg4ANiCQYQYGJgBMIXQMwC5jEAAA5CARsAAHjafddrjFTlHcfxP+KCAl1XbKLhRWnqUmpp1Yba4GXV1ktXK21dby0erZumiWmFZLuNMaQQElgWJ00mtNxRQMXLcntz3GUIjsYcNiEmE5PNhoFl2GQgzKvJvOnLJk4/M4DiGzL57v/szJzn/P6/53ee80zMiIg5cXc8GNc9+vhTz0bna/3/WBUL4nrvR7MZrc+vPp7xt7/8fVXc0Dpqc31c1643xIyu/e1vvhpTMTWjHlPX/XXmbXi3o7tjbNY/O7pnvTv7ldm7bvh9R/eNKzq658Sc385+Zea7c9+avWvens7bZtQ7xjq/uOl6r+fVLZ1fXP5vuqur6983benqao0587aO7tbf9tHYN6/W+N+8XKf9mreno7s1zpVXe7z26+rjS695e2be1hq3pfvS39b/7XcejTnNvuhqdsTNzZ6Yr97i/+7ml7FIXawuwVLcg/tiWdyPHi4+rD7W/Dx+3RyJXjyBZ/AcVhlrNdZivXE2YAgbMYxNeBM5Y27FNmzHDuzEbuxzjfeMvx/v4wN8iI8wggOucxCHcBhHkGIUYziKAo7hODJjnlDHjXuKrjKm9HsO046rOI+Fui/rvKzzss7LOi/rsqbLmi5ruqzpskZ9mfoy9WXqy9SXqS9TX6auRl2Nuhp1Nepq1NWoq1FXo65GXY26GnU16srU1WJJzKJnLjrbczJIzTg149SMUzNOzXgsa/bGfbi/mY+e5uvxsOMVzXXxYrMUL6krnbvKuYPqanWNulbNOXcrtmE7dmAndmOfcTJ1XD3lu2Wcdt4ZnEWl7dMgnwb5NBgX/f8DanskqEJxD8U9kjQoRYNSVJGgymWlWyitxQPNk9Qm8WBzkuItVPZQ2ENdKyUVKalISUVKKlJSkZKKlFQoS6hKqOmhpjVrgxT1UNRj9lpKeuKVmCWPc5p7Y67aia7mI/zbQs0j1OyN7zVHYyFul97u5gR1e/k6wdeJuLP5Gm8neDsh05vN9mazvdlsb44nm9X4TfONeNq5fXjGe8+qz6nPqy80t8cfqPyj4xXN6Ugcv6S+3CzESjpW0TCovuHz1Y7XOF6rrnf9DRjCRgxjE95Ejo6t2Ibt2IGd2I33XHc/3scH+BAfYQQHcBCHcBhHkOJj1x5Vx3AUBRzDcXzisyI+xWfIXOOE90/RWMZpes9gio9nVXPK9UdkYYssbJGFLXHRe92y8KUZqMrCl/Edee5UuyRqPm7x/iIsaw7Jw4QsVGXhiCyksjARv/T9fqx0ziDWYL3vbMAQNmIYm/Am9jl3HKd97wymXOOsWsE5xxfVn1HUR00fJX2yUInbvdvt7MVYgju9lqr3tJXl4l5n3sf/+5sZdQOU7TWnBfNpLo2xyhiD6mp1jbpWzTl3K7ZhO3ZgJ3bjLeO9jT3Y277HBvhbpXyAvxX+VnTQp4M+6vuo7+Nrha8VvlZ00Rc3Ut7vyv2u2u+K/c7sd2a/b/b7Zr9v9sddnM9xu5fbvdzOyXsm75m8L+R8TsbvkOtUrlO5TuU5k+dMnlN5zuQ5ledMjjNZzbif436O+znu57if436O+zk5S+UslbNUzlI5S+UslbNMzlI5S+UslbNUzlI5S+Usk7NMzjI5y2QsNWu9ZqvX/TqHO11Wr/m4xfEirMcGDGEjhrEJb2LK987hp9w5+a05vTKfv25e0OsFvV5wD0/o84IeL7hXC+Z03Fo5bl7HOXuSsyc5e/Kac3nAuQdxCIdxBClGMYajKOAYjqM1zyfUU8YtYxpVnMevYtZXEzEXneiKe3SxMOart+upW64XYwmW4h4sa74gmX2S+bpkLpPMPh1O63Bah9O6m9bdtM7e0dkRnb0TK429yriD6mp1jbpWzfl8K7ZhO3ZgJ3Zjn7EPGOcgDuEwjiDFKMZwFAUcw3Fkzjuhjjv3lPHLOO1aZzClp7NqBeccT/usivO46L07zPywmb/VzN9q5ofN/LCs9lmHSzqs6rCqw6oOqzqsSsWwVAxLxbBUDEvFsFQMS8WwtbFkbSxZG0vWxpK1sWRtLFkbS7qq6qqqq6quqrqq6qqqq6quqrqq6qqqq6quWnNXlbJbpYwuczJpTibNyaQ5mTQnk+ZkwopR5eckPyf5OcnPSX5O8nOSn5NWgKoVoGoFqFoBqryajGe+vldv/tb9mrhfE1caat+vi9UluLO51BWHXHEoHvvqfzzp5kk3T7o9l+51Hyfu44Q/3e7jhEfd7uPEc+kh93IiEb0SMeC59Gep6PVcGpKKXvd4IhW9EtF7zXs95/tbsQ3bsQM7sRvv0bMf7+MDfIiPMIIDdBzEIRzGEaT42HVH1TEcRQHHcByf+KyIT/EZMtc44f1TNJZxZb2YRhXn8fDlJ3/xqid/nrM1zuY5W7QC/pCjRU7ul6pRDtY5WOdgnYO7OVfnWp1jZy4/sWvtJ/Zq9dLTusahIoeKHCpyqMihIoeKHCpK3ajUjUrdqNSNSt2o1I1K3SgX6lyoc6HOhToX6lyoc6DOgToH6hyoc6DOgbpu67qt6bZ21ZM3f9WTN6/7mu5ruq+1n7wvc2ABBwY4sIADCzjwOgcSDrzOgQHZystWvu1Ea3VZ5L0rK8ylfF1aZS7tfRLuJNxJuPOCfOXlK8+lRL7ynErkK8+tf8lXXr52ydeIfK2Tr10cXMDBhIMLZCzPxYSLC7iYcHGAiwNcHODiABcHuDjAxYFrrkrX3vMkHE44nHA44XDC4UTO8lxOuJxwOeFywuWEy4mc5eUsL2d5OctfXsESziect9Ok9wym+HdWreCc42mfVXEeF733Ey6nl10tcLTA0QI3C9wscLLEyRInS9wrca7EtTLHJjjVWptT7qScSXVf0H1B9wXdF3Rf0H1B9wUdlnRY0mFJhyUdlnRY0l1JdyXdlXRX0l1JdyXdFHRT0k2qm5TqlOqU6lQ6ZrXuFHRihQS92PwvNTX7m6K9TdG+pmhPUrQnKdqTFO1JivYhxfiuM0ecOWJvV3P2iOfRZs+jumfRZvu3mtEaUpAZrWEv1xpxxIgjRhwx4ogRR4w4YsQRI47ETXK7XGaXU7W8ndlWXlc6HsQanMYZXJqH5eZheXseLqrz+ZvxN+NvaxfT2sFkvMp4lfEq41XGq4xXrV1JxquMVxmvMl5lvGrtQrKY59rrXHtd+5lzrWfIlO+cw/fdbYWvz7rF8aL2fDfoadDToKdBT0PiCxJfkPiCxBckviDxBYlvzWuD1gatDVobtDZobdDaoLVBa4PWBq0NWhu0Nr5WcP3Xu6UrO6EZ8So/5+qm047iZv54asWiWBw/ih/b594Vd8fS+Lln8C+sGff6LX9/POC30IPxkDX0sXg8nogn46n4XTwdfZ5Rz8bzsSJejCReij+ZlVUxYF5Wm5e1sT42xFBsDE/eyMV/Ymtsi+2xI3bGW/F27Im9fr2/E+/F/ng/PogP46PwWz0OxeE4Eh/HaIzF0SjEsTgen8cJv8hPRdlcn7FbOGuOz8V0VON8XPw/fppwigAAAHjaY2BkYGDgYtBh0GNgcnHzCWHgy0ksyWOQYGABijP8/w8kECwgAACeygdreNpjYGYRZtRhYGVgYZ3FaszAwCgPoZkvMrgxMXAwM/EzMzExsTAzMTcwMKx3YEjwYoCCksoAHyDF+5uJrfBfIQMDuwbjUgWgASA55t+sK4GUAgMTABvCDMIAAAB42mNgYGBmgGAZBkYGELgD5DGC+SwMB4C0DoMCkMUDZPEy1DH8ZwxmrGA6xnRHgUtBREFKQU5BSUFNQV/BSiFeYY2ikuqf30z//4PN4QXqW8AYBFXNoCCgIKEgA1VtCVfNCFTN/P/r/yf/D/8v/O/7j+Hv6wcnHhx+cODB/gd7Hux8sPHBigctDyzuH771ivUZ1IVEA0Y2iNfAbCYgwYSugIGBhZWNnYOTi5uHl49fQFBIWERUTFxCUkpaRlZOXkFRSVlFVU1dQ1NLW0dXT9/A0MjYxNTM3MLSytrG1s7ewdHJ2cXVzd3D08vbx9fPPyAwKDgkNCw8IjIqOiY2Lj4hMYmhvaOrZ8rM+UsWL12+bMWqNavXrtuwfuOmLdu2bt+5Y++effsZilPTsu5VLirMeVqezdA5m6GEgSGjAuy63FqGlbubUvJB7Ly6+8nNbTMOH7l2/fadGzd3MRw6yvDk4aPnLxiqbt1laO1t6eueMHFS/7TpDFPnzpvDcOx4EVBTNRADAEXYio8AAAAAAAP7BakAVwA+AEMASQBNAFEAUwBbAF8AtABhAEgATQBVAFsAYQBoAGwAtQBPAEAAZQBZADsAYwURAAB42l1Ru05bQRDdDQLine truncated
|
||||
font-weight: normal;
|
||||
font-style: normal;
|
||||
}
|
||||
|
||||
/* Links */
|
||||
.joint-link.joint-theme-material .connection-wrap {
|
||||
stroke: #000000;
|
||||
stroke-width: 15;
|
||||
stroke-linecap: round;
|
||||
stroke-linejoin: round;
|
||||
opacity: 0;
|
||||
cursor: move;
|
||||
}
|
||||
.joint-link.joint-theme-material .connection-wrap:hover {
|
||||
opacity: .4;
|
||||
stroke-opacity: .4;
|
||||
}
|
||||
.joint-link.joint-theme-material .connection {
|
||||
stroke-linejoin: round;
|
||||
}
|
||||
.joint-link.joint-theme-material .link-tools .tool-remove circle {
|
||||
fill: #C64242;
|
||||
}
|
||||
.joint-link.joint-theme-material .link-tools .tool-remove path {
|
||||
fill: #FFFFFF;
|
||||
}
|
||||
|
||||
/* <circle> element inside .marker-vertex-group <g> element */
|
||||
.joint-link.joint-theme-material .marker-vertex {
|
||||
fill: #d0d8e8;
|
||||
}
|
||||
.joint-link.joint-theme-material .marker-vertex:hover {
|
||||
fill: #5fa9ee;
|
||||
stroke: none;
|
||||
}
|
||||
|
||||
.joint-link.joint-theme-material .marker-arrowhead {
|
||||
fill: #d0d8e8;
|
||||
}
|
||||
.joint-link.joint-theme-material .marker-arrowhead:hover {
|
||||
fill: #5fa9ee;
|
||||
stroke: none;
|
||||
}
|
||||
|
||||
/* <circle> element used to remove a vertex */
|
||||
.joint-link.joint-theme-material .marker-vertex-remove-area {
|
||||
fill: #5fa9ee;
|
||||
}
|
||||
.joint-link.joint-theme-material .marker-vertex-remove {
|
||||
fill: white;
|
||||
}
|
||||
/* Links */
|
||||
|
||||
/* Links */
|
||||
.joint-link.joint-theme-modern .connection-wrap {
|
||||
stroke: #000000;
|
||||
stroke-width: 15;
|
||||
stroke-linecap: round;
|
||||
stroke-linejoin: round;
|
||||
opacity: 0;
|
||||
cursor: move;
|
||||
}
|
||||
.joint-link.joint-theme-modern .connection-wrap:hover {
|
||||
opacity: .4;
|
||||
stroke-opacity: .4;
|
||||
}
|
||||
.joint-link.joint-theme-modern .connection {
|
||||
stroke-linejoin: round;
|
||||
}
|
||||
.joint-link.joint-theme-modern .link-tools .tool-remove circle {
|
||||
fill: #FF0000;
|
||||
}
|
||||
.joint-link.joint-theme-modern .link-tools .tool-remove path {
|
||||
fill: #FFFFFF;
|
||||
}
|
||||
|
||||
/* <circle> element inside .marker-vertex-group <g> element */
|
||||
.joint-link.joint-theme-modern .marker-vertex {
|
||||
fill: #1ABC9C;
|
||||
}
|
||||
.joint-link.joint-theme-modern .marker-vertex:hover {
|
||||
fill: #34495E;
|
||||
stroke: none;
|
||||
}
|
||||
|
||||
.joint-link.joint-theme-modern .marker-arrowhead {
|
||||
fill: #1ABC9C;
|
||||
}
|
||||
.joint-link.joint-theme-modern .marker-arrowhead:hover {
|
||||
fill: #F39C12;
|
||||
stroke: none;
|
||||
}
|
||||
|
||||
/* <circle> element used to remove a vertex */
|
||||
.joint-link.joint-theme-modern .marker-vertex-remove {
|
||||
fill: white;
|
||||
}
|
||||
/* Links */
|
||||
+1920
File diff suppressed because it is too large.
Load diff
@@ -0,0 +1,204 @@
|
||||
|
||||
var avsdev = {
|
||||
pivot: {
|
||||
dataFile: null,
|
||||
rowKey: 25,
|
||||
colKey: 400,
|
||||
active: false
|
||||
},
|
||||
geoView: {
|
||||
active: false,
|
||||
firstRun: true
|
||||
},
|
||||
cc: {
|
||||
"DZA":"DZA - Algeria","AGO":"AGO - Angola","BEN":"BEN - Benin","BWA":"BWA - Botswana","BFA":"BFA - Burkina Faso","BDI":"BDI - Burundi","CMR":"CMR - Cameroon","CPV":"CPV - Cape Verde","CAF":"CAF - Central African Republic","TCD":"TCD - Chad","COM":"COM - Comoros","COD":"COD - Democratic Republic of the Congo","DJI":"DJI - Djibouti","EGY":"EGY - Egypt","GNQ":"GNQ - Equatorial Guinea","ERI":"ERI - Eritrea","ETH":"ETH - Ethiopia","GAB":"GAB - Gabon","GMB":"GMB - Gambia","GHA":"GHA - Ghana","GIN":"GIN - Guinea","GNB":"GNB - Guinea-Bissau","CIV":"CIV - Côte d'Ivoire","KEN":"KEN - Kenya","LSO":"LSO - Lesotho","LBR":"LBR - Liberia","LBY":"LBY - Libya","MDG":"MDG - Madagascar","MWI":"MWI - Malawi","MLI":"MLI - Mali","MRT":"MRT - Mauritania","MUS":"MUS - Mauritius","MAR":"MAR - Morocco","MOZ":"MOZ - Mozambique","NAM":"NAM - Namibia","NER":"NER - Niger","NGA":"NGA - Nigeria","COG":"COG - Republic of the Congo","RWA":"RWA - Rwanda","SHN":"SHN - Saint Helena","STP":"STP - Sao Tome and Principe","SEN":"SEN - Senegal","SYC":"SYC - Seychelles","SLE":"SLE - Sierra Leone","SOM":"SOM - Somalia","ZAF":"ZAF - South Africa","SSD":"SSD - South Sudan","SDN":"SDN - Sudan","SWZ":"SWZ - Swaziland","TZA":"TZA - Tanzania","TGO":"TGO - Togo","TUN":"TUN - Tunisia","UGA":"UGA - Uganda","ESH":"ESH - Western Sahara","ZMB":"ZMB - Zambia","ZWE":"ZWE - Zimbabwe"
|
||||
}
|
||||
};
|
||||
|
||||
function debounce(func, wait, immediate) {
|
||||
var timeout;
|
||||
return function() {
|
||||
var context = this, args = arguments;
|
||||
clearTimeout(timeout);
|
||||
timeout = setTimeout(function() {
|
||||
timeout = null;
|
||||
if (!immediate) func.apply(context, args);
|
||||
}, wait);
|
||||
if (immediate && !timeout) func.apply(context, args);
|
||||
};
|
||||
}
|
||||
|
||||
|
||||
$(document).on('shiny:inputchanged', function(event){
|
||||
|
||||
if (event.name == 'selectView') {
|
||||
avsdev.pivot.active = false;
|
||||
avsdev.geoView.active = false;
|
||||
|
||||
if (event.value == "Geo Image") {
|
||||
avsdev.geoView.active = true;
|
||||
if (avsdev.geoView.firstRun) {
|
||||
zoomGeoView();
|
||||
avsdev.geoView.firstRun = false;
|
||||
}
|
||||
}
|
||||
if (event.value == "Pivot Table") {
|
||||
avsdev.pivot.active = true;
|
||||
drawPivot();
|
||||
}
|
||||
}
|
||||
|
||||
if (event.name == '.clientdata_output_geoView-mapImage_hidden') {
|
||||
avsdev.geoView.active = !event.value;
|
||||
if (avsdev.geoView.firstRun) {
|
||||
zoomGeoView();
|
||||
avsdev.geoView.firstRun = false;
|
||||
}
|
||||
}
|
||||
});
|
||||
|
||||
|
||||
|
||||
// GEO
|
||||
|
||||
|
||||
_zoomGeoView = function(){
|
||||
if (avsdev.geoView.active === false) {
|
||||
return;
|
||||
}
|
||||
|
||||
var img = $($("#geoView-mapImage").children("img")[0]);
|
||||
|
||||
if (img.hasClass("zoomed")) {
|
||||
|
||||
if (document.querySelector('#geoView-mapImage img')) {
|
||||
document.querySelector('#geoView-mapImage img').dispatchEvent(new CustomEvent('wheelzoom.destroy'));
|
||||
img.removeClass("zoomed");
|
||||
}
|
||||
}
|
||||
|
||||
if (!img.hasClass("zoomed")) {
|
||||
wheelzoom(img);
|
||||
img.addClass("zoomed");
|
||||
}
|
||||
};
|
||||
zoomGeoView = debounce(function(){ _zoomGeoView() }, 500);
|
||||
|
||||
/*
|
||||
$(document).on('shiny:sessioninitialized', function(event){
|
||||
console.log("shiny:sessioninitialized")
|
||||
zoomGeoView()
|
||||
});
|
||||
*/
|
||||
|
||||
$(document).on('shiny:value', function(event){
|
||||
if (event.name == 'geoView-mapImage') {
|
||||
zoomGeoView();
|
||||
}
|
||||
});
|
||||
|
||||
|
||||
// PIVOT
|
||||
|
||||
_drawPivot = function() {
|
||||
if (avsdev.pivot.active === false) {
|
||||
return;
|
||||
}
|
||||
|
||||
$.getJSON(avsdev.pivot.dataFile, function(data) {
|
||||
data = $(data).each(function(id, v){
|
||||
v.Country = avsdev.cc[v.Country];
|
||||
});
|
||||
data = $.makeArray(data);
|
||||
|
||||
var renderers = $.extend($.pivotUtilities.renderers, $.pivotUtilities.plotly_renderers);
|
||||
renderers = $.extend(renderers, $.pivotUtilities.avsdev_renderers);
|
||||
|
||||
$("#pivot-pivotRender").pivotUI(data, {
|
||||
rows: ["Grid Dist."],
|
||||
cols: ["Pop Density"],
|
||||
aggregatorName: "Sum",
|
||||
vals: ["Population"],
|
||||
renderers: renderers,
|
||||
rendererName: "Coloured Pivot Table",
|
||||
hiddenFromDragDrop: ["Population"],
|
||||
hiddenFromAggregators: ["Grid Dist.", "Country", "Pop Density"],
|
||||
onRefresh: function(config) {
|
||||
var config_copy = JSON.parse(JSON.stringify(config));
|
||||
//delete some values which are functions
|
||||
delete config_copy.aggregators;
|
||||
delete config_copy.renderers;
|
||||
//delete some bulky default values
|
||||
delete config_copy.rendererOptions;
|
||||
delete config_copy.localeStrings;
|
||||
//console.log(JSON.stringify(config_copy, undefined, 2));
|
||||
|
||||
var grid = $("td[data-rowkey]").filter(function() {
|
||||
return $(this).data("rowkey") <= avsdev.pivot.rowKey;
|
||||
});
|
||||
var solar = $("td[data-rowkey]").filter(function() {
|
||||
return $(this).data("rowkey") > avsdev.pivot.rowKey;
|
||||
}).filter(function() {
|
||||
return $(this).data("colkey") <= avsdev.pivot.colKey;
|
||||
});
|
||||
var target = $("td[data-rowkey]").filter(function() {
|
||||
return $(this).data("rowkey") > avsdev.pivot.rowKey;
|
||||
}).filter(function() {
|
||||
return $(this).data("colkey") > avsdev.pivot.colKey;
|
||||
});
|
||||
|
||||
grid.addClass("power-grid");
|
||||
solar.addClass("power-solar");
|
||||
target.addClass("power-target");
|
||||
|
||||
var gridVal = grid.map(function() {
|
||||
return $(this).data("value");
|
||||
}).get().reduce(function(a, b) { return a + b; }, 0);
|
||||
|
||||
var solarVal = solar.map(function() {
|
||||
return $(this).data("value");
|
||||
}).get().reduce(function(a, b) { return a + b; }, 0);
|
||||
|
||||
var miniVal = target.map(function() {
|
||||
return $(this).data("value");
|
||||
}).get().reduce(function(a, b) { return a + b; }, 0);
|
||||
|
||||
var totalVal = gridVal + solarVal + miniVal;
|
||||
var offGrid = parseInt($($("#summary-summaryTable table td")[6]).text())
|
||||
|
||||
$($("#summary-summaryTable table td")[1]).text(Math.round(totalVal - offGrid).toLocaleString('en'));
|
||||
$($("#summary-summaryTable table td")[2]).text(Math.round(offGrid - solarVal - miniVal).toLocaleString('en'));
|
||||
$($("#summary-summaryTable table td")[3]).text(Math.round(solarVal).toLocaleString('en'));
|
||||
$($("#summary-summaryTable table td")[4]).text(Math.round(miniVal).toLocaleString('en'));
|
||||
$($("#summary-summaryTable table td")[5]).text(Math.round(totalVal).toLocaleString('en'));
|
||||
}
|
||||
});
|
||||
});
|
||||
|
||||
//console.log($("td").find(`[data-colKey > 500]`))
|
||||
//$("#loading-pivot img").toggleClass("collapse");
|
||||
//$("#pivot").toggleClass("collapse");
|
||||
};
|
||||
drawPivot = debounce(function(){ _drawPivot() }, 750);
|
||||
|
||||
Shiny.addCustomMessageHandler("render-pivot",
|
||||
function(message) {
|
||||
avsdev.pivot.dataFile = message.countryTotPath[0] + ".json";
|
||||
drawPivot();
|
||||
}
|
||||
);
|
||||
|
||||
|
||||
$(document).on('shiny:inputchanged', function(event){
|
||||
if (event.name == 'control-selectCountry') {
|
||||
drawPivot();
|
||||
} else if (event.name == 'control-selectGrid') {
|
||||
avsdev.pivot.rowKey = event.value;
|
||||
drawPivot();
|
||||
} else if (event.name == 'control-selectPopDensity') {
|
||||
avsdev.pivot.colKey = event.value;
|
||||
drawPivot();
|
||||
} else if (event.name == 'control-selectData') {
|
||||
drawPivot();
|
||||
}
|
||||
});
|
||||
@@ -0,0 +1,58 @@
|
||||
var laydown = {
|
||||
diagram: {
|
||||
dataFile: null
|
||||
}
|
||||
}
|
||||
|
||||
var graph = new joint.dia.Graph;
|
||||
|
||||
var paper = new joint.dia.Paper({
|
||||
el: document.getElementById('myholder'),
|
||||
model: graph,
|
||||
width: 600,
|
||||
height: 100,
|
||||
gridSize: 1
|
||||
});
|
||||
|
||||
var rect = new joint.shapes.standard.Rectangle();
|
||||
var rect2 = rect.clone();
|
||||
var link = new joint.shapes.standard.Link();
|
||||
|
||||
drawDiagram = function() {
|
||||
rect.position(100, 30);
|
||||
rect.resize(100, 40);
|
||||
rect.attr({
|
||||
body: {
|
||||
fill: 'blue'
|
||||
},
|
||||
label: {
|
||||
text: 'Hello',
|
||||
fill: 'white'
|
||||
}
|
||||
});
|
||||
rect.addTo(graph);
|
||||
|
||||
|
||||
rect2.translate(300, 0);
|
||||
rect2.attr('label/text', 'World!');
|
||||
rect2.addTo(graph);
|
||||
|
||||
|
||||
link.source(rect);
|
||||
link.target(rect2);
|
||||
link.addTo(graph);
|
||||
}
|
||||
|
||||
|
||||
|
||||
Shiny.addCustomMessageHandler("render-pivot",
|
||||
function(message) {
|
||||
laydown.diagram.dataFile = message.laydown + ".json";
|
||||
drawDiagram();
|
||||
}
|
||||
);
|
||||
|
||||
|
||||
$(document).on('shiny:inputchanged', function(event){
|
||||
//TO BE INTEGRATED
|
||||
});
|
||||
+124
@@ -0,0 +1,124 @@
|
||||
var dataFile = null;
|
||||
|
||||
addPort = function() {
|
||||
|
||||
}
|
||||
|
||||
drawDiagram = function() {
|
||||
var graph = new joint.dia.Graph();
|
||||
|
||||
var paper = new joint.dia.Paper({
|
||||
el: document.getElementById('laydown'),
|
||||
model: graph,
|
||||
width: 1600,
|
||||
height: 1000,
|
||||
gridSize: 1
|
||||
});
|
||||
|
||||
|
||||
//Declare an array of rectangles - assign icon, name,
|
||||
//for each asset in datafile.assets add a rectangle
|
||||
var row=0;
|
||||
var col=0;
|
||||
var space=" ";
|
||||
var port = {
|
||||
// id: 'abc', // generated if `id` value is not present
|
||||
group: 'a',
|
||||
args: {}, // extra arguments for the port layout function, see `layout.Port` section
|
||||
label: {
|
||||
position: {
|
||||
name: 'right',
|
||||
args: { y: 6 } // extra arguments for the label layout function, see `layout.PortLabel` section
|
||||
},
|
||||
markup: '<text class="label-text" fill="blue"/>'
|
||||
},
|
||||
attrs: { text: { text: 'port1' } },
|
||||
//markup: '<rect width="16" height="16" x="-8" strokegit ="red" fill="gray"/>'
|
||||
};
|
||||
|
||||
var assetRects = [];
|
||||
|
||||
dataFile.assets.id.forEach(function(n) {
|
||||
var rect = new joint.shapes.standard.Rectangle({
|
||||
position: {x: (160*col+120), y: (240*row +120) },
|
||||
size: {width: 120, height: 80},
|
||||
ports: {
|
||||
groups: {
|
||||
'a': { position: 'top'},
|
||||
'b': { position: 'bottom'}
|
||||
},
|
||||
items: [port]
|
||||
}
|
||||
});
|
||||
|
||||
name = dataFile.assets.stencil[n-1].concat(space, dataFile.assets.testRole[n-1]);
|
||||
//rect.position(240*row, 160*col);
|
||||
//rect.resize(120, 80);
|
||||
rect.attr({
|
||||
body: {
|
||||
fill: 'blue'
|
||||
},
|
||||
label: {
|
||||
text: name,
|
||||
fill: 'white'
|
||||
}
|
||||
});
|
||||
assetRects.push(rect);
|
||||
rect.addTo(graph);
|
||||
col++;
|
||||
if (col==5) {
|
||||
col=0;
|
||||
row++;
|
||||
}
|
||||
});
|
||||
|
||||
var linkArray = [];
|
||||
|
||||
console.log(dataFile.logConns);
|
||||
thisObj="Links ";
|
||||
//Declare an array of links - assign names
|
||||
dataFile.logConns.id.forEach(function(lc) {
|
||||
//for (var id in dataFile.logConns) {
|
||||
fromAsset = dataFile.logConns.fromId[lc-1];
|
||||
toAsset= dataFile.logConns.toId[lc-1];
|
||||
//console.log(thisObj.concat(lc, " ; ", fromAsset, " : ",toAsset, " : ", fromAsset, " ; ", assetRects[toAsset]));
|
||||
var link = new joint.shapes.standard.Link();
|
||||
link.source(assetRects[fromAsset-1]);
|
||||
link.target(assetRects[toAsset-1]);
|
||||
link.router('manhattan');
|
||||
link.connector('jumpover');
|
||||
linkArray.push(link);
|
||||
link.addTo(graph);
|
||||
});
|
||||
|
||||
paper.options.defaultRouter = {
|
||||
name: 'manhattan',
|
||||
args: {
|
||||
elementPadding: 10
|
||||
}
|
||||
};
|
||||
|
||||
paper.on('cell:pointerclick', function(cellView) {
|
||||
cellView.highlight();
|
||||
console.log(cellView);
|
||||
});
|
||||
|
||||
};
|
||||
|
||||
Shiny.addCustomMessageHandler("render-laydown",
|
||||
function(message){
|
||||
try {
|
||||
console.log("Draw diagram");
|
||||
dataFile = message;
|
||||
drawDiagram();
|
||||
} catch(e) {
|
||||
console.log("error object:");
|
||||
console.log(e);
|
||||
}
|
||||
}
|
||||
);
|
||||
|
||||
|
||||
$(document).on('shiny:inputchanged', function(event){
|
||||
//TO BE INTEGRATED
|
||||
});
|
||||
@@ -0,0 +1,61 @@
|
||||
/**
|
||||
* Retrieve the coordinates of the given event relative to the center
|
||||
* of the widget.
|
||||
*
|
||||
* @param event
|
||||
* A mouse-related DOM event.
|
||||
* @param reference
|
||||
* A DOM element whose position we want to transform the mouse coordinates to.
|
||||
* @return
|
||||
* A hash containing keys 'x' and 'y'.
|
||||
*/
|
||||
function getRelativeCoordinates(event, reference) {
|
||||
var x, y;
|
||||
event = event || window.event;
|
||||
var el = event.target || event.srcElement;
|
||||
console.log(el);
|
||||
if (!window.opera && typeof event.offsetX != 'undefined') {
|
||||
// Use offset coordinates and find common offsetParent
|
||||
var pos = { x: event.offsetX, y: event.offsetY };
|
||||
|
||||
// Send the coordinates upwards through the offsetParent chain.
|
||||
var e = el;
|
||||
while (e) {
|
||||
e.mouseX = pos.x;
|
||||
e.mouseY = pos.y;
|
||||
pos.x += e.offsetLeft;
|
||||
pos.y += e.offsetTop;
|
||||
e = e.offsetParent;
|
||||
}
|
||||
|
||||
// Look for the coordinates starting from the reference element.
|
||||
var ref = reference;
|
||||
var offset = { x: 0, y: 0 };
|
||||
while (ref) {
|
||||
if (typeof ref.mouseX != 'undefined') {
|
||||
x = ref.mouseX - offset.x;
|
||||
y = ref.mouseY - offset.y;
|
||||
break;
|
||||
}
|
||||
offset.x += ref.offsetLeft;
|
||||
offset.y += ref.offsetTop;
|
||||
ref = ref.offsetParent;
|
||||
}
|
||||
|
||||
// Reset stored coordinates
|
||||
ref = el;
|
||||
while (ref) {
|
||||
ref.mouseX = undefined;
|
||||
reference.mouseY = undefined;
|
||||
ref = ref.offsetParent;
|
||||
}
|
||||
}
|
||||
else {
|
||||
// Use absolute coordinates
|
||||
var pos = getAbsolutePosition(reference);
|
||||
x = event.pageX - pos.x;
|
||||
y = event.pageY - pos.y;
|
||||
}
|
||||
// Subtract distance to middle
|
||||
return { x: x, y: y };
|
||||
}
|
||||
+25919
File diff suppressed because it is too large.
Load diff
Vendored
+13
@@ -0,0 +1,13 @@
|
||||
/*! jQuery UI - v1.12.1 - 2016-09-14
|
||||
* http://jqueryui.com
|
||||
* Includes: widget.js, position.js, data.js, disable-selection.js, effect.js, effects/effect-blind.js, effects/effect-bounce.js, effects/effect-clip.js, effects/effect-drop.js, effects/effect-explode.js, effects/effect-fade.js, effects/effect-fold.js, effects/effect-highlight.js, effects/effect-puff.js, effects/effect-pulsate.js, effects/effect-scale.js, effects/effect-shake.js, effects/effect-size.js, effects/effect-slide.js, effects/effect-transfer.js, focusable.js, form-reset-mixin.js, jquery-1-7.js, keycode.js, labels.js, scroll-parent.js, tabbable.js, unique-id.js, widgets/accordion.js, widgets/autocomplete.js, widgets/button.js, widgets/checkboxradio.js, widgets/controlgroup.js, widgets/datepicker.js, widgets/dialog.js, widgets/draggable.js, widgets/droppable.js, widgets/menu.js, widgets/mouse.js, widgets/progressbar.js, widgets/resizable.js, widgets/selectable.js, widgets/selectmenu.js, widgets/slider.js, widgets/sortable.js, widgets/spinner.js, widgets/tabs.js, widgets/tooltip.js
|
||||
* Copyright jQuery Foundation and other contributors; Licensed MIT */
|
||||
|
||||
(function(t){"function"==typeof define&&define.amd?define(["jquery"],t):t(jQuery)})(function(t){function e(t){for(var e=t.css("visibility");"inherit"===e;)t=t.parent(),e=t.css("visibility");return"hidden"!==e}function i(t){for(var e,i;t.length&&t[0]!==document;){if(e=t.css("position"),("absolute"===e||"relative"===e||"fixed"===e)&&(i=parseInt(t.css("zIndex"),10),!isNaN(i)&&0!==i))return i;t=t.parent()}return 0}function s(){this._curInst=null,this._keyEvent=!1,this._disabledInputs=[],this._datepickerShowing=!1,this._inDialog=!1,this._mainDivId="ui-datepicker-div",this._inlineClass="ui-datepicker-inline",this._appendClass="ui-datepicker-append",this._triggerClass="ui-datepicker-trigger",this._dialogClass="ui-datepicker-dialog",this._disableClass="ui-datepicker-disabled",this._unselectableClass="ui-datepicker-unselectable",this._currentClass="ui-datepicker-current-day",this._dayOverClass="ui-datepicker-days-cell-over",this.regional=[],this.regional[""]={closeText:"Done",prevText:"Prev",nextText:"Next",currentText:"Today",monthNames:["January","February","March","April","May","June","July","August","September","October","November","December"],monthNamesShort:["Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"],dayNames:["Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"],dayNamesShort:["Sun","Mon","Tue","Wed","Thu","Fri","Sat"],dayNamesMin:["Su","Mo","Tu","We","Th","Fr","Sa"],weekHeader:"Wk",dateFormat:"mm/dd/yy",firstDay:0,isRTL:!1,showMonthAfterYear:!1,yearSuffix:""},this._defaults={showOn:"focus",showAnim:"fadeIn",showOptions:{},defaultDate:null,appendText:"",buttonText:"...",buttonImage:"",buttonImageOnly:!1,hideIfNoPrevNext:!1,navigationAsDateFormat:!1,gotoCurrent:!1,changeMonth:!1,changeYear:!1,yearRange:"c-10:c+10",showOtherMonths:!1,selectOtherMonths:!1,showWeek:!1,calculateWeek:this.iso8601Week,shortYearCutoff:"+10",minDate:null,maxDate:null,duration:"fast",beforeShowDay:null,beforeShow:null,onSelect:null,onChangeMonthYear:null,onClose:null,numberOfMonths:1,showCurrentAtPos:0,stepMonths:1,stepBigMonths:12,altField:"",altFormat:"",constrainInput:!0,showButtonPanel:!1,autoSize:!1,disabled:!1},t.extend(this._defaults,this.regional[""]),this.regional.en=t.extend(!0,{},this.regional[""]),this.regional["en-US"]=t.extend(!0,{},this.regional.en),this.dpDiv=n(t("<div id='"+this._mainDivId+"' class='ui-datepicker ui-widget ui-widget-content ui-helper-clearfix ui-corner-all'></div>"))}function n(e){var i="button, .ui-datepicker-prev, .ui-datepicker-next, .ui-datepicker-calendar td a";return e.on("mouseout",i,function(){t(this).removeClass("ui-state-hover"),-1!==this.className.indexOf("ui-datepicker-prev")&&t(this).removeClass("ui-datepicker-prev-hover"),-1!==this.className.indexOf("ui-datepicker-next")&&t(this).removeClass("ui-datepicker-next-hover")}).on("mouseover",i,o)}function o(){t.datepicker._isDisabledDatepicker(m.inline?m.dpDiv.parent()[0]:m.input[0])||(t(this).parents(".ui-datepicker-calendar").find("a").removeClass("ui-state-hover"),t(this).addClass("ui-state-hover"),-1!==this.className.indexOf("ui-datepicker-prev")&&t(this).addClass("ui-datepicker-prev-hover"),-1!==this.className.indexOf("ui-datepicker-next")&&t(this).addClass("ui-datepicker-next-hover"))}function a(e,i){t.extend(e,i);for(var s in i)null==i[s]&&(e[s]=i[s]);return e}function r(t){return function(){var e=this.element.val();t.apply(this,arguments),this._refresh(),e!==this.element.val()&&this._trigger("change")}}t.ui=t.ui||{},t.ui.version="1.12.1";var h=0,l=Array.prototype.slice;t.cleanData=function(e){return function(i){var s,n,o;for(o=0;null!=(n=i[o]);o++)try{s=t._data(n,"events"),s&&s.remove&&t(n).triggerHandler("remove")}catch(a){}e(i)}}(t.cleanData),t.widget=function(e,i,s){var n,o,a,r={},h=e.split(".")[0];e=e.split(".")[1];var l=h+"-"+e;return s||(s=i,i=t.Widget),t.isArray(s)&&(s=t.extend.apply(null,[{}].concat(s))),t.expr[":"][l.toLowerCase()]=function(e){return!!t.data(e,l)},t[h]=t[h]||{},n=t[h][e],o=t[h][e]=function(t,e){return this._createWidget?(arguments.length&&this._createWidget(t,e),void 0):new o(t,e)},t.extend(o,n,{version:s.version,_proto:t.extend({},s),_childConstructors:[]}),a=new i,a.options=t.widget.extend({},a.options),t.each(s,function(e,s){return t.isFunction(s)?(r[e]=function(){function t(){return i.prototype[e].apply(this,arguments)}function n(t){return i.prototype[e].apply(this,t)}return function(){var e,i=this._super,o=this._superApply;return this._super=t,this._superApply=n,e=s.apply(this,arguments),this._super=i,this._superApply=o,e}}(),void 0):(r[e]=s,void 0)}),o.prototype=t.widget.extend(a,{widgetEventPrefix:n?a.widgetEventPrefix||e:e},r,{constructor:o,namespace:h,widgetName:e,widgetFullName:l}),n?(t.each(n._childConstructors,function(e,i){var s=i.prototype;t.widget(s.namespace+"."+s.widgetName,o,i._proto)}),delete n._childConstructors):i._childConstructors.push(o),t.widget.bridge(e,o),o},t.widget.extend=function(e){for(var i,s,n=l.call(arguments,1),o=0,a=n.length;a>Line truncated
|
||||
}}(t.fn.show),hide:function(t){return function(s){if(i(s))return t.apply(this,arguments);var n=e.apply(this,arguments);return n.mode="hide",this.effect.call(this,n)}}(t.fn.hide),toggle:function(t){return function(s){if(i(s)||"boolean"==typeof s)return t.apply(this,arguments);var n=e.apply(this,arguments);return n.mode="toggle",this.effect.call(this,n)}}(t.fn.toggle),cssUnit:function(e){var i=this.css(e),s=[];return t.each(["em","px","%","pt"],function(t,e){i.indexOf(e)>0&&(s=[parseFloat(i),e])}),s},cssClip:function(t){return t?this.css("clip","rect("+t.top+"px "+t.right+"px "+t.bottom+"px "+t.left+"px)"):s(this.css("clip"),this)},transfer:function(e,i){var s=t(this),n=t(e.to),o="fixed"===n.css("position"),a=t("body"),r=o?a.scrollTop():0,h=o?a.scrollLeft():0,l=n.offset(),c={top:l.top-r,left:l.left-h,height:n.innerHeight(),width:n.innerWidth()},u=s.offset(),d=t("<div class='ui-effects-transfer'></div>").appendTo("body").addClass(e.className).css({top:u.top-r,left:u.left-h,height:s.innerHeight(),width:s.innerWidth(),position:o?"fixed":"absolute"}).animate(c,e.duration,e.easing,function(){d.remove(),t.isFunction(i)&&i()})}}),t.fx.step.clip=function(e){e.clipInit||(e.start=t(e.elem).cssClip(),"string"==typeof e.end&&(e.end=s(e.end,e.elem)),e.clipInit=!0),t(e.elem).cssClip({top:e.pos*(e.end.top-e.start.top)+e.start.top,right:e.pos*(e.end.right-e.start.right)+e.start.right,bottom:e.pos*(e.end.bottom-e.start.bottom)+e.start.bottom,left:e.pos*(e.end.left-e.start.left)+e.start.left})}}(),function(){var e={};t.each(["Quad","Cubic","Quart","Quint","Expo"],function(t,i){e[i]=function(e){return Math.pow(e,t+2)}}),t.extend(e,{Sine:function(t){return 1-Math.cos(t*Math.PI/2)},Circ:function(t){return 1-Math.sqrt(1-t*t)},Elastic:function(t){return 0===t||1===t?t:-Math.pow(2,8*(t-1))*Math.sin((80*(t-1)-7.5)*Math.PI/15)},Back:function(t){return t*t*(3*t-2)},Bounce:function(t){for(var e,i=4;((e=Math.pow(2,--i))-1)/11>t;);return 1/Math.pow(4,3-i)-7.5625*Math.pow((3*e-2)/22-t,2)}}),t.each(e,function(e,i){t.easing["easeIn"+e]=i,t.easing["easeOut"+e]=function(t){return 1-i(1-t)},t.easing["easeInOut"+e]=function(t){return.5>t?i(2*t)/2:1-i(-2*t+2)/2}})}();var f=t.effects;t.effects.define("blind","hide",function(e,i){var s={up:["bottom","top"],vertical:["bottom","top"],down:["top","bottom"],left:["right","left"],horizontal:["right","left"],right:["left","right"]},n=t(this),o=e.direction||"up",a=n.cssClip(),r={clip:t.extend({},a)},h=t.effects.createPlaceholder(n);r.clip[s[o][0]]=r.clip[s[o][1]],"show"===e.mode&&(n.cssClip(r.clip),h&&h.css(t.effects.clipToBox(r)),r.clip=a),h&&h.animate(t.effects.clipToBox(r),e.duration,e.easing),n.animate(r,{queue:!1,duration:e.duration,easing:e.easing,complete:i})}),t.effects.define("bounce",function(e,i){var s,n,o,a=t(this),r=e.mode,h="hide"===r,l="show"===r,c=e.direction||"up",u=e.distance,d=e.times||5,p=2*d+(l||h?1:0),f=e.duration/p,g=e.easing,m="up"===c||"down"===c?"top":"left",_="up"===c||"left"===c,v=0,b=a.queue().length;for(t.effects.createPlaceholder(a),o=a.css(m),u||(u=a["top"===m?"outerHeight":"outerWidth"]()/3),l&&(n={opacity:1},n[m]=o,a.css("opacity",0).css(m,_?2*-u:2*u).animate(n,f,g)),h&&(u/=Math.pow(2,d-1)),n={},n[m]=o;d>v;v++)s={},s[m]=(_?"-=":"+=")+u,a.animate(s,f,g).animate(n,f,g),u=h?2*u:u/2;h&&(s={opacity:0},s[m]=(_?"-=":"+=")+u,a.animate(s,f,g)),a.queue(i),t.effects.unshift(a,b,p+1)}),t.effects.define("clip","hide",function(e,i){var s,n={},o=t(this),a=e.direction||"vertical",r="both"===a,h=r||"horizontal"===a,l=r||"vertical"===a;s=o.cssClip(),n.clip={top:l?(s.bottom-s.top)/2:s.top,right:h?(s.right-s.left)/2:s.right,bottom:l?(s.bottom-s.top)/2:s.bottom,left:h?(s.right-s.left)/2:s.left},t.effects.createPlaceholder(o),"show"===e.mode&&(o.cssClip(n.clip),n.clip=s),o.animate(n,{queue:!1,duration:e.duration,easing:e.easing,complete:i})}),t.effects.define("drop","hide",function(e,i){var s,n=t(this),o=e.mode,a="show"===o,r=e.direction||"left",h="up"===r||"down"===r?"top":"left",l="up"===r||"left"===r?"-=":"+=",c="+="===l?"-=":"+=",u={opacity:0};t.effects.createPlaceholder(n),s=e.distance||n["top"===h?"outerHeight":"outerWidth"](!0)/2,u[h]=l+s,a&&(n.css(u),u[h]=c+s,u.opacity=1),n.animate(u,{queue:!1,duration:e.duration,easing:e.easing,complete:i})}),t.effects.define("explode","hide",function(e,i){function s(){b.push(this),b.length===u*d&&n()}function n(){p.css({visibility:"visible"}),t(b).remove(),i()}var o,a,r,h,l,c,u=e.pieces?Math.round(Math.sqrt(e.pieces)):3,d=u,p=t(this),f=e.mode,g="show"===f,m=p.show().css("visibility","hidden").offset(),_=Math.ceil(p.outerWidth()/d),v=Math.ceil(p.outerHeight()/u),b=[];for(o=0;u>o;o++)for(h=m.top+o*v,c=o-(u-1)/2,a=0;d>a;a++)r=m.left+a*_,l=a-(d-1)/2,p.clone().appendTo("body").wrap("<div></div>").css({position:"absolute",visibility:"visible",left:-a*_,top:-o*v}).parent().addClass("ui-effects-explode").css({position:"absolute",overflow:"hidden",width:_,height:v,left:r+(g?l*_:0),top:h+(g?c*v:0),opacity:g?0:1}).animate({left:r+(g?0:l*_),top:h+(g?0:c*v),opacLine truncated
|
||||
this.isMultiLine=o||!a&&this._isContentEditable(this.element),this.valueMethod=this.element[o||a?"val":"text"],this.isNewMenu=!0,this._addClass("ui-autocomplete-input"),this.element.attr("autocomplete","off"),this._on(this.element,{keydown:function(n){if(this.element.prop("readOnly"))return e=!0,s=!0,i=!0,void 0;e=!1,s=!1,i=!1;var o=t.ui.keyCode;switch(n.keyCode){case o.PAGE_UP:e=!0,this._move("previousPage",n);break;case o.PAGE_DOWN:e=!0,this._move("nextPage",n);break;case o.UP:e=!0,this._keyEvent("previous",n);break;case o.DOWN:e=!0,this._keyEvent("next",n);break;case o.ENTER:this.menu.active&&(e=!0,n.preventDefault(),this.menu.select(n));break;case o.TAB:this.menu.active&&this.menu.select(n);break;case o.ESCAPE:this.menu.element.is(":visible")&&(this.isMultiLine||this._value(this.term),this.close(n),n.preventDefault());break;default:i=!0,this._searchTimeout(n)}},keypress:function(s){if(e)return e=!1,(!this.isMultiLine||this.menu.element.is(":visible"))&&s.preventDefault(),void 0;if(!i){var n=t.ui.keyCode;switch(s.keyCode){case n.PAGE_UP:this._move("previousPage",s);break;case n.PAGE_DOWN:this._move("nextPage",s);break;case n.UP:this._keyEvent("previous",s);break;case n.DOWN:this._keyEvent("next",s)}}},input:function(t){return s?(s=!1,t.preventDefault(),void 0):(this._searchTimeout(t),void 0)},focus:function(){this.selectedItem=null,this.previous=this._value()},blur:function(t){return this.cancelBlur?(delete this.cancelBlur,void 0):(clearTimeout(this.searching),this.close(t),this._change(t),void 0)}}),this._initSource(),this.menu=t("<ul>").appendTo(this._appendTo()).menu({role:null}).hide().menu("instance"),this._addClass(this.menu.element,"ui-autocomplete","ui-front"),this._on(this.menu.element,{mousedown:function(e){e.preventDefault(),this.cancelBlur=!0,this._delay(function(){delete this.cancelBlur,this.element[0]!==t.ui.safeActiveElement(this.document[0])&&this.element.trigger("focus")})},menufocus:function(e,i){var s,n;return this.isNewMenu&&(this.isNewMenu=!1,e.originalEvent&&/^mouse/.test(e.originalEvent.type))?(this.menu.blur(),this.document.one("mousemove",function(){t(e.target).trigger(e.originalEvent)}),void 0):(n=i.item.data("ui-autocomplete-item"),!1!==this._trigger("focus",e,{item:n})&&e.originalEvent&&/^key/.test(e.originalEvent.type)&&this._value(n.value),s=i.item.attr("aria-label")||n.value,s&&t.trim(s).length&&(this.liveRegion.children().hide(),t("<div>").text(s).appendTo(this.liveRegion)),void 0)},menuselect:function(e,i){var s=i.item.data("ui-autocomplete-item"),n=this.previous;this.element[0]!==t.ui.safeActiveElement(this.document[0])&&(this.element.trigger("focus"),this.previous=n,this._delay(function(){this.previous=n,this.selectedItem=s})),!1!==this._trigger("select",e,{item:s})&&this._value(s.value),this.term=this._value(),this.close(e),this.selectedItem=s}}),this.liveRegion=t("<div>",{role:"status","aria-live":"assertive","aria-relevant":"additions"}).appendTo(this.document[0].body),this._addClass(this.liveRegion,null,"ui-helper-hidden-accessible"),this._on(this.window,{beforeunload:function(){this.element.removeAttr("autocomplete")}})},_destroy:function(){clearTimeout(this.searching),this.element.removeAttr("autocomplete"),this.menu.element.remove(),this.liveRegion.remove()},_setOption:function(t,e){this._super(t,e),"source"===t&&this._initSource(),"appendTo"===t&&this.menu.element.appendTo(this._appendTo()),"disabled"===t&&e&&this.xhr&&this.xhr.abort()},_isEventTargetInWidget:function(e){var i=this.menu.element[0];return e.target===this.element[0]||e.target===i||t.contains(i,e.target)},_closeOnClickOutside:function(t){this._isEventTargetInWidget(t)||this.close()},_appendTo:function(){var e=this.options.appendTo;return e&&(e=e.jquery||e.nodeType?t(e):this.document.find(e).eq(0)),e&&e[0]||(e=this.element.closest(".ui-front, dialog")),e.length||(e=this.document[0].body),e},_initSource:function(){var e,i,s=this;t.isArray(this.options.source)?(e=this.options.source,this.source=function(i,s){s(t.ui.autocomplete.filter(e,i.term))}):"string"==typeof this.options.source?(i=this.options.source,this.source=function(e,n){s.xhr&&s.xhr.abort(),s.xhr=t.ajax({url:i,data:e,dataType:"json",success:function(t){n(t)},error:function(){n([])}})}):this.source=this.options.source},_searchTimeout:function(t){clearTimeout(this.searching),this.searching=this._delay(function(){var e=this.term===this._value(),i=this.menu.element.is(":visible"),s=t.altKey||t.ctrlKey||t.metaKey||t.shiftKey;(!e||e&&!i&&!s)&&(this.selectedItem=null,this.search(null,t))},this.options.delay)},search:function(t,e){return t=null!=t?t:this._value(),this.term=this._value(),t.length<this.options.minLength?this.close(e):this._trigger("search",e)!==!1?this._search(t):void 0},_search:function(t){this.pending++,this._addClass("ui-autocomplete-loading"),this.cancelSearch=!1,this.source({term:t},this._response())},_response:function(){var e=++this.requestIndex;return t.proxy(function(t){e===this.requestIndex&&this.__response(t),this.pendinLine truncated
|
||||
}},_updateDatepicker:function(e){this.maxRows=4,m=e,e.dpDiv.empty().append(this._generateHTML(e)),this._attachHandlers(e);var i,s=this._getNumberOfMonths(e),n=s[1],a=17,r=e.dpDiv.find("."+this._dayOverClass+" a");r.length>0&&o.apply(r.get(0)),e.dpDiv.removeClass("ui-datepicker-multi-2 ui-datepicker-multi-3 ui-datepicker-multi-4").width(""),n>1&&e.dpDiv.addClass("ui-datepicker-multi-"+n).css("width",a*n+"em"),e.dpDiv[(1!==s[0]||1!==s[1]?"add":"remove")+"Class"]("ui-datepicker-multi"),e.dpDiv[(this._get(e,"isRTL")?"add":"remove")+"Class"]("ui-datepicker-rtl"),e===t.datepicker._curInst&&t.datepicker._datepickerShowing&&t.datepicker._shouldFocusInput(e)&&e.input.trigger("focus"),e.yearshtml&&(i=e.yearshtml,setTimeout(function(){i===e.yearshtml&&e.yearshtml&&e.dpDiv.find("select.ui-datepicker-year:first").replaceWith(e.yearshtml),i=e.yearshtml=null},0))},_shouldFocusInput:function(t){return t.input&&t.input.is(":visible")&&!t.input.is(":disabled")&&!t.input.is(":focus")},_checkOffset:function(e,i,s){var n=e.dpDiv.outerWidth(),o=e.dpDiv.outerHeight(),a=e.input?e.input.outerWidth():0,r=e.input?e.input.outerHeight():0,h=document.documentElement.clientWidth+(s?0:t(document).scrollLeft()),l=document.documentElement.clientHeight+(s?0:t(document).scrollTop());return i.left-=this._get(e,"isRTL")?n-a:0,i.left-=s&&i.left===e.input.offset().left?t(document).scrollLeft():0,i.top-=s&&i.top===e.input.offset().top+r?t(document).scrollTop():0,i.left-=Math.min(i.left,i.left+n>h&&h>n?Math.abs(i.left+n-h):0),i.top-=Math.min(i.top,i.top+o>l&&l>o?Math.abs(o+r):0),i},_findPos:function(e){for(var i,s=this._getInst(e),n=this._get(s,"isRTL");e&&("hidden"===e.type||1!==e.nodeType||t.expr.filters.hidden(e));)e=e[n?"previousSibling":"nextSibling"];return i=t(e).offset(),[i.left,i.top]},_hideDatepicker:function(e){var i,s,n,o,a=this._curInst;!a||e&&a!==t.data(e,"datepicker")||this._datepickerShowing&&(i=this._get(a,"showAnim"),s=this._get(a,"duration"),n=function(){t.datepicker._tidyDialog(a)},t.effects&&(t.effects.effect[i]||t.effects[i])?a.dpDiv.hide(i,t.datepicker._get(a,"showOptions"),s,n):a.dpDiv["slideDown"===i?"slideUp":"fadeIn"===i?"fadeOut":"hide"](i?s:null,n),i||n(),this._datepickerShowing=!1,o=this._get(a,"onClose"),o&&o.apply(a.input?a.input[0]:null,[a.input?a.input.val():"",a]),this._lastInput=null,this._inDialog&&(this._dialogInput.css({position:"absolute",left:"0",top:"-100px"}),t.blockUI&&(t.unblockUI(),t("body").append(this.dpDiv))),this._inDialog=!1)},_tidyDialog:function(t){t.dpDiv.removeClass(this._dialogClass).off(".ui-datepicker-calendar")},_checkExternalClick:function(e){if(t.datepicker._curInst){var i=t(e.target),s=t.datepicker._getInst(i[0]);(i[0].id!==t.datepicker._mainDivId&&0===i.parents("#"+t.datepicker._mainDivId).length&&!i.hasClass(t.datepicker.markerClassName)&&!i.closest("."+t.datepicker._triggerClass).length&&t.datepicker._datepickerShowing&&(!t.datepicker._inDialog||!t.blockUI)||i.hasClass(t.datepicker.markerClassName)&&t.datepicker._curInst!==s)&&t.datepicker._hideDatepicker()}},_adjustDate:function(e,i,s){var n=t(e),o=this._getInst(n[0]);this._isDisabledDatepicker(n[0])||(this._adjustInstDate(o,i+("M"===s?this._get(o,"showCurrentAtPos"):0),s),this._updateDatepicker(o))},_gotoToday:function(e){var i,s=t(e),n=this._getInst(s[0]);this._get(n,"gotoCurrent")&&n.currentDay?(n.selectedDay=n.currentDay,n.drawMonth=n.selectedMonth=n.currentMonth,n.drawYear=n.selectedYear=n.currentYear):(i=new Date,n.selectedDay=i.getDate(),n.drawMonth=n.selectedMonth=i.getMonth(),n.drawYear=n.selectedYear=i.getFullYear()),this._notifyChange(n),this._adjustDate(s)},_selectMonthYear:function(e,i,s){var n=t(e),o=this._getInst(n[0]);o["selected"+("M"===s?"Month":"Year")]=o["draw"+("M"===s?"Month":"Year")]=parseInt(i.options[i.selectedIndex].value,10),this._notifyChange(o),this._adjustDate(n)},_selectDay:function(e,i,s,n){var o,a=t(e);t(n).hasClass(this._unselectableClass)||this._isDisabledDatepicker(a[0])||(o=this._getInst(a[0]),o.selectedDay=o.currentDay=t("a",n).html(),o.selectedMonth=o.currentMonth=i,o.selectedYear=o.currentYear=s,this._selectDate(e,this._formatDate(o,o.currentDay,o.currentMonth,o.currentYear)))},_clearDate:function(e){var i=t(e);this._selectDate(i,"")},_selectDate:function(e,i){var s,n=t(e),o=this._getInst(n[0]);i=null!=i?i:this._formatDate(o),o.input&&o.input.val(i),this._updateAlternate(o),s=this._get(o,"onSelect"),s?s.apply(o.input?o.input[0]:null,[i,o]):o.input&&o.input.trigger("change"),o.inline?this._updateDatepicker(o):(this._hideDatepicker(),this._lastInput=o.input[0],"object"!=typeof o.input[0]&&o.input.trigger("focus"),this._lastInput=null)},_updateAlternate:function(e){var i,s,n,o=this._get(e,"altField");o&&(i=this._get(e,"altFormat")||this._get(e,"dateFormat"),s=this._getDate(e),n=this.formatDate(i,s,this._getFormatConfig(e)),t(o).val(n))},noWeekends:function(t){var e=t.getDay();return[e>0&&6>e,""]},iso8601Week:function(t){var e,i=new Date(t.getTime());return i.setDate(i.getDate()+4-(i.getDay()||7))Line truncated
|
||||
},_cacheMargins:function(){this.margins={left:parseInt(this.element.css("marginLeft"),10)||0,top:parseInt(this.element.css("marginTop"),10)||0,right:parseInt(this.element.css("marginRight"),10)||0,bottom:parseInt(this.element.css("marginBottom"),10)||0}},_cacheHelperProportions:function(){this.helperProportions={width:this.helper.outerWidth(),height:this.helper.outerHeight()}},_setContainment:function(){var e,i,s,n=this.options,o=this.document[0];return this.relativeContainer=null,n.containment?"window"===n.containment?(this.containment=[t(window).scrollLeft()-this.offset.relative.left-this.offset.parent.left,t(window).scrollTop()-this.offset.relative.top-this.offset.parent.top,t(window).scrollLeft()+t(window).width()-this.helperProportions.width-this.margins.left,t(window).scrollTop()+(t(window).height()||o.body.parentNode.scrollHeight)-this.helperProportions.height-this.margins.top],void 0):"document"===n.containment?(this.containment=[0,0,t(o).width()-this.helperProportions.width-this.margins.left,(t(o).height()||o.body.parentNode.scrollHeight)-this.helperProportions.height-this.margins.top],void 0):n.containment.constructor===Array?(this.containment=n.containment,void 0):("parent"===n.containment&&(n.containment=this.helper[0].parentNode),i=t(n.containment),s=i[0],s&&(e=/(scroll|auto)/.test(i.css("overflow")),this.containment=[(parseInt(i.css("borderLeftWidth"),10)||0)+(parseInt(i.css("paddingLeft"),10)||0),(parseInt(i.css("borderTopWidth"),10)||0)+(parseInt(i.css("paddingTop"),10)||0),(e?Math.max(s.scrollWidth,s.offsetWidth):s.offsetWidth)-(parseInt(i.css("borderRightWidth"),10)||0)-(parseInt(i.css("paddingRight"),10)||0)-this.helperProportions.width-this.margins.left-this.margins.right,(e?Math.max(s.scrollHeight,s.offsetHeight):s.offsetHeight)-(parseInt(i.css("borderBottomWidth"),10)||0)-(parseInt(i.css("paddingBottom"),10)||0)-this.helperProportions.height-this.margins.top-this.margins.bottom],this.relativeContainer=i),void 0):(this.containment=null,void 0)},_convertPositionTo:function(t,e){e||(e=this.position);var i="absolute"===t?1:-1,s=this._isRootNode(this.scrollParent[0]);return{top:e.top+this.offset.relative.top*i+this.offset.parent.top*i-("fixed"===this.cssPosition?-this.offset.scroll.top:s?0:this.offset.scroll.top)*i,left:e.left+this.offset.relative.left*i+this.offset.parent.left*i-("fixed"===this.cssPosition?-this.offset.scroll.left:s?0:this.offset.scroll.left)*i}},_generatePosition:function(t,e){var i,s,n,o,a=this.options,r=this._isRootNode(this.scrollParent[0]),h=t.pageX,l=t.pageY;return r&&this.offset.scroll||(this.offset.scroll={top:this.scrollParent.scrollTop(),left:this.scrollParent.scrollLeft()}),e&&(this.containment&&(this.relativeContainer?(s=this.relativeContainer.offset(),i=[this.containment[0]+s.left,this.containment[1]+s.top,this.containment[2]+s.left,this.containment[3]+s.top]):i=this.containment,t.pageX-this.offset.click.left<i[0]&&(h=i[0]+this.offset.click.left),t.pageY-this.offset.click.top<i[1]&&(l=i[1]+this.offset.click.top),t.pageX-this.offset.click.left>i[2]&&(h=i[2]+this.offset.click.left),t.pageY-this.offset.click.top>i[3]&&(l=i[3]+this.offset.click.top)),a.grid&&(n=a.grid[1]?this.originalPageY+Math.round((l-this.originalPageY)/a.grid[1])*a.grid[1]:this.originalPageY,l=i?n-this.offset.click.top>=i[1]||n-this.offset.click.top>i[3]?n:n-this.offset.click.top>=i[1]?n-a.grid[1]:n+a.grid[1]:n,o=a.grid[0]?this.originalPageX+Math.round((h-this.originalPageX)/a.grid[0])*a.grid[0]:this.originalPageX,h=i?o-this.offset.click.left>=i[0]||o-this.offset.click.left>i[2]?o:o-this.offset.click.left>=i[0]?o-a.grid[0]:o+a.grid[0]:o),"y"===a.axis&&(h=this.originalPageX),"x"===a.axis&&(l=this.originalPageY)),{top:l-this.offset.click.top-this.offset.relative.top-this.offset.parent.top+("fixed"===this.cssPosition?-this.offset.scroll.top:r?0:this.offset.scroll.top),left:h-this.offset.click.left-this.offset.relative.left-this.offset.parent.left+("fixed"===this.cssPosition?-this.offset.scroll.left:r?0:this.offset.scroll.left)}},_clear:function(){this._removeClass(this.helper,"ui-draggable-dragging"),this.helper[0]===this.element[0]||this.cancelHelperRemoval||this.helper.remove(),this.helper=null,this.cancelHelperRemoval=!1,this.destroyOnClear&&this.destroy()},_trigger:function(e,i,s){return s=s||this._uiHash(),t.ui.plugin.call(this,e,[i,s,this],!0),/^(drag|start|stop)/.test(e)&&(this.positionAbs=this._convertPositionTo("absolute"),s.offset=this.positionAbs),t.Widget.prototype._trigger.call(this,e,i,s)},plugins:{},_uiHash:function(){return{helper:this.helper,position:this.position,originalPosition:this.originalPosition,offset:this.positionAbs}}}),t.ui.plugin.add("draggable","connectToSortable",{start:function(e,i,s){var n=t.extend({},i,{item:s.element});s.sortables=[],t(s.options.connectToSortable).each(function(){var i=t(this).sortable("instance");i&&!i.options.disabled&&(s.sortables.push(i),i.refreshPositions(),i._trigger("activate",e,n))})},stop:function(e,i,s){var n=t.extend({},i,{item:s.eleLine truncated
|
||||
},disable:t.noop,enable:t.noop,close:function(e){var i=this;this._isOpen&&this._trigger("beforeClose",e)!==!1&&(this._isOpen=!1,this._focusedElement=null,this._destroyOverlay(),this._untrackInstance(),this.opener.filter(":focusable").trigger("focus").length||t.ui.safeBlur(t.ui.safeActiveElement(this.document[0])),this._hide(this.uiDialog,this.options.hide,function(){i._trigger("close",e)}))},isOpen:function(){return this._isOpen},moveToTop:function(){this._moveToTop()},_moveToTop:function(e,i){var s=!1,n=this.uiDialog.siblings(".ui-front:visible").map(function(){return+t(this).css("z-index")}).get(),o=Math.max.apply(null,n);return o>=+this.uiDialog.css("z-index")&&(this.uiDialog.css("z-index",o+1),s=!0),s&&!i&&this._trigger("focus",e),s},open:function(){var e=this;return this._isOpen?(this._moveToTop()&&this._focusTabbable(),void 0):(this._isOpen=!0,this.opener=t(t.ui.safeActiveElement(this.document[0])),this._size(),this._position(),this._createOverlay(),this._moveToTop(null,!0),this.overlay&&this.overlay.css("z-index",this.uiDialog.css("z-index")-1),this._show(this.uiDialog,this.options.show,function(){e._focusTabbable(),e._trigger("focus")}),this._makeFocusTarget(),this._trigger("open"),void 0)},_focusTabbable:function(){var t=this._focusedElement;t||(t=this.element.find("[autofocus]")),t.length||(t=this.element.find(":tabbable")),t.length||(t=this.uiDialogButtonPane.find(":tabbable")),t.length||(t=this.uiDialogTitlebarClose.filter(":tabbable")),t.length||(t=this.uiDialog),t.eq(0).trigger("focus")},_keepFocus:function(e){function i(){var e=t.ui.safeActiveElement(this.document[0]),i=this.uiDialog[0]===e||t.contains(this.uiDialog[0],e);i||this._focusTabbable()}e.preventDefault(),i.call(this),this._delay(i)},_createWrapper:function(){this.uiDialog=t("<div>").hide().attr({tabIndex:-1,role:"dialog"}).appendTo(this._appendTo()),this._addClass(this.uiDialog,"ui-dialog","ui-widget ui-widget-content ui-front"),this._on(this.uiDialog,{keydown:function(e){if(this.options.closeOnEscape&&!e.isDefaultPrevented()&&e.keyCode&&e.keyCode===t.ui.keyCode.ESCAPE)return e.preventDefault(),this.close(e),void 0;if(e.keyCode===t.ui.keyCode.TAB&&!e.isDefaultPrevented()){var i=this.uiDialog.find(":tabbable"),s=i.filter(":first"),n=i.filter(":last");e.target!==n[0]&&e.target!==this.uiDialog[0]||e.shiftKey?e.target!==s[0]&&e.target!==this.uiDialog[0]||!e.shiftKey||(this._delay(function(){n.trigger("focus")}),e.preventDefault()):(this._delay(function(){s.trigger("focus")}),e.preventDefault())}},mousedown:function(t){this._moveToTop(t)&&this._focusTabbable()}}),this.element.find("[aria-describedby]").length||this.uiDialog.attr({"aria-describedby":this.element.uniqueId().attr("id")})},_createTitlebar:function(){var e;this.uiDialogTitlebar=t("<div>"),this._addClass(this.uiDialogTitlebar,"ui-dialog-titlebar","ui-widget-header ui-helper-clearfix"),this._on(this.uiDialogTitlebar,{mousedown:function(e){t(e.target).closest(".ui-dialog-titlebar-close")||this.uiDialog.trigger("focus")}}),this.uiDialogTitlebarClose=t("<button type='button'></button>").button({label:t("<a>").text(this.options.closeText).html(),icon:"ui-icon-closethick",showLabel:!1}).appendTo(this.uiDialogTitlebar),this._addClass(this.uiDialogTitlebarClose,"ui-dialog-titlebar-close"),this._on(this.uiDialogTitlebarClose,{click:function(t){t.preventDefault(),this.close(t)}}),e=t("<span>").uniqueId().prependTo(this.uiDialogTitlebar),this._addClass(e,"ui-dialog-title"),this._title(e),this.uiDialogTitlebar.prependTo(this.uiDialog),this.uiDialog.attr({"aria-labelledby":e.attr("id")})},_title:function(t){this.options.title?t.text(this.options.title):t.html(" ")},_createButtonPane:function(){this.uiDialogButtonPane=t("<div>"),this._addClass(this.uiDialogButtonPane,"ui-dialog-buttonpane","ui-widget-content ui-helper-clearfix"),this.uiButtonSet=t("<div>").appendTo(this.uiDialogButtonPane),this._addClass(this.uiButtonSet,"ui-dialog-buttonset"),this._createButtons()},_createButtons:function(){var e=this,i=this.options.buttons;return this.uiDialogButtonPane.remove(),this.uiButtonSet.empty(),t.isEmptyObject(i)||t.isArray(i)&&!i.length?(this._removeClass(this.uiDialog,"ui-dialog-buttons"),void 0):(t.each(i,function(i,s){var n,o;s=t.isFunction(s)?{click:s,text:i}:s,s=t.extend({type:"button"},s),n=s.click,o={icon:s.icon,iconPosition:s.iconPosition,showLabel:s.showLabel,icons:s.icons,text:s.text},delete s.click,delete s.icon,delete s.iconPosition,delete s.showLabel,delete s.icons,"boolean"==typeof s.text&&delete s.text,t("<button></button>",s).button(o).appendTo(e.uiButtonSet).on("click",function(){n.apply(e.element[0],arguments)})}),this._addClass(this.uiDialog,"ui-dialog-buttons"),this.uiDialogButtonPane.appendTo(this.uiDialog),void 0)},_makeDraggable:function(){function e(t){return{position:t.position,offset:t.offset}}var i=this,s=this.options;this.uiDialog.draggable({cancel:".ui-dialog-content, .ui-dialog-titlebar-close",handle:".ui-dialog-titlebar",containment:"document",start:functionLine truncated
|
||||
},_refresh:function(){this._createRange(),this._createHandles(),this._setupEvents(),this._refreshValue()},_createHandles:function(){var e,i,s=this.options,n=this.element.find(".ui-slider-handle"),o="<span tabindex='0'></span>",a=[];for(i=s.values&&s.values.length||1,n.length>i&&(n.slice(i).remove(),n=n.slice(0,i)),e=n.length;i>e;e++)a.push(o);this.handles=n.add(t(a.join("")).appendTo(this.element)),this._addClass(this.handles,"ui-slider-handle","ui-state-default"),this.handle=this.handles.eq(0),this.handles.each(function(e){t(this).data("ui-slider-handle-index",e).attr("tabIndex",0)})},_createRange:function(){var e=this.options;e.range?(e.range===!0&&(e.values?e.values.length&&2!==e.values.length?e.values=[e.values[0],e.values[0]]:t.isArray(e.values)&&(e.values=e.values.slice(0)):e.values=[this._valueMin(),this._valueMin()]),this.range&&this.range.length?(this._removeClass(this.range,"ui-slider-range-min ui-slider-range-max"),this.range.css({left:"",bottom:""})):(this.range=t("<div>").appendTo(this.element),this._addClass(this.range,"ui-slider-range")),("min"===e.range||"max"===e.range)&&this._addClass(this.range,"ui-slider-range-"+e.range)):(this.range&&this.range.remove(),this.range=null)},_setupEvents:function(){this._off(this.handles),this._on(this.handles,this._handleEvents),this._hoverable(this.handles),this._focusable(this.handles)},_destroy:function(){this.handles.remove(),this.range&&this.range.remove(),this._mouseDestroy()},_mouseCapture:function(e){var i,s,n,o,a,r,h,l,c=this,u=this.options;return u.disabled?!1:(this.elementSize={width:this.element.outerWidth(),height:this.element.outerHeight()},this.elementOffset=this.element.offset(),i={x:e.pageX,y:e.pageY},s=this._normValueFromMouse(i),n=this._valueMax()-this._valueMin()+1,this.handles.each(function(e){var i=Math.abs(s-c.values(e));(n>i||n===i&&(e===c._lastChangedValue||c.values(e)===u.min))&&(n=i,o=t(this),a=e)}),r=this._start(e,a),r===!1?!1:(this._mouseSliding=!0,this._handleIndex=a,this._addClass(o,null,"ui-state-active"),o.trigger("focus"),h=o.offset(),l=!t(e.target).parents().addBack().is(".ui-slider-handle"),this._clickOffset=l?{left:0,top:0}:{left:e.pageX-h.left-o.width()/2,top:e.pageY-h.top-o.height()/2-(parseInt(o.css("borderTopWidth"),10)||0)-(parseInt(o.css("borderBottomWidth"),10)||0)+(parseInt(o.css("marginTop"),10)||0)},this.handles.hasClass("ui-state-hover")||this._slide(e,a,s),this._animateOff=!0,!0))},_mouseStart:function(){return!0},_mouseDrag:function(t){var e={x:t.pageX,y:t.pageY},i=this._normValueFromMouse(e);return this._slide(t,this._handleIndex,i),!1},_mouseStop:function(t){return this._removeClass(this.handles,null,"ui-state-active"),this._mouseSliding=!1,this._stop(t,this._handleIndex),this._change(t,this._handleIndex),this._handleIndex=null,this._clickOffset=null,this._animateOff=!1,!1},_detectOrientation:function(){this.orientation="vertical"===this.options.orientation?"vertical":"horizontal"},_normValueFromMouse:function(t){var e,i,s,n,o;return"horizontal"===this.orientation?(e=this.elementSize.width,i=t.x-this.elementOffset.left-(this._clickOffset?this._clickOffset.left:0)):(e=this.elementSize.height,i=t.y-this.elementOffset.top-(this._clickOffset?this._clickOffset.top:0)),s=i/e,s>1&&(s=1),0>s&&(s=0),"vertical"===this.orientation&&(s=1-s),n=this._valueMax()-this._valueMin(),o=this._valueMin()+s*n,this._trimAlignValue(o)},_uiHash:function(t,e,i){var s={handle:this.handles[t],handleIndex:t,value:void 0!==e?e:this.value()};return this._hasMultipleValues()&&(s.value=void 0!==e?e:this.values(t),s.values=i||this.values()),s},_hasMultipleValues:function(){return this.options.values&&this.options.values.length},_start:function(t,e){return this._trigger("start",t,this._uiHash(e))},_slide:function(t,e,i){var s,n,o=this.value(),a=this.values();this._hasMultipleValues()&&(n=this.values(e?0:1),o=this.values(e),2===this.options.values.length&&this.options.range===!0&&(i=0===e?Math.min(n,i):Math.max(n,i)),a[e]=i),i!==o&&(s=this._trigger("slide",t,this._uiHash(e,i,a)),s!==!1&&(this._hasMultipleValues()?this.values(e,i):this.value(i)))},_stop:function(t,e){this._trigger("stop",t,this._uiHash(e))},_change:function(t,e){this._keySliding||this._mouseSliding||(this._lastChangedValue=e,this._trigger("change",t,this._uiHash(e)))},value:function(t){return arguments.length?(this.options.value=this._trimAlignValue(t),this._refreshValue(),this._change(null,0),void 0):this._value()},values:function(e,i){var s,n,o;if(arguments.length>1)return this.options.values[e]=this._trimAlignValue(i),this._refreshValue(),this._change(null,e),void 0;if(!arguments.length)return this._values();if(!t.isArray(arguments[0]))return this._hasMultipleValues()?this._values(e):this.value();for(s=this.options.values,n=arguments[0],o=0;s.length>o;o+=1)s[o]=this._trimAlignValue(n[o]),this._change(null,o);this._refreshValue()},_setOption:function(e,i){var s,n=0;switch("range"===e&&this.options.range===!0&&("min"===i?(this.options.value=this._values(0),this.options.valuLine truncated
|
||||
this._delay(function(){n===this.counter&&this.refreshPositions(!s)})},_clear:function(t,e){function i(t,e,i){return function(s){i._trigger(t,s,e._uiHash(e))}}this.reverting=!1;var s,n=[];if(!this._noFinalSort&&this.currentItem.parent().length&&this.placeholder.before(this.currentItem),this._noFinalSort=null,this.helper[0]===this.currentItem[0]){for(s in this._storedCSS)("auto"===this._storedCSS[s]||"static"===this._storedCSS[s])&&(this._storedCSS[s]="");this.currentItem.css(this._storedCSS),this._removeClass(this.currentItem,"ui-sortable-helper")}else this.currentItem.show();for(this.fromOutside&&!e&&n.push(function(t){this._trigger("receive",t,this._uiHash(this.fromOutside))}),!this.fromOutside&&this.domPosition.prev===this.currentItem.prev().not(".ui-sortable-helper")[0]&&this.domPosition.parent===this.currentItem.parent()[0]||e||n.push(function(t){this._trigger("update",t,this._uiHash())}),this!==this.currentContainer&&(e||(n.push(function(t){this._trigger("remove",t,this._uiHash())}),n.push(function(t){return function(e){t._trigger("receive",e,this._uiHash(this))}}.call(this,this.currentContainer)),n.push(function(t){return function(e){t._trigger("update",e,this._uiHash(this))}}.call(this,this.currentContainer)))),s=this.containers.length-1;s>=0;s--)e||n.push(i("deactivate",this,this.containers[s])),this.containers[s].containerCache.over&&(n.push(i("out",this,this.containers[s])),this.containers[s].containerCache.over=0);if(this.storedCursor&&(this.document.find("body").css("cursor",this.storedCursor),this.storedStylesheet.remove()),this._storedOpacity&&this.helper.css("opacity",this._storedOpacity),this._storedZIndex&&this.helper.css("zIndex","auto"===this._storedZIndex?"":this._storedZIndex),this.dragging=!1,e||this._trigger("beforeStop",t,this._uiHash()),this.placeholder[0].parentNode.removeChild(this.placeholder[0]),this.cancelHelperRemoval||(this.helper[0]!==this.currentItem[0]&&this.helper.remove(),this.helper=null),!e){for(s=0;n.length>s;s++)n[s].call(this,t);this._trigger("stop",t,this._uiHash())}return this.fromOutside=!1,!this.cancelHelperRemoval},_trigger:function(){t.Widget.prototype._trigger.apply(this,arguments)===!1&&this.cancel()},_uiHash:function(e){var i=e||this;return{helper:i.helper,placeholder:i.placeholder||t([]),position:i.position,originalPosition:i.originalPosition,offset:i.positionAbs,item:i.currentItem,sender:e?e.element:null}}}),t.widget("ui.spinner",{version:"1.12.1",defaultElement:"<input>",widgetEventPrefix:"spin",options:{classes:{"ui-spinner":"ui-corner-all","ui-spinner-down":"ui-corner-br","ui-spinner-up":"ui-corner-tr"},culture:null,icons:{down:"ui-icon-triangle-1-s",up:"ui-icon-triangle-1-n"},incremental:!0,max:null,min:null,numberFormat:null,page:10,step:1,change:null,spin:null,start:null,stop:null},_create:function(){this._setOption("max",this.options.max),this._setOption("min",this.options.min),this._setOption("step",this.options.step),""!==this.value()&&this._value(this.element.val(),!0),this._draw(),this._on(this._events),this._refresh(),this._on(this.window,{beforeunload:function(){this.element.removeAttr("autocomplete")}})},_getCreateOptions:function(){var e=this._super(),i=this.element;return t.each(["min","max","step"],function(t,s){var n=i.attr(s);null!=n&&n.length&&(e[s]=n)}),e},_events:{keydown:function(t){this._start(t)&&this._keydown(t)&&t.preventDefault()},keyup:"_stop",focus:function(){this.previous=this.element.val()},blur:function(t){return this.cancelBlur?(delete this.cancelBlur,void 0):(this._stop(),this._refresh(),this.previous!==this.element.val()&&this._trigger("change",t),void 0)},mousewheel:function(t,e){if(e){if(!this.spinning&&!this._start(t))return!1;this._spin((e>0?1:-1)*this.options.step,t),clearTimeout(this.mousewheelTimer),this.mousewheelTimer=this._delay(function(){this.spinning&&this._stop(t)},100),t.preventDefault()}},"mousedown .ui-spinner-button":function(e){function i(){var e=this.element[0]===t.ui.safeActiveElement(this.document[0]);e||(this.element.trigger("focus"),this.previous=s,this._delay(function(){this.previous=s}))}var s;s=this.element[0]===t.ui.safeActiveElement(this.document[0])?this.previous:this.element.val(),e.preventDefault(),i.call(this),this.cancelBlur=!0,this._delay(function(){delete this.cancelBlur,i.call(this)}),this._start(e)!==!1&&this._repeat(null,t(e.currentTarget).hasClass("ui-spinner-up")?1:-1,e)},"mouseup .ui-spinner-button":"_stop","mouseenter .ui-spinner-button":function(e){return t(e.currentTarget).hasClass("ui-state-active")?this._start(e)===!1?!1:(this._repeat(null,t(e.currentTarget).hasClass("ui-spinner-up")?1:-1,e),void 0):void 0},"mouseleave .ui-spinner-button":"_stop"},_enhance:function(){this.uiSpinner=this.element.attr("autocomplete","off").wrap("<span>").parent().append("<a></a><a></a>")},_draw:function(){this._enhance(),this._addClass(this.uiSpinner,"ui-spinner","ui-widget ui-widget-content"),this._addClass("ui-spinner-input"),this.element.attr("role","spinbutton"),this.buttons=this.uiSpinnLine truncated
|
||||
Vendored
+10220
File diff suppressed because it is too large.
Load diff
+12352
File diff suppressed because it is too large.
Load diff
Reference in new issue
Block a user