S4 методы метапрограммирование в R

Question

Вот пример:

setGeneric("loadBim", 
     function(pl_info, ...) { 
      standardGeneric("loadBim") 
     }) 

setMethod("loadBim", 
     signature(pl_info = "PlInfo"), 
     function(pl_info) { 
      loadFFDF(pl_info@ff_dir_trio["bim"]) 
     }) 
setGeneric("loadFam", 
     function(pl_info, ...) { 
      standardGeneric("loadFam") 
     }) 

setMethod("loadFam", 
     signature(pl_info = "PlInfo"), 
     function(pl_info) { 
      loadFFDF(pl_info@ff_dir_trio["fam"]) 
     }) 

setGeneric("loadFrq", 
     function(pl_info, ...) { 
      standardGeneric("loadFrq") 
     }) 

setMethod("loadFrq", 
     signature(pl_info = "PlInfo"), 
     function(pl_info) { 
      loadFFDF(pl_info@ff_dir_trio["frq"]) 
     }) 

Все эти методы S4 похожи, они отличаются только для некоторых имен расширений файлов: бьет, ф и FRQ. Мне интересно, существует ли какая-то метапрограммирующая техника для их упрощения (генерирование программно)?

Answer 1

Я узнал одно решение:

loadPlinkMeta = gtools::defmacro(ext, method_name, expr = { 
    setGeneric(method_name, 
      function(pl_info, ...) { 
       standardGeneric(method_name) 
      }) 
    setMethod(method_name, 
      signature(pl_info = "PlInfo"), 
      function(pl_info) { 
       loadFFDF(pl_info@ff_dir_trio[ext]) 
      }) 
}) 

loadPlinkMeta("bim", "loadBim") 
loadPlinkMeta("fam", "loadFam") 
loadPlinkMeta("frq", "loadFrq")