在函数中指定输入

Question

如何在R？中的函数中指定输入只是数字类？例如，

read_data <- function(file_name, sheet, sample_list = stop("'sample_list' must be provided")){
    ibrary(readxl)
    data = read_excel(file_name, sheet = 2)
    meantritc = sapply(samplelist, function(x)data[grep(x, pattern = data$Source),]$Mean)
    names(data) = sample_list
    return(data)
    }

如果提及sheetname而不是read.xlsx()需要，它应该能够打印一条消息以提供表格编号吗？

Answer 1

您可以通过在您的功能中添加以下内容来实现此目的：

if (is.character(sheet))
{
   stop("Sheet must be a number!")
}