將Tibble轉換爲參數列表

Question

我正在嘗試將一個Tibble轉換爲函數調用的參數列表。我這樣做的原因是因爲我想創建一個簡單的文件說明Tibble，用於讀取具有不同列的多個固定寬度文件。這樣我只需要使用pull和select來指定文件中的哪些列，然後我就可以自動地加載和解析文件。但是，我遇到了使用cols對象指定列格式的問題。

對於這個例子讓我們假設我有格式的Tibble：

> (filespec <- tibble(ID = c("Title", "Date", "ATTR"), Length = c(23, 8, 6), Type = c("col_character()", "col_date()", "col_factor(levels=c(123456,654321)"))) 
# A tibble: 3 x 3 
    ID Length        Type 
    <chr> <dbl>        <chr> 
1 Title  23     col_character() 
2 Date  8       col_date() 
3 ATTR  6 col_factor(levels=c(123456,654321) 

我想用格式的COLS對象落得：

> (cols(Title = col_character(), Date = col_date(), ATTR=col_factor(levels=c(123456,654321)))) 
cols(
    Title = col_character(), 
    Date = col_date(format = ""), 
    ATTR = col_factor(levels = c(123456, 654321), ordered = FALSE) 
) 

從其他的問題，我已閱讀我知道這可以通過do.call完成。但我無法弄清楚如何以自動方式將列ID和類型轉換爲cols對象。下面是我試過的例子...

> do.call(cols, select(filespec,ID, Type)) 
Error in switch(x, `_` = , `-` = col_skip(), `?` = col_guess(), c = col_character(), : 
    EXPR must be a length 1 vector 

我假設的選擇需要與執行行參數映射另一個函數來包裝，這是怎麼完成的？

Answer 1

TL;博士：有很多事情這使得這看起來更復雜。但是，這是可行的，並且一旦個別部分被理解，所得到的代碼（在最後提供）並不複雜。

正如評論中所討論的，我基本上更喜歡喬蘭的方法。事實上，每當你發現自己在字符串中存儲代碼表達式時，這應該引起警鐘：它是一種反模式，稱爲stringly typed code（與strongly typed code相反，而與之相反）。不幸的是R相當充滿了字符串類型的代碼。

也就是說，你的用例（基於文件的配置）本身就是一個好主意。我會考慮以不同於R代碼片段的格式存儲信息。但是，它的確行得通。所以讓我們來探討爲什麼你的代碼不起作用。

第一個問題是這樣的：你將一個tibble傳遞給do.call。 Tibbles是列的列表，所以do.call允許這樣做。但是，您的內部呼叫轉換爲相當於：

cols(
    ID = c("Title", "Date", "ATTR"), 
    Type = c("col_character()", "col_date()", "col_factor(levels=c(123456,654321))") 
) 

- 但這不是我們想要的代碼！

這裏我們需要解決兩件事情：

1. 我們需要使用Type列作爲參數值和ID列作爲參數名。我們可以通過創建一個名稱爲ID，值爲Type的新列表來做到這一點：setNames(Type, ID)。

2. cols不知道如何處理字符串參數。它需要列規格 - 類型爲Collector的對象。

   換句話說，不管你寫"col_date()"還是col_date()，這都是巨大的差異。

爲了解決這個問題，我們需要做一些相當複雜的：我們的東東解析Type柱爲R代碼，我們需要評估所產生的解析表達式。 R提供了兩個方便的功能（分別爲parse和eval）來完成此操作。但不要讓兩個簡單功能的存在欺騙你：這是一個非常複雜的操作。 R本質上需要在代碼片段上運行完整的解析器和解釋器。如果代碼不符合你的期望，它會變得更加複雜。例如，文本可能包含代碼unlink('/', recursive = TRUE)而不是col_date()。 R然後會高興地擦除你的硬盤。

這只是其中一個的原因爲什麼parse/eval是複雜的，通常可以避免。其他原因包括：如果代碼中存在解析錯誤（實際上，您的代碼包含缺少的右括號......），會發生什麼情況？

但是，我們走了。現在，我們擁有所有的拼在一起，我們就可以比較容易地加入他們的行列：

filespec %>% 
    mutate(Parsed = lapply(Type, function (x) parse(text = x, encoding = 'UTF-8'))) %>% 
    mutate(ColSpec = lapply(Parsed, eval)) %>% 
    with(setNames(ColSpec, ID)) %>% 
    do.call(cols, .) 

一塊執行這個代碼塊，看看它做什麼，並說服自己，它的正常工作。

Answer 2

我可能不同的方法處理這一點，並且該文件規格存儲在一個簡單的列表：

library(purrr) 
library(readr) 
filespec <- list(Title = list(Length = 23, 
           Type = col_character()), 
       Date = list(Length = 8, 
          Type = col_date()), 
       ATTR = list(Length = 6, 
          Type = col_factor(levels = 123456,654321))) 

a <- at_depth(.x = filespec,.depth = 1,.f = "Type") 
> invoke(.f = cols,.x = a) 

cols(
    Title = col_character(), 
    Date = col_date(format = ""), 
    ATTR = col_factor(levels = 123456, ordered = 654321, include_na = FALSE) 
) 

，或者

> invoke(.f = cols,.x = a[c('Title','ATTR')]) 
cols(
    Title = col_character(), 
    ATTR = col_factor(levels = 123456, ordered = 654321, include_na = FALSE) 
)