Skip to content

Instantly share code, notes, and snippets.

View sparklines.R
library(sparkline)
library(formattable)
library(dplyr)
x = c(0, rep(1000, 5), rep(1000.000001, 5))
res <- mtcars |>
mutate(summary = as.character(
htmltools::as.tags(
sparkline(x, type = "bar",
@ChrisBeeley
ChrisBeeley / app.R
Created May 20, 2022
Test file saving on Shiny server
View app.R
# Shiny app with 3 fields that the user can submit data for
ui <- fluidPage(
DT::dataTableOutput("responses", width = 300), tags$hr(),
textInput("name", "Name", ""),
checkboxInput("used_shiny", "I've built a Shiny app in R before", FALSE),
sliderInput("r_num_years", "Number of years using R",
0, 25, 2, ticks = FALSE),
actionButton("submit", "Submit")
)
View temp.Rmd
---
title: "Parameterised Reporting"
author: "Tina Simms"
date: "03/11/2021"
output: html_document
params:
month:
label: "Month of the Year"
value: January
input: select
View gist:518321b7fb2e9e08c0c15f3081199416
library(tidyverse)
# produce data
pharmacy_sub <- pharmacy %>%
filter(Site1 == "Site C", NSVCode == "Drug A")
daily_data <- phaRmacyForecasting:::make_tsibble(pharmacy_sub, frequency = "Daily")
View evaluation.R
# this is old code! I do not advocate doing any of the below :-)
rm(list=ls())
library(psych)
count.NAS=function(x) length(which(is.na(x)))
ASPECT=read.csv("ASPECT.csv")
HONOS=read.csv("HONOS.csv")
ESSENCES=read.csv("ESSENCES.csv")
View loop_penguins.Rmd
---
title: "Loop demo"
author: "Chris Beeley"
date: "21/04/2021"
output: html_document
params:
species: NA
---
```{r setup, include=FALSE}
@ChrisBeeley
ChrisBeeley / app.R
Created Mar 12, 2021
Demo of reactive data and UI
View app.R
library(palmerpenguins)
library(tidyverse)
# Define UI for application that draws a histogram
ui <- fluidPage(
# Application title
titlePanel("Reactive example"),
sidebarLayout(
@ChrisBeeley
ChrisBeeley / app.R
Created Apr 3, 2020
Test to see how app.R behaves the first time it runs and on subsequent runs
View app.R
library(shiny)
library(tidyverse)
library(DT)
load("ae_attendances.RData")
Sys.sleep(10)
# filter to random 10 Trusts with a decent amount of data in
View survey_munge
### Data load
library(tidyverse)
library(RMySQL)
library(readxl)
main <- read_excel("JISC_05-02-20.xlsx", skip = 1) %>%
rename(TeamC = `Team Number`, Date = CompletionDate) %>%
select(-starts_with("1."), -starts_with("2."), -starts_with("3."), -starts_with("4."))
View List of NHS relevant GitHubs
https://github.com/HFAnalyticsLab
https://github.com/codonlibrary
https://github.com/royal-free-london
https://github.com/PublicHealthEngland
https://github.com/nhsuk