Skip to content

Instantly share code, notes, and snippets.

View smach's full-sized avatar

Sharon Machlis smach

153 followers · 55 following
View GitHub Profile
@jcheng5
jcheng5 / index.md
Last active September 3, 2024 22:16
Resources for "Shiny × AI" by Joe Cheng, at posit::conf(2024)
@walkerke
walkerke / gis_workflow.R
Created August 1, 2023 20:25
library(sf)
library(tigris)
library(tidycensus)
library(tidyverse)
library(mapview)
library(mapboxapi)
library(randomNames)
options(tigris_use_cache = TRUE)
denton <- counties(cb = TRUE) %>%
@whobutsb
whobutsb / ask-question.php
Created May 23, 2023 16:13
<?php
use Illuminate\Console\Command;
use Pgvector\Laravel\Vector;
use OpenAI\Laravel\Facades\OpenAI;
use App\Models\Document;
class AskQuestion extends Command
{
protected $signature = 'app:ask-question';
@whobutsb
whobutsb / process-post.php
Last active June 14, 2023 00:40
<?php
use Pgvector\Laravel\Vector;
use Illuminate\Console\Command;
use App\Models\Document;
use App\Models\Post;
use OpenAI\Laravel\Facades\OpenAI;
class ProcessPosts extends Command {
@walkerke
walkerke / mapchallenge_day13_5minutes.R
Created November 13, 2022 16:46
library(mapboxapi)
library(tidyverse)
library(sf)
library(patchwork)
city_halls <- c(
"New York" = "City Hall Park, New York, NY 10007",
"Los Angeles" = "200 N Spring St, Los Angeles, CA 90012",
"Chicago" = "121 N La Salle St, Chicago, IL 60602",
"Houston" = "901 Bagby St, Houston, TX 77002",
@walkerke
walkerke / commute_decline.R
Created September 17, 2022 21:51
library(tidycensus)
library(tidyverse)
sysfonts::font_add_google("Roboto")
var <- "DP03_0025"
commute19 <- get_acs(
geography = "place",
variables = var,
survey = "acs1",
@jthomasmock
jthomasmock / markdown.snippets
Last active September 6, 2024 21:05
#### ---------------------------------------------
## Edit via: RStudio > Tools > Edit Code Snippets
# Released under a MIT license
snippet fragment
[${1:text}]{.${2:type}}
snippet aside
[${1:text}]{.aside}
@pedrocoutinhosilva
pedrocoutinhosilva / References
Last active April 4, 2023 18:25
Masterclass: Top Innovations in Shiny in 2022 - Pedro Silva
Social
github.com/pedrocoutinhosilva
linkedin.com/in/pedrocoutinhosilva
twitter.com/sparktuga
www.pedrocsilva.com
Examples
https://appsilon.com/journey-from-basic-prototype-to-production-ready-shiny-dashboard/
http://uaborder.com/
https://appsilon.com/is-it-possible-to-build-a-video-game-in-r-shiny/
@elliottmorris
elliottmorris / election_night_live_model.R
Last active January 29, 2024 18:56
A live election-night prediction model using The Economist's pre-election forecast
#' Description
#' This file runs a live election-night forecast based on The Economist's pre-election forecasting model
#' available at projects.economist.com/us-2020-forecast/president.
#' It is resampling model based on https://pkremp.github.io/update_prob.html.
#' This script does not input any real election results! You will have to enter your picks/constraints manually (scroll to the bottom of the script).
#'
#' Licence
#' This software is published by *[The Economist](https://www.economist.com)* under the [MIT licence](https://opensource.org/licenses/MIT). The data generated by *The Economist* are available under the [Creative Commons Attribution 4.0 International License](https://creativecommons.org/licenses/by/4.0/).
#' The licences include only the data and the software authored by *The Economist*, and do not cover any *Economist* content or third-party data or content made available using the software. More information about licensing, syndication and the copyright of *Economist* content can be fou
@jthomasmock
jthomasmock / dual-color-reactable.R
Last active September 7, 2020 22:36
library(reactable)
library(dplyr)
red_pal <- function(x) rgb(colorRamp(c("#FFCDD2FF", "#C62828FF"))(x), maxColorValue = 255)
blue_pal <- function(x) rgb(colorRamp(c("#BBDEFBFF", "#1565C0FF"))(x), maxColorValue = 255)
mtcars %>%
select(cyl, mpg) %>%
reactable(
pagination = FALSE,