在R中本地（非全局）设置种子

I'd like to set seeds in R only locally (inside functions), but it seems that R sets seeds not only locally, but also globally. Here's a simple example of what I'm trying (not) to do.I'd like to set seeds in R only locally (inside