如何在R中验证readLines()输入是否为有效数值？

你遇到的核心问题是：as.numeric()将无效字符转为NA_real_（属于数值类型），所以is.numeric()无法区分有效转换和无效转换。下面提供几种实用的验证方法：

方法1：转换后检查NA并抑制警告 #

利用as.numeric()转无效输入会返回NA的特性，结合suppressWarnings()避免警告输出，同时验证转换结果非NA且输入非空：

validate_numeric_input <- function(input_str) {
  num <- suppressWarnings(as.numeric(input_str))
  !is.na(num) && nzchar(input_str)
}

# 测试用例
validate_numeric_input("5")       # TRUE
validate_numeric_input("five")    # FALSE
validate_numeric_input("3.14")    # TRUE
validate_numeric_input("")        # FALSE

方法2：正则表达式严格匹配数值格式 #

如果需要更精准控制输入格式（比如只允许整数、或带小数的数值），可以用正则表达式匹配：

validate_numeric_regex <- function(input_str) {
  # 匹配正负整数、正负小数，支持可选的小数部分
  grepl("^[-+]?\\d+(\\.\\d+)?$", input_str)
}

# 测试用例
validate_numeric_regex("5")       # TRUE
validate_numeric_regex("-2.5")    # TRUE
validate_numeric_regex("five")    # FALSE
validate_numeric_regex("5a")      # FALSE

方法3：结合assertthat包自定义断言 #

如果要在assertthat的断言体系中使用，可以自定义验证函数：

library(assertthat)

is_valid_numeric <- function(x) {
  # 确保输入是字符类型，转换后非NA，且非空
  is.character(x) && nzchar(x) && !is.na(suppressWarnings(as.numeric(x)))
}

# 使用示例
user_input <- readLines(n = 1)
assert_that(is_valid_numeric(user_input), msg = "请输入有效的数值")

补充说明 #

is.numeric()返回TRUE是因为NA_real_属于数值型向量，所以不能仅用它判断转换是否有效，必须同时检查转换结果是否为NA，再结合输入的非空验证，才能准确判断用户输入是否为可转换的有效数值。

内容的提问来源于stack exchange，提问作者alejandro_hagan