test head.R shinyAce issue