In data-science-competitions/Modeling-Earthquake-Damage: Richter's Predictor: Modeling Earthquake Damage

source("README.R", TRUE)
knitr::opts_chunk$set(
  echo = TRUE, 
  message = FALSE,
  fig.align = "center", 
  out.width = "100%"
)
.install_package("desc")
.install_package("devtools")
# Required for converting HTML widgets to Images
.install_package("webshot")
# webshot::install_phantomjs()

#######################
## Get Project Paths ##
#######################
path_project <- getwd()
while (length(grep("test", path_project))>0) path_project <- dirname(path_project)
devtools::load_all(path_project, quiet = TRUE)

############################# 
## Get Package DESCRIPTION ##
#############################
library(desc)
target <- file.path(path_project, "DESCRIPTION")
desc_obj <- description$new(target)

##########################
## Set System Variables ##
##########################
package_url <- desc_obj$get_field("BugReports") %>% stringr::str_remove("/issues$")
package_name <- desc_obj$get_field("Package")
package_repo <- stringr::str_extract_all(package_url, "[^/]+(?://[^/]*)*")[[1]][2:3] %>% paste0(collapse ="/")
Sys.setenv(CI_PROJECT_NAME = package_name)
Sys.setenv(CI_PROJECT_URL = package_url)

####################
## Construct URLs ##
####################
travis_url <- paste0("https://travis-ci.org/", package_repo)
pipeline_url <- paste0(travis_url, ".svg?branch=master")
mybinder_url <- "http://mybinder.org/badge.svg"

codecov_url <- paste0("https://codecov.io/github/", package_repo, "/", "?branch=master")
covr_url <- paste0("https://codecov.io/gh/", package_repo, "/branch/master/graph/badge.svg")
binder_url <- paste0("https://mybinder.org/v2/gh/", package_repo, "/master?urlpath=rstudio")

r package_name

r desc_obj$get_field("Title")

---

knitr::include_graphics("https://i.imgur.com/2sfOQSa.png")

Description

r desc_obj$get_field("Description")

Installation

r package_name accommodates two stages in the project life-cycle: Development and Production.

Working in Pseudo-Package Mode (Advised During Development Stage)

1. Download the project to local computer
2. Launch the project via r paste0(package_name,".Rproj")
3. Optional: Install all package dependencies

remotes::install_local(dependencies = TRUE, force = TRUE, upgrade = "always")
devtools::uninstall()

1. Load the complete project as a package via devtools::load_all() or Ctrl+Shift+L

Working in Package Mode (Advised During Production Stage)

install.packages("devtools")
devtools::install_github("`r package_repo`")

Datasets

Accessing the Project Data

ds <- DataStore$new()
names(ds$data_model)

Data Overview

ds$data_model

remove_all_keys <- function(.data_model){
  for(table_name in names(.data_model))
    try(.data_model <- dm::cdm_rm_pk(.data_model, !!table_name, rm_referencing_fks = TRUE), silent = TRUE)
  return(.data_model)
}

ds$data_model %>% 
  remove_all_keys() %>% 
  dm::cdm_draw(
    col_attr = c("column", "type")[1:2],
    view_type = "all", columnArrows = FALSE, rankdir = "BT"
  )

Data Glimpse

tables <- ds$data_model %>% dm::cdm_get_tables()
for(k in 1){
  message("---\n", names(tables)[k])
  tables[[k]] %>% dplyr::glimpse(width = 100)
} 

data-science-competitions/Modeling-Earthquake-Damage documentation built on Dec. 25, 2019, 12:02 p.m.