# NOT RUN {
#========================================================================================
# If number of hits > number of lesion, then an error message appears.
#========================================================================================
# Make an example such that sum(h) > NL, that is, the sum of the number of hits is
# greater than the number of lesion, then, it launches an error message.
h <- c(50,30,20)
NL <- 3
error_message(h,NL)
# Then, in an imaging device, an error message appears, because sum(h) = 100 > 3 = NL.
# In Shiny, even if plot cannot be done causing some error, Graphical User Interface
# can not change (now,... I can but.), so I have to use the graphical user interface.
# Thus. in such case, I use this function rather than the message() or cat().
# Who read this? My heart will be more empty when I wrote this mannual.
# This function is made in 2019 July, 6.
# Doc is reviesed in 2020 Feb
# }
Run the code above in your browser using DataLab