Server.R: getting header out of jsonfile to select data in inputselecter