trying to add SNA to Shiny