This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
--- | |
title: "Binomial confidence intervals" | |
author: "Chris Beeley" | |
date: "20/06/2019" | |
output: html_document | |
--- | |
```{r setup, include=FALSE} | |
library(tidyverse) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
https://github.com/HFAnalyticsLab | |
https://github.com/codonlibrary | |
https://github.com/royal-free-london | |
https://github.com/PublicHealthEngland | |
https://github.com/nhsuk |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
### 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.")) |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
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 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(palmerpenguins) | |
library(tidyverse) | |
# Define UI for application that draws a histogram | |
ui <- fluidPage( | |
# Application title | |
titlePanel("Reactive example"), | |
sidebarLayout( |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
--- | |
title: "Loop demo" | |
author: "Chris Beeley" | |
date: "21/04/2021" | |
output: html_document | |
params: | |
species: NA | |
--- | |
```{r setup, include=FALSE} |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# 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") |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
library(tidyverse) | |
# produce data | |
pharmacy_sub <- pharmacy %>% | |
filter(Site1 == "Site C", NSVCode == "Drug A") | |
daily_data <- phaRmacyForecasting:::make_tsibble(pharmacy_sub, frequency = "Daily") |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
--- | |
title: "Parameterised Reporting" | |
author: "Tina Simms" | |
date: "03/11/2021" | |
output: html_document | |
params: | |
month: | |
label: "Month of the Year" | |
value: January | |
input: select |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
# 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") | |
) |