（R）添加create_shortcut