kissmygritts’s gists

kissmygritts / WindowsDialogue.vba

Created September 22, 2015 17:52

Window dialogue box interactions with VBA. Select a folder and export to a folder.

	Function PickFile(title As String, start As String, filter As String) As String
	'------------------------------------------------
	' Purpose: Select file from file dialog
	'------------------------------------------------
	Dim dlg As FileDialog
	Set dlg = Application.FileDialog(msoFileDialogFilePicker)

	With dlg
	.title = title
	.InitialFileName = start

kissmygritts / csv_output.VB

Created November 17, 2015 23:13

.CSV output for all collar data

	Sub csv_output()

	Dim rs As DAO.Recordset
	Dim sql As String
	Dim fso As Object, csv As Object
	Dim l As String

	sql = "SELECT * FROM Query3"
	Set rs = CurrentDb.OpenRecordset(sql)
	Set fso = CreateObject("Scripting.FileSystemObject")

kissmygritts / Multi_Text.R

Created November 18, 2015 00:18

Shiny server.R to use a text input as a list to remove/select particular records.

	library(shiny)
	library(ggplot2)
	library(dplyr)
	source("helpers.R")

	shinyServer(function(input, output) {
	#READS INPUT FROM FILE
	inputdata <- reactive({
	if(is.null(input$file)) {return()}
	read.csv(input$file$datapath, header = T, sep = ",", strip.white = T)

kissmygritts / TestingMigrationModels.R

Created November 25, 2015 00:20

quantification of migration.

	library(adehabitatLT)
	library(ggplot2)
	library(data.table)

	data(bear) #LOADS AS CLASS LTRAJ
	dat <- as.data.frame(bear)
	ggplot(dat = dat, aes(x = date, y = R2n)) + geom_point() + geom_line()

	head(dat)
	df <- head(dat[, 1:3], 20)

kissmygritts / SubmitRecord.VB

Created December 3, 2015 16:21

Record submission for data entry form.

	Dim msg As Integer, ndow As Integer, encounter As Integer
	Dim sqlstring As String, capturesql As String, biometricsql As String, barcode As String
	Dim animalsql As String
	Dim ars As DAO.Recordset, crs As DAO.Recordset, recaprs As DAO.Recordset

	actform = Me.Name
	animalsql = "SELECT * FROM data_Animal ORDER BY AnimalKey;"
	capturesql = "SELECT EncounterID, AnimalKey, CapDate, Status, capE, capN, CapMtnRange, CapHuntUnit, CapLocDesc, " & _
	"Street, City, Zip, relE, relN, RelMtnRange, RelHuntUnit, RelLocDesc, Recapture, " & _
	"Relocated, ArrTime, TrTime, AmbTemp, Weather, Wind, Comments, Biologist, Biometrics, " & _

kissmygritts / MultiplePolygons.R

Created June 2, 2016 04:26

functions and color palette for blog post.

	mapPoints <- function(map, df) {
	df <- as.data.table(df)
	df <- df[complete.cases(df[, .(long_x, lat_y)])]
	unq_id <- unique(df$dateid)
	pal <- rep_len(color_pal, length(unq_id))
	layers <- list()

	for(i in 1:length(unq_id)) {
	dat <- df[dateid == unq_id[i]]
	map <- addPolylines(map, lng = dat$long_x, lat = dat$lat_y,

kissmygritts / NSE_data.R

Created June 17, 2016 03:40

	structure(list(Biologist = c("biologist1", "biologist1", "biologist1",
	"biologist1", "biologist1", "biologist1", "biologist1", "biologist1",
	"biologist1", "biologist1", "biologist1", "biologist1", "biologist1",
	"biologist1", "biologist1", "biologist1", "biologist1", "biologist1",
	"biologist1", "biologist1", "biologist1", "biologist1", "biologist1",
	"biologist1", "biologist1", "biologist2", "biologist2", "biologist2",
	"biologist2", "biologist2", "biologist2", "biologist2", "biologist2",
	"biologist2", "biologist2", "biologist2", "biologist2", "biologist2",
	"biologist2", "biologist2", "biologist2", "biologist2", "biologist2",
	"biologist2", "biologist2", "biologist2", "biologist2", "biologist2",

kissmygritts / species.js

Created August 26, 2016 16:56

	[
	{
	CommonName: "Cooper's hawk",
	SpeciesName: "Accipiter cooperii"
	},
	{
	CommonName: "northern goshawk",
	SpeciesName: "Accipiter gentilis"
	},
	{

kissmygritts / species.json

Created August 26, 2016 17:06

	[
	{
	"CommonName": "Cooper's hawk",
	"SpeciesName": "Accipiter cooperii"
	},
	{
	"CommonName": "northern goshawk",
	"SpeciesName": "Accipiter gentilis"
	},
	{

kissmygritts / parseDynamicForms.js

Created October 8, 2016 03:28

Mitchell Gritts kissmygritts