Tibble을 매개 변수 목록으로 변환

Question

Tibble을 함수 호출을위한 매개 변수 목록으로 변환하려고합니다. 내가이 일을하는 이유는 여러 열로 여러 개의 고정 너비 파일을 읽는 간단한 파일 사양 Tibble을 만들고 싶기 때문입니다. 이 방법은 pull과 select를 사용하여 파일에있는 열만 지정하면 파일을 자동으로로드하고 파싱 할 수 있습니다. 그러나 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) 
) 

내가 읽고 :

> (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 객체와 끝까지하려는 :이 예를 들어

내가 형식의 Tibble가 있다고 가정 할 수 있습니다 do.call로이 작업을 수행 할 수 있다는 것을 알고 있습니다. 그러나 컬럼 ID와 Type을 자동화 된 방식으로 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; DR을 : 여러 가지가 있습니다 이것이 보이는 것보다 더 복잡하게 만듭니다. 그러나 실현 가능하며, 최종적으로 제공되는 결과 코드는 개별적인 부분이 이해되면 복잡하지 않습니다.

의견에서 설명한대로 나는 기본적으로 조란의 접근 방식을 선호합니다. 사실 코드 문자열을 문자열에 저장하면 언제든지 경고음을 울려 야합니다. stringly typed code (반점이 있고 strongly typed code과 매우 반대입니다)으로 알려진 반 패턴입니다. 불행히도 R은 문자열 형 코드로 가득차 있습니다.

그 말은입니다. 유스 케이스 (파일 기반 구성) 그 자체가 좋은 아이디어입니다. 정보를 R 코드 조각과 다른 형식으로 저장하는 것이 좋습니다. 그러나, 잘 작동합니다. 그래서 코드이 작동하지 않는 이유를 알아 보겠습니다.

첫 번째 문제는 다음과 같습니다. do.call으로 바꿉니다. Tibbles는 열 목록이므로 do.call에서 허용됩니다. 그러나 내부적으로 귀하의 전화는 다음과 같은 형식으로 변환됩니다.

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

-하지만 이것은 우리가 원하는 코드가 아닙니다!

우리는 여기서 두 가지 문제를 해결해야합니다

1. 우리는 인수로 인수로 이름을 값하고 ID 열을 Type 열을 사용해야합니다.우리는 이름으로 ID 그리고 Type을 값으로 갖는 새로운 목록을 만들어서 이것을 할 수 있습니다 : setNames(Type, ID).

2. cols은 문자열 인수를 어떻게 처리해야할지 알지 못합니다. 열 지정 - Collector 유형의 개체가 필요합니다.

   다른 말로 표현하면 "col_date()" 또는 col_date()을 작성하는 것과 큰 차이가 있습니다. 우리는 R 코드와 Type 열을 구문 분석 태어나 셨, 우리는 결과 분석 식을 평가해야합니다

는이 문제를 해결하려면, 우리는 매우 복잡한 일을 할 필요가있다. R은 이것을 수행하기 위해 편리한 두 가지 기능 (각각 parse 및 eval)을 제공합니다. 하지만 두 가지 쉬운 기능이 존재한다는 사실을 속여서는 안됩니다. 매우 복잡한 작업입니다. R은 본질적으로 코드 조각에 대해 전체 구문 분석기와 해석기를 실행해야합니다. 코드가 예상 한 것과 다르다면 더 털이 나옵니다. 예를 들어, 텍스트는 대신 unlink('/', recursive = TRUE) 코드를 포함 할 수 있습니다. 그러면 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) 
)