【r与数据库】r数据库=非常完美.docx

【r与数据库】r数据库=非常完美
【r与数据库】r数据库=非常完美
/
【r与数据库】r数据库=非常完美
R 与数据库】 R ＋ &#; 数据库 &#; ＝ &#; 非常完
...## $ caseid : int

【r与数据库】r数据库=非常完美
【r与数据库】r数据库=非常完美
/
【r与数据库】r数据库=非常完美

...##
$ event_dt
: int
NA NA NA
...##
$ age
: num

NA ...##
$ sex
: chr
'F' 'F' 'F' 'M' ...##
$ wt
: num
NA ...##
$ occr_country: chr
'US' 'DE' 'US' 'GB' ...##
-
attr(*, '.')=filenames
(pattern='^indi.*.csv', =TRUE)indication =
rbindlist(lapply(filenames, fread,
select=c('primaryid','indi_drug_seq','indi_pt')))str(indication)
## Classes '' and '':
obs.
of variables:##
$ primaryid
: int

...##
$ indi_drug_seq: int
...##
$ indi_pt
: chr
'Multiple sclerosis' 'Multiple sclerosis'
'Depression' 'Hypercholesterolaemia' ...##
- attr(*,
'.')=
创立数据库这里我们没有给出路径，数据
库于是会被建在之前已设好的工作文件夹中
src_sqlite('', create = T) # create =T creates
a new database 上载数据集到建好的数据库中
【r与数据库】r数据库=非常完美
【r与数据库】r数据库=非常完美
/
【r与数据库】r数据库=非常完美
copy_to(,demography,temporary = FALSE) # uploading demography data## Source: sqlite .. []## From: demography [, x ]## ##
primaryid
caseid event_dt
age
sex
wt
occr_country##
(int)
(int)
(int)
(dbl) (chr)
(dbl)
(chr)##

F
US##
F
NA
DE##
F
US##

NA
NA
M
NA
GB##
M
NA
IT##
F
NA
JP##

F
NA
##