5

回帰オブジェクトに対してプロット コマンドを実行するときに、"hit return to show next plot" ステートメントを知っていると思います。R でこの種の対話を自分で行うにはどうすればよいのでしょうか。メーリング リストでいくつかの投稿を見つけましたが、本当に包括的なものはありませんでした。そのほとんどは、menu() とさまざまな OS の GUI を扱っていました。私は次のようなものを作成しようとしています:

 Please enter sample size n: 
 > 1000

 #execution of
 rnorm(1000)

おそらく、私はドキュメントの一部を見逃しており、グーグルに適切な言葉を見つけることができません...

4

2 に答える 2

5

ではありませんreadLinesがreadline。

n <- as.integer(readline(prompt = "Please enter sample size > "))

少し手の込んだ実装:

read_value <- function(prompt_text = "", prompt_suffix = getOption("prompt"), coerce_to = "character")
{
  prompt <- paste(prompt_text, prompt_suffix)
  as(readline(prompt), coerce_to)
} 

read_value("Please enter sample size", coerce_to = "integer")
于 2011-04-13T10:30:56.503 に答える
1

を使用できますreadLinesが、他の方法もあると確信しています...

ask = function( prompt ) {
    cat( paste( prompt, ':' ) )
    readLines( n=1 )
}

n = as.integer( ask( 'Please enter sample size n' ) )
于 2011-04-13T10:06:11.633 に答える