Skip to content

Instantly share code, notes, and snippets.

Chris Beeley ChrisBeeley

Block or report user

Report or block ChrisBeeley

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View binom_conf.Rmd
---
title: "Binomial confidence intervals"
author: "Chris Beeley"
date: "20/06/2019"
output: html_document
---
```{r setup, include=FALSE}
library(tidyverse)
View server.R
function(input, output) { # define application in here
output$textDisplay <- renderText({ # mark function as reactive
# and assign to output$textDisplay for passing to ui.R
paste0("You said '", input$comment, # from the text
"'. There are ", nchar(input$comment), # input control as
" characters in this.") # defined in ui.R
})
View big_pipe.R
fixedData[, missnum > 2] %>%
gather(L1, value) %>%
filter(!is.na(value)) %>%
left_join(select(questionFrame, code, value), by = c("L1" = "code")) %>%
select(-L1) %>%
group_by(value.y) %>%
count(value.x) %>%
mutate(prop = prop.table(n) * 100) %>%
select(-n) %>%
mutate(value.x = factor(value.x, levels = 1:5)) %>%
View dplyrReprex
library(tidyverse)
#> Warning: package 'tidyverse' was built under R version 3.4.4
#> -- Attaching packages ----------------------------------------------------------------------------------------------- tidyverse 1.2.1 --
#> v ggplot2 3.0.0 v purrr 0.2.4
#> v tibble 1.4.2 v dplyr 0.7.6
#> v tidyr 0.8.1 v stringr 1.3.0
#> v readr 1.1.1 v forcats 0.3.0
#> Warning: package 'ggplot2' was built under R version 3.4.4
#> Warning: package 'tibble' was built under R version 3.4.4
#> Warning: package 'readr' was built under R version 3.4.4
@ChrisBeeley
ChrisBeeley / dropdownDepend.js
Created Jan 1, 2016
Sending messages to and from client and server using JavaScript/ Shiny
View dropdownDepend.js
<script type="text/javascript">
// Shiny function to receive messages
Shiny.addCustomMessageHandler("sendMessage",
function(message) {
// call this before modifying the DOM
Shiny.unbindAll();
/* delete the dropdown if it already
@ChrisBeeley
ChrisBeeley / server.R
Created Dec 22, 2015
Minimal example of a full Shiny application
View server.R
library(shiny) # load Shiny at the top of both scripts
shinyServer(function(input, output) { # define application in here
output$textDisplay <- renderText({ # mark function as reactive
# and assign to output$textDisplay for passing to ui.R
paste0("You said '", input$comment, # from the text
"'. There are ", nchar(input$comment), # input control as
View minimal.Rmd
---
title: "Basic RMarkdown Shiny"
author: "Chris Beeley"
output: html_document
runtime: shiny
---
# Example RMarkdown document
This is an interactive document written in *markdown*. As you can see it is easy to include:
@ChrisBeeley
ChrisBeeley / app.R
Last active Jun 12, 2017
Single file app which takes various GET parameters and returns the appropriate date boxes (see below for link to blog post)
View app.R
library(shiny)
library(lubridate)
server = function(input, output, session){
# type = date rolling n months, quarters
output$dateControls <- renderUI({
@ChrisBeeley
ChrisBeeley / server.R
Last active Aug 29, 2015
Minimal application for Shiny Book, 2nd edition
View server.R
library(shiny) # load Shiny at the top of both scripts
shinyServer(function(input, output) { # define application in here
output$textDisplay <- renderText({ # mark function as reactive
# and assign to output$textDisplay for passing to ui.R
paste0("You said '", input$comment, # from the text
"'. There are ", nchar(input$comment), # input control as
" characters in this.") # defined in ui.R
@ChrisBeeley
ChrisBeeley / server.R
Last active Oct 2, 2019
Demo to show widget types, return values and data types in Shiny
View server.R
function(input, output) {
output$textDisplay <- renderTable({
getMat = matrix(
c(paste(input$checkGroup, collapse=','), class(input$checkGroup),
input$boxInput, class(input$boxInput),
as.character(as.Date(input$theDate, origin = "1970-01-01")), class(input$theDate),
paste(as.character(as.Date(input$dateRange[[1]], origin = "1970-01-01")),
as.character(as.Date(input$dateRange[[2]], origin = "1970-01-01")),
You can’t perform that action at this time.