Преобразуйте переменную символа в логическое выражение, чтобы использовать ее позже внутри аргумента подмножества функции подмножества()

Question

Я пытаюсь преобразовать переменную символа в логическое выражение, чтобы использовать его позже в аргументе подмножества функции подмножества(), и все это внутри большей функции, называемой early_prep(), которую я создал. Проблема заключается в том, когда я исполняю

early_prep(file_name = "n44.txt", keep_rows = "block > 1") 

удаляет все строки в моем raw_data кадре данных, а не удалять только те, в которых блок> 1.

Любая помощь будет принята с благодарностью.

Бест, Аяла

Беллоу соответствующая часть функции early_prep():

early_prep <- function(file_name,keep_rows = FALSE){ 

    read_data <- function(file_name){ 
    extension <- substr(file_name, nchar(file_name) - 3, nchar(file_name)) 
    if (extension == ".txt"){ 
    raw_data <<- read.table(file_name, header = TRUE) 
    # Print to console 
    print("#### Reading txt file ####", quote = FALSE) 
    } else if (extension == ".csv"){ 
    raw_data <<- read.csv(file_name, header = TRUE) 
    # Print to console 
    print("#### Reading csv file ####", quote = FALSE) 
    } else { 
    # Stops running the function 
    stop("#### file_name should end with txt or csv extension ####", quote = FALSE)  
    } 
} 


    read_data(file_name) 

    if (keep_rows != FALSE) { 
    keep_rows <- as.logical(keep_rows) 
    raw_data <<- subset(raw_data, keep_rows) 
    # Print to console 
    print("#### Deleting unnecessary rows in raw_data ####", quote = FALSE) 
    } 
} 

Answer 1

Попробуйте это:

subset(raw_data,eval(parse(text=keep_rows))) 

Тест:

keep_rows <- "Blok>1" 
raw_data<- data.frame(Blok=c(1,2,3,0)) 
subset(raw_data,eval(parse(text=keep_rows))) 

    Blok 
2 2 
3 3