Skip to contents

ODS 데이터를 마트 데이터로 변환

ods2data.Rd

이 함수는 제공된 데이터 ID 및 기타 매개변수를 기반으로 ODS 데이터를 마트 데이터로 변환합니다.

Usage

ods2data(
  data_id = NULL,
  to_metric = NULL,
  to_attr = NULL,
  region_var = NULL,
  wider_var = NULL,
  is_mega = FALSE,
  is_cty = FALSE,
  is_admi = FALSE,
  cty_smry_type = c("S", "M"),
  web_use_yn = c("Y", "N"),
  cty_ihrt_yn = c("N", "Y")
)

Arguments

data_id

character. 변환할 데이터 ID.

to_metric

character. 변환할 측정 단위 변수. 기본값은 NULL.

to_attr

character. 변환할 속성 데이터 변수. 기본값은 NULL.

region_var

character. 필터링 기준으로 사용할 지역 변수. 기본값은 NULL.

wider_var

character. 피벗할 변수. 기본값은 NULL.

is_mega

logical. TRUE로 설정하면 시도 지역별로 필터링. 기본값은 FALSE.

is_cty

logical. TRUE로 설정하면 시군구 지역별로 필터링. 기본값은 FALSE.

is_admi

logical. TRUE로 설정하면 읍면동 지역별로 필터링. 기본값은 FALSE.

cty_smry_type

character. 시군구 이하 레벨 데이터에 사용할 요약 유형. "S"(split)는 분구, "M"(merge)은 합구를 나타냅니다. 기본값은 "S"입니다.

web_use_yn

character. "Y"로 설정하면 웹 서비스에 사용에 사용할 형태로 변환. 기본값은 "N".

cty_ihrt_yn

character. "Y"로 설정하면 시군구 지역에서 합구에 대해서 분구로 만들고,지표에서 상위 지역 지표 상속. 기본값은 "N".

Value

다음 성분을 갖는 list.:

  • table_infodata.frame. 소스 데이터의 테이블 정보.

  • itm_infodata.frame. 소스 데이터의 항목 정보.

  • datadata.frame. 변환된 마트 데이터.

Examples

# \donttest{
# 특정 데이터 ID에 대해 ODS 데이터를 마트 데이터로 변환합니다.
data_id <- "DA0002"
region_var <- "c1"
is_mega <- TRUE
is_cty <- TRUE
is_admi <- TRUE

ods2data(data_id = data_id, region_var = region_var, is_mega = is_mega)
#> Warning: Closing open result set, cancelling previous query
#> Warning: There is a result object still in use.
#> The connection will be automatically released when it is closed
#> Error: Expected string vector of length 1
ods2data(data_id = data_id, region_var = region_var, is_cty = is_cty,
         cty_smry_type = "S", web_use_yn = "N", cty_ihrt_yn = "N")
#> Warning: Closing open result set, cancelling previous query
#> Warning: There is a result object still in use.
#> The connection will be automatically released when it is closed
#> Error: Expected string vector of length 1

data_id <- "DA0004"
region_var <- "c1"
wider_var <- "c2"
is_mega <- TRUE
tab_info <- ods2data(data_id = data_id, region_var = region_var, wider_var = wider_var,
    is_mega = is_mega)
#> Warning: Closing open result set, cancelling previous query
#> Warning: Closing open result set, cancelling previous query
#> Error in dplyr::select(raw_data, dplyr::all_of(wider_var)): ℹ In argument: `dplyr::all_of(wider_var)`.
#> Caused by error in `dplyr::all_of()`:
#> ! Can't subset elements that don't exist.
#> ✖ Element `c2` doesn't exist.
    
cty_smry_type = "M" 
web_use_yn = "N" 
cty_ihrt_yn = "N"     
is_cty <- TRUE
tab_info <- ods2data(
  data_id = data_id, region_var = region_var, wider_var = wider_var,
  is_cty = is_cty, cty_smry_type = cty_smry_type, web_use_yn = web_use_yn, 
  cty_ihrt_yn = cty_ihrt_yn )
#> Warning: Closing open result set, cancelling previous query
#> Warning: Closing open result set, cancelling previous query
#> Warning: Closing open result set, cancelling previous query
#> Error in dplyr::select(raw_data, dplyr::all_of(wider_var)): ℹ In argument: `dplyr::all_of(wider_var)`.
#> Caused by error in `dplyr::all_of()`:
#> ! Can't subset elements that don't exist.
#> ✖ Element `c2` doesn't exist.
# }