Stu Field stufield

SomaDataIO CRAN Downloads

2024-03-27

Inspired by dannyfritz/commit-message-emoji

Removing a Git Submodule

Removing a submodule is useful when no longer required, follow the steps below:

Delete the section referring to the submodule from the .gitmodules file
Stage the changes via:

git add .gitmodules

Delete the relevant section of the submodule from .git/config

Update local private mirror

git checkout main
git branch -vv
git fetch public -p
git merge --ff-only public/main
git push origin

From: https://stackoverflow.com/questions/7983204/having-a-private-branch-of-a-public-repo-on-github

Mirror your repo
- Create a bare clone of the repository
```
git clone --bare https://github.com/user/old-repository.git
```
- Mirror-push to the new repository (must already in the remote! Create one up front!)

library(Rcpp)
library(purrr)
library(stringr)
library(bench)

# Helper function to both functions
# Extracts the SeqId portion of a string & replaces the "." -> "-"
getSeqId <- function(x) {
  x <- stringr::str_trim(x) # zap whitespace

Commit type	Emoji
Initial commit	🎉 `:tada:`
Version tag	🔖 `:bookmark:`
New feature	✨ `:sparkles:`
Bugfix	🐛 `:bug:`

	# set up filters
	git init
	git config filter.kwd.clean ./filter_clean
	git config filter.kwd.smudge ./filter_smudge
	echo "*.txt ident" > .gitattributes
	echo "*.txt filter=kwd" >> .gitattributes
	git add -A
	rm test.txt
	git checkout test.txt
	head test.txt

	# This infix function allows you to
	# `borrow` non-exported functions from
	# a package but avoids the CMD check warning
	# regarding ':::' usage.
	"%:::%" <- function(p, f) {
	get(f, envir = asNamespace(p))
	}

	`-` <- function(x, y) {
	if (runif(1) < 0.01)
	base::`-`(x, y) + 1
	else
	base::`-`(x, y)
	}