Merge pull request #4546 from dannyparsons/displaydaily

Display daily bugs
IDEMSInternational · Apr 18, 2018 · 4055aa8 · 4055aa8
2 parents 7666d6e + 0f94ef7
commit 4055aa8
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/instat/dlgDisplayDailyData.vb b/instat/dlgDisplayDailyData.vb
@@ -131,7 +131,7 @@ Public Class dlgDisplayDailyData
         ucrChkSumMissing.SetParameter(New RParameter("summary_count_missing", 6), bNewChangeParameterValue:=True, bNewAddRemoveParameter:=True, strNewValueIfChecked:=Chr(34) & "summary_count_missing" & Chr(34), strNewValueIfUnchecked:=Chr(34) & Chr(34))
         ucrChkSumMissing.SetText("N Missing")
 
-        lstCheckboxes.AddRange({ucrChkSum, ucrChkMax, ucrChkMin, ucrChkMean, ucrChkMedian, ucrChkIQR})
+        lstCheckboxes.AddRange({ucrChkSum, ucrChkMax, ucrChkMin, ucrChkMean, ucrChkMedian, ucrChkIQR, ucrChkSumMissing})
 
         ucrChkMissing.SetParameter(ucrInputComboMissing.GetParameter)
         ucrChkMissing.AddParameterPresentCondition(True, "Misscode")

diff --git a/instat/static/InstatObject/R/Backend_Components/DisplayDaily.R b/instat/static/InstatObject/R/Backend_Components/DisplayDaily.R
@@ -274,7 +274,7 @@ DisplayDaily <- function(Datain,Stations,Variables,option=1,Years,Misscode,Trace
         out[dim(out)[1]+1,] <- "____"
         out[dim(out)[1],1] <- "STATS"
         # temp fix to shorten display name of summary function
-        outstats[,1][outstats[,1] == "summary_count_missing"] <- "n_missing"
+        outstats[,1][outstats[,1] == "summary_count_missing"] <- "n_miss"
         out <- rbind(out,outstats)
 
         #----------------------------------------------------------#