# NOT RUN {
#----------------------------------------------------------------------------------------
# If number of hits > number of lesion, then 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 launced error message.
h <- c(50,30,20)
NL <- 3
error_message(h,NL)
# Then, in imaging device, the error message are shown.
# In shiny, even if plot cannot be done causing some error, Graphical User Interface
# can not change, so I have to use the graphical user interface.
# Thus. in such case, I chose this function rather than the message() or cat().
# Who read this? My heart will be more empty when I wrote this mannual.
# Now, today, my health is good, so I want to go to eat Sushi,...ha, yari_ika_geso.
# This function is made in 2019 July, 6.
# }
Run the code above in your browser using DataLab