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")
r desc_obj$get_field("Description")
r package_name
accommodates two stages in the project life-cycle:
Development and Production.
r paste0(package_name,".Rproj")
remotes::install_local(dependencies = TRUE, force = TRUE, upgrade = "always") devtools::uninstall()
devtools::load_all()
or
Ctrl+Shift+Linstall.packages("devtools") devtools::install_github("`r package_repo`")
ds <- DataStore$new() names(ds$data_model)
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" )
tables <- ds$data_model %>% dm::cdm_get_tables() for(k in 1){ message("---\n", names(tables)[k]) tables[[k]] %>% dplyr::glimpse(width = 100) }
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.