kellobri

---
title: "Visualizing the ocean floor"
output: html_document
params:
  data: "hawaii"
---

```{r include = FALSE}
library(marmap)
library(ggplot2)

kellobri

---
title: "Test `sf` R Markdown"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

## Vignette 3 by Edzer Pebesma

kellobri

#
# RStudio Connect Deployment Pipeline Template
# Includes optional steps
#  

trigger:
- main

pool:
  vmImage: 'ubuntu-latest'

kellobri

#
# Bookmarking 
# Annotations & Commenting
# Gitlink
#

library(shiny)
library(gitlink)

# Define UI for application that draws a histogram

kellobri

#
# The basic multiple bookmark buttons example on Shiny Dev Center:
# https://shiny.rstudio.com/articles/bookmarking-state.html
#

library(shiny)
library(palmerpenguins)
library(ggplot2)
library(dplyr)

kellobri

---
title: "Action Required: Low Inventory Alert!"
output: blastula::blastula_email
---

<img src="low-inventory-banner.png">

A low inventory alert has been triggered - Review the current inventory levels below to determine which filament colors need to be replenished today.

### Current inventory by unit color:

kellobri

---
title: "Cookie Cutter Shop Report"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)

library(blastula)
```

kellobri

library(shiny)
library(DT)

data <- read.csv('https://colorado.rstudio.com/rsc/content/2352/data.csv')

ui <- fluidPage(
    titlePanel("Basic Data Filter Application"),
    hr(),
    h4("This application presents data generated by a scheduled R Markdown process: ", tags$a(href="https://colorado.rstudio.com/rsc/content/2352", "See it here!")),
    p("Use this framework to build out your own R Markdown-based ETL jobs hosted on RStudio Connect."),

kellobri

---
title: "Read Persistent Data on RStudio Connect"
output: 
  flexdashboard::flex_dashboard:
    orientation: columns
    vertical_layout: fill
---

```{r setup, include=FALSE}
library(flexdashboard)

kellobri

---
title: "Variants with Different Schedules"
output: html_document
params:
  engineer:
    label: "On-call Engineer:"
    value: Kelly
    input: select
    choices: [Cole, Kris, Kelly, Sean]
---