Update server.R

blasted ties.  quick workaround,  need to implement fail safe on the dataset.