added shiny test script