Commit: d382ccb02f97a48ef8b4835b59bd04ba6d96458e - myprojects-hg-reborn (hg)

Commit MetaInfo

• Revisão: d382ccb02f97a48ef8b4835b59bd04ba6d96458e (tree)
• Hora: 2020-07-07 05:28:51
• Autor: Lorenzo Isella <lorenzo.isella@gmai...>
• Commiter: Lorenzo Isella

Mensagem de Log

A small script to properly create an sqlite database and disconnect from it.

Mudança Sumário

• add: R-codes/store_sql_lite.R

Diff

diff -r 5473c2bfc109 -r d382ccb02f97 R-codes/store_sql_lite.R
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/R-codes/store_sql_lite.R	Mon Jul 06 22:28:51 2020 +0200
@@ -0,0 +1,43 @@
+rm(list=ls())
+
+library(tidyverse)
+library(haven)
+library(DBI)
+library(RSQLite)
+library(dbplyr)
+
+
+source("/home/lorenzo/myprojects-hg/R-codes/stat_lib.R")
+
+
+df <- read_dta("NTM_hs6_2010_2018_v.12.dta") %>% as_tibble
+
+saveRDS(df, "ntm_fixed.RDS")
+
+write_csv(df, "ntm.csv")
+
+
+## see https://themockup.netlify.app/posts/2019-04-28-nflfastr-dbplyr-rsqlite/
+
+
+## First create the database
+mydb <- DBI::dbConnect(RSQLite::SQLite(), dbname="ntm.sqlite")
+
+###Then write content to the database. Give a name to the table.
+DBI::dbWriteTable(mydb,"ntm_database",df, overwrite=T)
+
+## list the table
+print("The content of the database is,")
+print(DBI::dbListTables(mydb))
+
+
+### Probably I should run this at the end.
+## See https://cran.r-project.org/web/packages/RSQLite/vignettes/RSQLite.html
+
+
+dbDisconnect(mydb)
+unlink("ntm.sqlite")
+
+
+
+print("So far so good")