Update 0-greeter-dbcreation.R

This commit is contained in:
Kyle Belanger 2023-01-23 07:22:03 -05:00
parent 9fcbc28dd4
commit 90eb564c11

View file

@ -39,7 +39,7 @@ readr$read_csv_chunked(
dbWriteTable(mimicDB, "labevents", chunk, append = TRUE)
}
,chunk_size = 10000
,col_types = "_d_dd_TT_d______"
,col_types = "_dddd_TT_d______"
)
@ -57,6 +57,13 @@ readr$read_csv(
) %>%
dbWriteTable(mimicDB,"labitems", .)
readr$read_csv(
here("ML","data-unshared","admissions.csv")
) %>%
dbWriteTable(mimicDB,"admissions", .)
# close database ----------------------------------------------------------