R 목록을 별도의 Excel 워크 시트에 저장하는 기능

Question

this post Excel 파일 (코드)에서 별도의 워크 시트로 목록을 내보내는 스크립트가 있습니다. 이제 입력 목록 이름과 출력 파일 이름을 제공하여이 동작을 재현 할 수있는 편리한 함수로 포장하고 싶습니다.

샘플 데이터 :

var1 <- list('2003' = 1:3, '2004' = c(4:3), '2005' = c(6,4,1), '2006' = 1:4) 

현재 스크립트

require("XLConnect") 
wb <- loadWorkbook("var1.xlsx", create = TRUE) 
createSheet(wb, names(var1)) 
writeWorksheet(wb, var1, names(var1),header=FALSE) 
saveWorkbook(wb) 

면책 조항 : 나는 같은 간단한 질문을 부끄러워하는 동안, 난 확실히 다른 많은 방문자 그래서 여기에서이 정보를 찾고 싶어합니다 7)

편집 : 즉시 사용 가능한 기능 :

save.excel <-function(.list, default = 'var1', path = ''){ 
    require("XLConnect") 
    .name <- as.list(match.call())[2] 
    if(is.language(.name[[1]])) wb_name <- paste0(paste0(path, default, collapse = '/'), '.xlsx') 
    if(is.symbol(.name[[1]])) wb_name <- paste0(paste0(path, as.character(.name), collapse = '/'), '.xlsx') 
    wb <- loadWorkbook(wb_name, create = TRUE) 
    createSheet(wb, names(.list)) 
    writeWorksheet(wb,.list, names(.list),header=FALSE) 
    saveWorkbook(wb) 
    } 

아래의 솔루션에서 유일한 차이점은 내가 함수 내부에서 요청 라이브러리로 XLConnect을 추가하는 경우에, 당신은하지 않았다이다 수동으로 수행하십시오. 7)

Answer 1

XLConnect가 내 컴퓨터에 설치되지 않으므로 테스트되지 않았습니다. 당신이 별도의 워크 시트

wb_name의 요소를 내보낼 목록 - -의 이름하지만 다음과 같은 두 개의 인수

• my_list와

  간단한 방법을

  함수를 작동 할 수 있습니다 통합 문서

이 함수는 다음과 같습니다.

당신은 당신이 match.call, is.symbol 및 is.language과 재미를 가질 수있는 파일을 만들 수 list의 이름을 사용하려면 목록

의 이름을 사용합니다 6,

write_list <-function(my_list, wb_name = 'var1.xlsx') {  
    wb <- loadWorkbook(wb_name, create = TRUE) 
    createSheet(wb, names(my_list)) 
    writeWorksheet(wb, my_list, names(my_list),header=FALSE) 
    saveWorkbook(wb) 
} 

공상 옵션을 선택합니다. 이렇게하는 이유의 세부 사항은 두 가지 상황

write_list_name(var1) 

#in which case .name[[1]] is the symbol var1 

및

@mnel의 솔루션에 추가

write_list_name(list(n=2:3)) 
# in which case .name[[1]] is list(n=2:3), and class language 
# a file called list(n=2:3).xlsx would be not ideal, hence the `default` argument. 

Answer 2

와

write_list_name <-function(.list, default = 'var1', path = ''){ 
    .name <- as.list(match.call())[2] 
    if(is.language(.name[[1]])){ 
    wb_name <- sprintf("%s/%s.xlsx", path, default) 
    } 
    if(is.symbol(.name[[1]])) { 
    wb_name <- sprintf("%s/%s.xlsx", path, as.character(.name)) 
    } 
    wb <- loadWorkbook(wb_name, create = TRUE) 
    createSheet(wb, names(.list)) 
    writeWorksheet(wb,.list, names(.list),header=FALSE) 
    saveWorkbook(wb) 
    } 

is.language/is.symbol/match.call 거래 이하 다음은 함수에 대한 일반적인 정보입니다.

function_name = function(input_a, input_b) { 
    c = input_a * 2 
    d = do_something(input_b) 
    return(list(c, d)) 
} 

input_a 및 input_b는 입력 인수입니다

및 list(c, d) 반환 값입니다 : 일반적으로

는, 함수는 다음과 같이 보인다. function_name, a 및 b 기능 체에 input_a 및 input_b 교체하는 것이

out_a = function_name(a, b) 

주 :이 반환 값이 함수를 호출 할 때 =의 좌측에있는 개체에 할당된다. a이 input_a에 링크되어 있다는 사실은 인수의 순서에 따라 수행됩니다. 양자 택일로, 명명 된 인수를 사용할 수 있습니다 :

out_a = function(input_a = a, input_b = b) 

이것은 함수 호출을 내 의견으로는 특히 잘 선택된 함수와 인자 이름에 대해 더 읽기 쉽게합니다.