[galaxy-dev] Creating R galaxy wrapper where a function checks file extension