John MacKintosh johnmackintosh

Cool stuff higlighted on Twitter. WIP

I hereby claim:

To claim this, I am signing this object:

	sqlFetchData <- function(connection, database, schema, table, nobs = 'All') {

	#'wrap function to fetch data from SQL Server
	#
	#@ connection: an established odbc connection
	#@ database: database name
	#@ schema: a schema under the main database
	#@ table: the name of the data table to be fetched.
	#@ nobs: number of observation to be fetched. Either 'All' or an integer number.
	# The default value is 'All'. It also supports the input of 'all', 'ALL' and

	library(NHSRdatasets) # install from github for latest dataset
	library(runcharter)
	library(data.table)
	library(magrittr)


	# Load
	data("ae_attendances")

	DT <- setDT(ae_attendances)

	#Setup current fixtures and points per outcome

	library(dplyr)
	library(purrr)
	library(tidyr)
	library(ggplot2)
	library(ggalt)
	library(ggrepel)
	library(ggExtra)
	library(stringr)

	plot_data <- data %>%
	mutate(Movement15 = lubridate::floor_date(MovementDateTime,"15 minutes")) %>%
	group_by(IN_OUT, Movement_Type,Staging_Post,Movement15) %>%
	mutate(counter = if_else(IN_OUT == 'IN',1,-1),
	Movement_15_SEQNO = cumsum(counter)) %>%
	ungroup()

	https://guides.library.upenn.edu/datamgmt/spreadsheet


	https://www.tandfonline.com/doi/full/10.1080/00031305.2017.1375989



	https://about.dataclassroom.com/blog/2019/10/23/keep-your-data-tidy

	# there are a few ways of doing this.. here's one
	`%notin%` = function(x, y) !(x %in% y)