readline에서 문자 입력을 검사 할 수있는 방법이 있습니까?

Question

readline()의 결과가 숫자인지 확인하는 방법이 있는지 물어보고 싶습니다.

이 입력을 사용하여 수학 연산을 수행해야하므로 숫자와 "."이외의 모든 문자가 필요합니다. 프로그램을 파괴합니다.

각 문자를 확인하려면 문자로 된 입력 문자열을 사용해야합니까? 아니면 그것을 할 수있는 우아한 방법이 있습니까?

Answer 1

함수 readline()은 항상 문자열을 반환합니다. 두 가지 방법으로 처리 할 수 ​​있습니다

• as.numeric()에 무력을 사용 :이 NA으로 숫자로 변환 할 수있는 일을 반환합니다. 그런 다음 is.na()으로 확인하여이 방법이 효과가 있는지 확인할 수 있습니다.
• 정규식 사용 grepl()을 사용하면 벡터의 모든 요소에 대해 TRUE/FALSE 값을 얻을 수 있습니다.이 값은 일부 문자를 찾았는지 여부를 나타냅니다. 다음과 같이
  이

  x <- readline("give a number: ") 
  if(grepl("[^[:digit:]\\.-]",x)) stop("This is not a number") else "Hooray" 
  

  작품 :

  > x <- readline("give a number: ") 
  give a number: -23.48 
  > if(grepl("[^[:digit:]\\.-]",x)) stop("This is not a number") else "Hooray" 
  [1] "Hooray" 
  > x <- readline("give a number: ") 
  give a number: -25.645) 
  > if(grepl("[^[:digit:]\\.-]",x)) stop("This is not a number") else "Hooray" 
  Error: This is not a number 
  

  철저하게 뭔가가 (과학적 표기법 포함) 숫자로 포맷되어 있는지 여부를 확인하고 싶은 경우는, 이것은이다

은 다음 시도 다음과 함께 테스트하는 고전적인 정규 표현식 :

"ˆ[+-]?(\\d+\\.?\\d*|\\.\\d+)([eE][+-]?\\d+)?$" 

그러면 다음과 같이됩니다 :

x <- readline("give a number: ") 
isnumber <- grepl("ˆ[+-]?(\\d+\\.?\\d*|\\.\\d+)([eE][+-]?\\d+)?$",x) 
if(!isnumber) stop("X is not a number") else "Hooray"