r - Rで除数を計算する関数を書く

Question

数値のすべての約数を計算する単純な関数を R で作成しようとしています。それが私が出力したい方法です：

> divisors(21)
[1] 1 3 7 21

私は初心者で、以下のコードから始めました。しかし、まったく機能しないので、完全に間違っていると思います。

divisors <- function(number) {
  x <- c(1:number)
  for(i in 1:number){
    if(number/i == c(x)) {
      paste(i)
    }
  }
  return(i)
}
divisors(10)

Answer 1

または gmp::factorize、他の既存のツールの中でも特に。

私はよく、リリースされたパッケージのソースを調べて、同様のタスクを実行するための良いアイデアを得ると便利だと思います。