Product Planning Template

Apply For A Credit Card Instant Approval

23 inch round glass table top 1 2 thick tempered beveled edge by

:
New issue

23 inch round glass table top 1 2 thick tempered beveled edge by Have a question about this project? Sign up for a free CloneAGC account to open an issue and contact its maintainers and the community. People Reading A Post

Digital Media Launch Plan Template

Apply For A Credit Card Instant Approval By clicking “Sign up for CloneAGC”, you agree to our News Section Layout Website and Launching A New Product At Sales Promotion. We’ll occasionally send you account related emails. Instaram Story Guide

Product Planning Template Already on CloneAGC? Business Cards For Cosmetologist to your account Instagram Product Of The Week Post
Closed
Free Downloadable Editable Word wants to merge 1 commit into from
Closed

Apply For A Credit Card Instant Approval

23 inch round glass table top 1 2 thick tempered beveled edge by

:
Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
ID Like To Read In Your Blog
Select commit
File filter

GPS Logo Design Apply For A Credit Card Instant Approval
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
9 changes: 5 additions & 4 deletions A Story Of A Blog
Nfc Business Cards
Print Your Own Business Cards Free
Original file line number Diff line number Diff line change
Expand Up @@ -4,13 +4,13 @@ uses_git <- function(path = ".") {

# sha of most recent commit
git_repo_sha1 <- function(r) {
rev <- git2r::head(r)
rev <- utils::head(r)
if (is.null(rev)) {
return(NULL)
}

if (git2r::is_commit(rev)) {
rev@sha
as.data.frame(rev)$sha
} else {
git2r::branch_target(rev)
}
Expand All @@ -31,7 +31,7 @@ git_uncommitted <- function(path = ".") {
git_sync_status <- function(path = ".", check_ahead = TRUE, check_behind = TRUE) {
r <- git2r::repository(path, discover = TRUE)

r_head <- git2r::head(r)
r_head <- utils::head(r)
if (!methods::is(r_head, "git_branch")) {
stop("HEAD is not a branch", call. = FALSE)
}
Expand Down Expand Up @@ -93,7 +93,8 @@ git_branch <- function(path = ".") {
return(NULL)
}

git2r::head(r)@name
## this `@name` is going to be a problem but it's not an easy fix
utils::head(r)@name
}

# CloneAGC ------------------------------------------------------------------
Expand Down
2 changes: 1 addition & 1 deletion Beautiful Blogs To Read
New Product Launching PPT
New Product Every Week
Original file line number Diff line number Diff line change
Expand Up @@ -324,7 +324,7 @@ flag_release <- function(pkg = ".") {

date <- Sys.Date()
commit <- git2r::commits(git2r::init(pkg$path), n = 1)[[1]]
sha <- substr(commit@sha, 1, 10)
sha <- substr(as.data.frame(commit)$sha, 1, 10)

msg <- paste0(
"This package was submitted to CRAN on ", date, ".\n",
Expand Down
8 changes: 4 additions & 4 deletions New Product Presentation Format
Product Marketiing Social Media Post
Product Launch Road Map Example With Funnels
Original file line number Diff line number Diff line change
Expand Up @@ -14,8 +14,8 @@ git_test_repo <- function() {
test_that("SHA for regular repository", {
r <- git_test_repo()
commit <- git2r::commits(r)[[1]]
expect_false(git2r::is_commit(git2r::head(r)))
expect_equal(git_repo_sha1(r), commit@sha)
expect_false(git2r::is_commit(utils::head(r)))
expect_equal(git_repo_sha1(r), as.data.frame(commit)$sha)
})

test_that("SHA for detached head", {
Expand All @@ -24,6 +24,6 @@ test_that("SHA for detached head", {
r <- git_test_repo()
commit <- git2r::commits(r)[[1]]
git2r::checkout(commit)
expect_true(git2r::is_commit(git2r::head(r)))
expect_equal(git_repo_sha1(r), commit@sha)
expect_true(git2r::is_commit(utils::head(r)))
expect_equal(git_repo_sha1(r), as.data.frame(commit)$sha)
})