Добавляя значения к вектору в функции

Question

Во-первых, вот мой код:

count <- vector() 
f1 <- function(x) { 
    file <- read.csv(x) 
    date <- grep(pattern = "lalala", names(file)) 
    file <- file[date] 

    file.row <- unlist(file) 
    num <- length(unique(file.row)) 
    count <- c(count, num) 
} 

files <- list.files(path="path/to/directory", pattern="*.csv", full.names=TRUE) 
lapply(files, f1) 

Я пытаюсь сохранить целое, Num, в счетный вектор. Однако вызов этого скрипта дает мне пустой вектор счета, поэтому я тестировал, чтобы узнать, какое значение счетчика было при каждом запуске функции, и оно печатает правильные значения, за исключением того, что вектор count повторно инициализирует пустой вектор в начале каждого запуска функции. Что происходит и как я могу это исправить?

Answer 1

Не проверено, но право Фрэнка должно быть равно return() вашего счета, и пусть функция apply делает добавление. Я переключился на sapply, так что вы должны получить вектор назад вместо списка:

f1 <- function(x) { 
    file <- read.csv(x) 
    date <- grep(pattern = "lalala", names(file)) 
    file <- file[date] 

    file.row <- unlist(file) 
    return(length(unique(file.row))) 
} 

files <- list.files(path="path/to/directory", pattern="*.csv", full.names=TRUE) 
count = sapply(files, f1) 

Answer 2

Если я вас правильно понимаю, что вы хотите просто

f1 <- function(x) { 
    file <- read.csv(x) 
    date <- grep(pattern = "lalala", names(file)) 
    file <- file[date] 

    file.row <- unlist(file) 
    num <- length(unique(file.row)) 
    num ## implicitly return `num` 
} 

files <- list.files(path="path/to/directory", pattern="*.csv", full.names=TRUE) 
lapply(files, f1) 

ПримечаниеЭтот (lapply()) будет возвращать список так что вы можете упростить его, используя вместо sapply():

sapply(files, f1) 

Примечание вам не нужно вызывать return() явно в f1(), поскольку это уже сделано для вас.