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 c61fd0c1 authored by dmattek's avatar dmattek
Browse files

Removed alert from long2wide

parent 040aa4bf
...@@ -736,35 +736,14 @@ shinyServer(function(input, output, session) { ...@@ -736,35 +736,14 @@ shinyServer(function(input, output, session) {
# or the frame number metadata can be missing, as is the case for tCourseSelected files that already have realtime column. # or the frame number metadata can be missing, as is the case for tCourseSelected files that already have realtime column.
# Therefore, we cannot rely on that info to get time frequency; user must provide this number! # Therefore, we cannot rely on that info to get time frequency; user must provide this number!
# Check for explicit NA's in the measurement columns
# Has to be here (and not in dataMod()) because we need to know the name of the measurement column (COLY)
if (sum(is.na(loc.out[[COLY]])))
createAlert(session, "alertAnchorSidePanelNAsPresent", "alertNAsPresent", title = "Warning",
content = helpText.server[["alertNAsPresent"]],
append = FALSE,
style = "warning")
else
closeAlert(session, "alertNAsPresent")
# check if time between 2 time points provided
if(input$chBtrajInter) {
if (input$inSelTimeFreq == 0)
createAlert(session = session,
anchorId = "alertAnchorSidePanelNAsPresent",
alertId = "alertTimeFreq0",
title = "Error",
content = helpText.server[["alertTimeFreq0"]],
append = FALSE,
style = "danger")
else
closeAlert(session, "alertTimeFreq0")
}
# required for subsetting downstream # required for subsetting downstream
setkeyv(loc.out, c(COLGR, COLID, COLRT)) setkeyv(loc.out, c(COLGR, COLID, COLRT))
if (input$chBtrajInter) if (input$chBtrajInter) {
# check if time between 2 time points provided and greater than 0
if (input$inSelTimeFreq > 0) { if (input$inSelTimeFreq > 0) {
closeAlert(session, "alertTimeFreq0")
# NA's may be already present in the dataset'. # NA's may be already present in the dataset'.
# Interpolate (linear) them with na.interpolate as well # Interpolate (linear) them with na.interpolate as well
if(locPos) if(locPos)
...@@ -784,8 +763,32 @@ shinyServer(function(input, output, session) { ...@@ -784,8 +763,32 @@ shinyServer(function(input, output, session) {
# Keep it? Expand it? # Keep it? Expand it?
# Create a UI filed for selecting the column with mid.in data. # Create a UI filed for selecting the column with mid.in data.
# What to do with that column during interpolation (see above) # What to do with that column during interpolation (see above)
} else {
closeAlert(session, "alertNAsPresent")
createAlert(session = session,
anchorId = "alertAnchorSidePanelNAsPresent",
alertId = "alertTimeFreq0",
title = "Error",
content = helpText.server[["alertTimeFreq0"]],
append = T,
style = "danger")
} }
} else
closeAlert(session, "alertTimeFreq0")
# Check for explicit NA's in the measurement columns
# Has to be here (and not in dataMod()) because we need to know the name of the measurement column (COLY)
if (sum(is.na(loc.out[[COLY]])))
createAlert(session, "alertAnchorSidePanelNAsPresent",
"alertNAsPresent",
title = "Warning",
content = helpText.server[["alertNAsPresent"]],
append = T,
style = "warning")
else
closeAlert(session, "alertNAsPresent")
## Trim x-axis (time) ## Trim x-axis (time)
if(input$chBtimeTrim) { if(input$chBtimeTrim) {
...@@ -846,15 +849,9 @@ shinyServer(function(input, output, session) { ...@@ -846,15 +849,9 @@ shinyServer(function(input, output, session) {
# Check for missing time points # Check for missing time points
# Missing rows in the long format give rise to NAs during dcast # Missing rows in the long format give rise to NAs during dcast
# Here, we are not checking for explicit NAs in COLY column # Here, we are not checking for explicit NAs in COLY column
if ((sum(is.na(loc.dt[[COLY]])) == 0) & (sum(is.na(loc.dt.wide)) > 0)) { if ((sum(is.na(loc.dt[[COLY]])) == 0) & (sum(is.na(loc.dt.wide)) > 0))
createAlert(session, "alertAnchorSidePanelNAsPresent", "alertNAsPresentLong2WideConv", title = "Warning", cat(stderr(), helpText.server[["alertNAsPresentLong2WideConv"]])
content = helpText.server[["alertNAsPresentLong2WideConv"]],
append = FALSE,
style = "warning")
} else {
closeAlert(session, "alertNAsPresentLong2WideConv")
}
return(loc.m.out) return(loc.m.out)
}) })
......
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