gtm19

Hello there!

Introduction

You should know that this markdown is being pulled from a GitHub gist - which means you can edit your docs outside your model and update them without having to re-release the model 🎉

This is a custom UI component with renders markdown (albeit, markdown horribly written into a JavaScript file) as HTML in the UI only.

This means no assigning big chunks of text to nodes in your hxd in order to see docs!

gtm19

# ./encrypt.rb

# 1. Get an array of all the letters of the alphabet
# See: https://ruby-doc.org/core-3.0.2/Range.html
LETTERS = ("A".."Z").to_a
# Alternatively:
# LETTERS = Array ("A".."Z")

def encrypt(text, offset = -3)
  # Parameter checking: -------------------------------------------------------

gtm19

<!-- app/views/layouts/shared/_navbar.html.erb -->
<div class="navbar navbar-expand-sm navbar-light navbar-lewagon">
  <div class="container-fluid">
    <%= link_to "#", class: "navbar-brand" do %>
      <%= image_tag "https://raw.githubusercontent.com/lewagon/fullstack-images/master/uikit/logo.png" %>
    <% end %>

    <button class="navbar-toggler" type="button" data-bs-toggle="collapse" data-bs-target="#navbarSupportedContent" aria-controls="navbarSupportedContent" aria-expanded="false" aria-label="Toggle navigation">
      <span class="navbar-toggler-icon"></span>
    </button>

gtm19

#!/bin/bash

set -e

# Utils
e_header() {
  printf "\n$(tput setaf 3)%s$(tput sgr0)\n" "$@"
  sleep 2
}

gtm19

# app/test/mailers/previews/devise_mailer_preview.rb
class DeviseMailerPreview < ActionMailer::Preview
  def confirmation_instructions
    Devise::Mailer.confirmation_instructions(User.first, {})
  end

  def unlock_instructions
    Devise::Mailer.unlock_instructions(User.first, "faketoken")
  end

gtm19

library(tidyverse)
library(googlesheets4)
library(sf)

us <- 
  rnaturalearth::ne_states(returnclass = "sf") %>% 
  filter(iso_a2 == "US" & !iso_3166_2 %in% c("US-HI", "US-AK")) %>% 
  sf::st_transform(102003)

monuments <- 

gtm19

library(shiny)

shiny::shinyApp(
  ui = sidebarLayout(
    sidebarPanel(
      actionButton("one",   "One"),
      actionButton("two",   "Two"),
      actionButton("three", "Three"),
      actionButton("four",  "Four")
    ),

gtm19

## A short function which is effectively a wrapper around lapply, where the function is reattempted on failure
## a set number of times

repply <- function(X, FUN, ..., .max_retry = 3) {
  
  init <- lapply(X, function(x) try(FUN(x), silent = TRUE), ...)
  
  n <- 1
  
  while(n <= .max_retry) {

gtm19

library(tidyverse)
library(sf)

url <- "ftp://sidads.colorado.edu/DATASETS/NOAA/G02135/north/monthly/shapefiles/shp_extent/12_Dec/extent_N_201012_polygon_v3.0.zip"

tempdir <- tempdir(check = TRUE)
tempfile <- tempfile()

download.file(url, tempfile, mode = "wb")