Quelle est la bonne façon de demander la saisie de l'utilisateur dans un programme R?

Mon programme ci-dessous(qui est en deux parties) fonctionne si je lance séparément – qui est, si je colle la première partie dans le R de la Console, exécutez-le, puis collez la deuxième et l'exécuter. Cependant, ce n'est pas la façon dont je le veux. Je veux courir à l'ensemble du programme à la fois. Si je fais qu'il affiche l'erreur suivante dans ma console :

1: 
Read 0 items
1: 
Read 0 items
Error in while ((n <= 0) | (acr <= 0) | (acr >= 1)) { : 
  argument is of length zero

J'ai essayé d'identifier le problème, mais je n'ai pas pu trouver la cause. Je serais plus qu'heureux, si quelqu'un pouvait venir à mon secours.

#**FIRST PART OF THE PROGRAM**

n <- -2
acr <- -2
while((n<=0) | (acr<=0) | (acr>=1)) {
   print("enter a  positive integer and the average cancellation rate between 0 and 1  
                you want")
   try(n <- scan(what=integer(), nmax=1), silent=TRUE)
   try(acr <- scan(what=double(), nmax=1), silent=TRUE)
}


#**SECOND PART OF THE PROGRAM**

bygrace <- read.table("C:\\MyRfolder\\bygrace.txt", header=FALSE)
r <- nrow(bygrace)
c <- ncol(bygrace)
copybygrace <- array(bygrace, dim=c(r, c))
copybygrace <- bygrace[-((n+1):r), ]
write.table(copybygrace,file="C:\\MyRfolder\\copybygrace.txt", sep="\t")
copybygrace <- read.table("C:\\MyRfolder\\copybygrace.txt", header=TRUE)
  • J'ai édité votre question afin de clarifier le problème. S'il vous plaît, essayez de donner des renseignements complets dans votre question sur les erreurs que vous voyez. Ainsi, vous obtenez une réponse plus rapide.
InformationsquelleAutor Son | 2011-05-12
  1. 27

    @Marek est très à droite. Quelques remarques :

    • En général, vous ne devriez pas être à l'aide de scan() mais readline() pour cela.
    • Je diviser le code de sorte qu'il devient clair ce qui sert à lire dans le n, et ce qui sert à lire l'acr.
    • pense que si vous voulez revenir à l'invite quand les gens vous appuyez sur entrée, ou si vous voulez reask la question jusqu'à ce qu'ils remplissent certaines valeur correcte.
    • vous pouvez utiliser la puissance de grepl() pour vérifier si l'entrée est le bon format.

    Inclure le bon de contrôles et de rattraper toutes les erreurs possibles, à la suite de construire est beaucoup plus propre et ne cassera pas votre code lors de la copie de la console :

    while(n < 1 ){
  n <- readline("enter a positive integer: ")
  n <- ifelse(grepl("\\D",n),-1,as.integer(n))
  if(is.na(n)){break}  # breaks when hit enter
}

    Cela montre la façon de mettre fin à la question quand les gens ne remplissez pas quoi que ce soit. Le grepl construire exludes n'importe quel caractère qui n'est pas un chiffre, y compris le point.

    while(is.na(acr) | acr <= 0 | acr >= 1 ){
  acr <- readline("and the average cancellation rate between 0 and 1 :")
  acr <- ifelse(grepl("[^0-9.]",acr),-1,as.numeric(acr))
}

    Cela montre comment re-poser la question quand les gens ne remplissez pas quoi que ce soit. Le grepl exclut tout caractère qui n'est pas un chiffre ou un point.

    • Une solution à l'aide de readlines() au lieu de scan était déjà offered pour @Fils. @Joris Meys +1 pour la mention de grepl().
    • tu veux dire readline() 😉
    • Bien sûr, merci pour la correction moi!
    InformationsquelleAutor Joris Meys
  2. 9

    C'est parce que lorsque vous copiez et collez ensuite scan lit collé les lignes en entrée.

    Si vous copiez ce lignes de l'arborescence de la console

    x <- scan(nmax=1)
1
2

    x devenir 1, scan n'attendez pas que votre interaction cause, il a de ligne à lire.

    Vous avez à tout envelopper dans {}:

    {
 x <- scan(nmax=1)
 1
 2
}

    Vous avez de l'envelopper les deux parties de votre programme. Pour être plus clair: lorsque vous collez votre code dans la console } devrait être le dernier signe.

    • Salut Joris, merci beaucoup pour votre réponse. Il a travaillé, enfin. C'est bon vous n'avez pas les mettre ensemble pour moi. Après avoir lutter avec elle pendant environ 4 heures, il a travaillé. J'ai lu cela sur le site-dans la faq:"Quand vous avez décidé que la réponse est le plus utile pour vous, il marque que l'on a accepté la réponse en cliquant sur la case à cocher aperçu" MAIS je NE trouve pas LA CASE à cocher CONTOUR EN QUESTION. J'ai également remercier Merek très bien
    InformationsquelleAutor Marek