# Get data directory
pkg <- system.file("extdata", package = "fetch")
# Create catalog
ct <- catalog(pkg, engines$csv)
# Example 1: Catalog all rows
# View catalog
ct
# data catalog: 6 items
# - Source: C:/packages/fetch/inst/extdata
# - Engine: csv
# - Items:
# data item 'ADAE': 56 cols 150 rows
# data item 'ADEX': 17 cols 348 rows
# data item 'ADPR': 37 cols 552 rows
# data item 'ADPSGA': 42 cols 695 rows
# data item 'ADSL': 56 cols 87 rows
# data item 'ADVS': 37 cols 3617 rows
# View catalog item
ct$ADEX
# data item 'ADEX': 17 cols 348 rows
# - Engine: csv
# - Size: 70.7 Kb
# - Last Modified: 2020-09-18 14:30:22
# Name Column Class Label Format NAs MaxChar
# 1 ADEX STUDYID character NA 0 3
# 2 ADEX USUBJID character NA 0 10
# 3 ADEX SUBJID character NA 0 3
# 4 ADEX SITEID character NA 0 2
# 5 ADEX TRTP character NA 8 5
# 6 ADEX TRTPN numeric NA 8 1
# 7 ADEX TRTA character NA 8 5
# 8 ADEX TRTAN numeric NA 8 1
# 9 ADEX RANDFL character NA 0 1
# 10 ADEX SAFFL character NA 0 1
# 11 ADEX MITTFL character NA 0 1
# 12 ADEX PPROTFL character NA 0 1
# 13 ADEX PARAM character NA 0 45
# 14 ADEX PARAMCD character NA 0 8
# 15 ADEX PARAMN numeric NA 0 1
# 16 ADEX AVAL numeric NA 16 4
# 17 ADEX AVALCAT1 character NA 87 10
# Example 2: Catalog with where expression
ct <- catalog(pkg, engines$csv, where = expression(SUBJID == '049'))
# View catalog item - Now only 4 rows
ct$ADEX
# data item 'ADEX': 17 cols 4 rows
#- Where: SUBJID == "049"
#- Engine: csv
#- Size: 4.5 Kb
#- Last Modified: 2020-09-18 14:30:22
#Name Column Class Label Format NAs MaxChar
#1 ADEX STUDYID character NA 0 3
#2 ADEX USUBJID character NA 0 10
#3 ADEX SUBJID character NA 0 3
#4 ADEX SITEID character NA 0 2
#5 ADEX TRTP character NA 0 5
#6 ADEX TRTPN numeric NA 0 1
#7 ADEX TRTA character NA 0 5
#8 ADEX TRTAN numeric NA 0 1
#9 ADEX RANDFL character NA 0 1
#10 ADEX SAFFL character NA 0 1
#11 ADEX MITTFL character NA 0 1
#12 ADEX PPROTFL character NA 0 1
#13 ADEX PARAM character NA 0 45
#14 ADEX PARAMCD character NA 0 8
#15 ADEX PARAMN numeric NA 0 1
#16 ADEX AVAL numeric NA 0 4
#17 ADEX AVALCAT1 character NA 1 10
Run the code above in your browser using DataLab