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