In order to mitigate against the brute force attacks against Gitlab accounts, we are moving to all edu-ID Logins. We would like to remind you to link your account with your edu-id. Login will be possible only by edu-ID after November 30, 2021. Here you can find the instructions for linking your account.

If you don't have a SWITCH edu-ID, you can create one with this guide here

kind regards

This Server has been upgraded to GitLab release 14.2.6

Commit 7891ea8c authored by dmattek's avatar dmattek
Browse files

Modified alerts

parent 3870e872
......@@ -242,8 +242,10 @@ clustValid <- function(input, output, session, in.dataWide) {
# Thanks to isolate all mods in the left panel are delayed
# until clicking the Plot button
loc.dist = isolate(calcDist())
validate(
need(!is.null(loc.dist), "Nothing to plot. Load data first!")
need(!is.null(loc.dist), "Nothing to plot. Load data first!"),
need(returnMaxNclust() < nrow(loc.dist), "Maximum number of clusters to conisder should be smaller than the number of time series.")
)
loc.p = LOCnbclust(loc.dist,
......@@ -273,8 +275,10 @@ clustValid <- function(input, output, session, in.dataWide) {
# Thanks to isolate all mods in the left panel are delayed
# until clicking the Plot button
loc.dist = isolate(calcDist())
validate(
need(!is.null(loc.dist), "Nothing to plot. Load data first!")
need(!is.null(loc.dist), "Nothing to plot. Load data first!"),
need(returnMaxNclust() < nrow(loc.dist), "Maximum number of clusters to conisder should be smaller than the number of time series.")
)
loc.p = LOCnbclust(loc.dist,
......@@ -304,8 +308,6 @@ clustValid <- function(input, output, session, in.dataWide) {
# until clicking the Plot button
loc.part = calcDendCut()
loc.dm = in.dataWide()
print(sum(is.na(loc.dm)))
validate(
need(!is.null(loc.part), "Nothing to plot. Load data first!"),
......@@ -348,11 +350,13 @@ clustValid <- function(input, output, session, in.dataWide) {
# Check if required data exists
loc.part = calcDendCut()
# Rerun the PCA plot to obtain clour mapping of clusters in PCA and silhouette plot and match it with dendrogram colors.
loc.map = plotClPCA()
validate(
need(!is.null(loc.part), "Nothing to plot. Load data first!"),
need(!is.null(loc.map), "Nothing to plot. Load data first!")
need(!is.null(loc.map), "Cannot assign colours to clusters. Possible NAs in the dataset!")
)
# Determine cluster order of occurence from left to right in the dendrogram
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment