From 491e8a6057b9192ca97ae5069b0a57eda6806020 Mon Sep 17 00:00:00 2001 From: Radermecker Cyril Date: Wed, 16 Oct 2024 10:41:44 +0200 Subject: [PATCH] Removed all the little test modifications used to see changes in the shiny app --- R/checkdataset.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/R/checkdataset.R b/R/checkdataset.R index 9e40d81..3b5760f 100644 --- a/R/checkdataset.R +++ b/R/checkdataset.R @@ -285,7 +285,7 @@ checkdataset = function(Event = NULL, Occurrence = NULL, eMoF = NULL, IPTreport ungroup() %>% left_join(parameters , by = c("measurementTypeID"="uri")) %>% transmute (IDlink, measurementType, minValue, maxValue, measurementUnit, - count, TypeID_standardUnit_test = standardunit, TypeID_name = preflabel, + count, TypeID_standardUnit = standardunit, TypeID_name = preflabel, TypeID_definition = definition)) @@ -1713,8 +1713,8 @@ if(exists("Occurrence")){ if (is.null(IPTreport$dtb$general_issues) == FALSE){ if(nrow(IPTreport$dtb$general_issues) > 0){ - IPTreport$dtb$general_issues <- IPTreport$dtb$general_issues %>% select(-level) %>% mutate (count = as.integer(count)) %>% - arrange(table, field, desc(count)) + IPTreport$dtb$general_issues <- IPTreport$dtb$general_issues %>% mutate (count = as.integer(count)) %>% + arrange(table, level, field, desc(count)) } else { IPTreport$dtb$general_issues <- c ("There don't seem to be any issues") }} else {