Garrick Aden-Buie gadenbuie

library(tidyverse)
library(RSocrata)
library(glue)
library(gt)

library(tidyverse)

bsf <- pkgnet::FunctionReporter$new()
bsf$set_package("bslib")
bsf$calculate_default_measures()

bslib_fns <-

	# Install and load required packages
	# install.packages("gh")
	library(gh)
	library(dplyr)
	library(purrr)

	# Get all contributors to a GitHub repository
	get_repo_contributors <- function(owner, repo) {
	contributors <- gh::gh(
	"GET /repos/{owner}/{repo}/contributors",

	library(shiny)
	library(bslib)
	library(dplyr)
	library(ggplot2)

	# Sample cow data
	cow_data <- data.frame(
	name = c("Bessie", "Daisy", "Buttercup", "Molly", "Clover", "Rosie", "Bella", "Penny", "Lulu", "Mabel"),
	breed = c("Holstein", "Jersey", "Angus", "Hereford", "Guernsey", "Simmental", "Holstein", "Jersey", "Angus", "Guernsey"),
	milk_per_day = c(28, 25, 0, 0, 27, 0, 30, 24, 0, 26),

	library(dplyr)

	remotes <- gert::git_remote_list()

	remotes \|>
	mutate(
	url = sub("[email protected]:", "https://github.com/", url, fixed = TRUE),
	url = sub(".git", "", url, fixed = TRUE)
	) \|>
	purrr::pwalk(function(name, url) {


	alias_input_from_shiny <- function(
	input = "actionLink",
	update = NULL,
	new_input = NULL,
	new_update = NULL
	) {
	if (is.null(update)) {
	update <- paste0("update", toupper(substr(input, 1, 1)), substring(input, 2))
	}

	#! /usr/bin/env Rscript

	if (!requireNamespace("rlang", quietly = TRUE)) {
	stop("`utpr` requires `{usethis}`: install.packages('usethis')")
	}

	rlang::check_installed(c("usethis", "cli", "docopt"))

	'
	A command-line wrapper for `pr_*` helper functions from {usethis}.

	# https://shiny.posit.co/blog/posts/bslib-dashboards/#hello-dashboards

	library(shiny)
	library(bslib)
	library(ggplot2)


	# Setup -------------------------------------------------------------------

	data(penguins, package = "palmerpenguins")

	Installing package into ‘/Users/garrick/Library/R/arm64/4.3/library’
	(as ‘lib’ is unspecified)
	trying URL 'https://cran.rstudio.com/src/contrib/httpuv_1.6.10.tar.gz'
	Content type 'application/x-gzip' length 1875497 bytes (1.8 MB)
	==================================================
	downloaded 1.8 MB

	* installing source package ‘httpuv’ ...
	** package ‘httpuv’ successfully unpacked and MD5 sums checked
	** using staged installation