Ecosyste.ms: Awesome
An open API service indexing awesome lists of open source software.
https://github.com/petermeissner/dbtools
Tooling, wrappers, and helper around R database querying.
https://github.com/petermeissner/dbtools
Last synced: 9 days ago
JSON representation
Tooling, wrappers, and helper around R database querying.
- Host: GitHub
- URL: https://github.com/petermeissner/dbtools
- Owner: petermeissner
- Created: 2018-10-08T16:44:40.000Z (about 6 years ago)
- Default Branch: master
- Last Pushed: 2019-02-28T15:39:03.000Z (almost 6 years ago)
- Last Synced: 2024-10-31T20:52:23.192Z (about 1 month ago)
- Language: R
- Size: 18.6 KB
- Stars: 1
- Watchers: 2
- Forks: 1
- Open Issues: 0
-
Metadata Files:
- Readme: README.Rmd
Awesome Lists containing this project
- jimsghstars - petermeissner/dbtools - Tooling, wrappers, and helper around R database querying. (R)
README
---
output: github_document
---```{r, echo = FALSE}
knitr::opts_chunk$set(
collapse = TRUE,
comment = "##",
fig.path = "README-"
)
``````{r, include=FALSE}
options("width"=110)
tmp <- packageDescription( basename(getwd()) )
``````{r, results='asis', echo=FALSE}
cat("##", tmp$Title)
``````{r, include=FALSE}
filelist.R <- list.files("R", recursive = TRUE, pattern="\\.R$", ignore.case = TRUE, full.names = TRUE)
filelist.tests <- list.files("tests", recursive = TRUE, pattern="\\.R$", ignore.case = TRUE, full.names = TRUE)
filelist.cpp <- list.files("src", recursive = TRUE, pattern="\\.cpp$", ignore.case = TRUE, full.names = TRUE)
lines.R <- unlist(lapply(filelist.R, readLines))
lines.tests <- unlist(lapply(filelist.tests, readLines))
lines.cpp <- unlist(lapply(filelist.cpp, readLines))
length.R <- length(grep("(^\\s*$)|(^\\s*#)|(^\\s*//)", lines.R, value = TRUE, invert = TRUE))
length.tests <- length(grep("(^\\s*$)|(^\\s*#)|(^\\s*//)", lines.tests, value = TRUE, invert = TRUE))
length.cpp <- length(grep("(^\\s*$)|(^\\s*#)|(^\\s*//)", lines.cpp, value = TRUE, invert = TRUE))
```## Status
*lines of R code:* `r length.R`, *lines of test code:* `r length.tests`
[![Project Status: WIP.](https://www.repostatus.org/badges/latest/wip.svg)](http://www.repostatus.org/#wip)
[![cran checks](https://cranchecks.info/badges/summary/reshape)](https://cran.r-project.org/web/checks/check_results_reshape.html)
## Development version
```{r, include=FALSE}
source_files <-
grep(
"/R/|/src/|/tests/",
list.files(recursive = TRUE, full.names = TRUE),
value = TRUE
)
last_change <-
as.character(
format(max(file.info(source_files)$mtime), tz="UTC")
)
``````{r, results='asis', echo=FALSE}
cat("**")
cat(tmp$Version)
cat(" - ")
cat(stringr::str_replace(last_change, " ", " / "))
cat("**")
```## Description
```{r, results='asis', echo=FALSE}
cat(tmp$Description)
```## License
```{r, results='asis', echo=FALSE}
cat(tmp$License, "
")
cat(tmp$Author)
```## Citation
```{r, results='asis', eval=FALSE}
citation("dbtools")
``````{r, eval=FALSE}
toBibtex(citation("dbtools"))
```## Contribution - AKA The-Think-Twice-Be-Nice-Rule
Please note that this project is released with a Contributor Code of Conduct. By participating in this project you agree to abide by its terms:
> As contributors and maintainers of this project, we pledge to respect all people who
contribute through reporting issues, posting feature requests, updating documentation,
submitting pull requests or patches, and other activities.
>
> We are committed to making participation in this project a harassment-free experience for
everyone, regardless of level of experience, gender, gender identity and expression,
sexual orientation, disability, personal appearance, body size, race, ethnicity, age, or religion.
>
> Examples of unacceptable behavior by participants include the use of sexual language or
imagery, derogatory comments or personal attacks, trolling, public or private harassment,
insults, or other unprofessional conduct.
>
> Project maintainers have the right and responsibility to remove, edit, or reject comments,
commits, code, wiki edits, issues, and other contributions that are not aligned to this
Code of Conduct. Project maintainers who do not follow the Code of Conduct may be removed
from the project team.
>
> Instances of abusive, harassing, or otherwise unacceptable behavior may be reported by
opening an issue or contacting one or more of the project maintainers.
>
> This Code of Conduct is adapted from the Contributor Covenant
(http://contributor-covenant.org), version 1.0.0, available at
http://contributor-covenant.org/version/1/0/0/## Package Content
```{r example}
library(dbtools)
cat(ls(as.environment("package:dbtools")), sep = "\n")
```