Update rankhospital.R

Revising to properly return character vector