Daniel Pett portableant

## ricepops.json
{"photoset":{"id":"72157649825413560","primary":"15631285654","owner":"115096994@N02","ownername":"MicroPasts","photo":[{"id":"15631285654","secret":"460892781d","server":"7526","farm":8,"title":"dei_census_1930_v1_table1_Page_1","isprimary":"0","ispublic":1,"isfriend":0,"isfamily":0,"originalsecret":"718180ed86","originalformat":"jpg"},{"id":"16066315920","secret":"404531b1cb","server":"7575","farm":8,"title":"dei_census_1930_v1_table1_Page_2","isprimary":"0","ispublic":1,"isfriend":0,"isfamily":0,"originalsecret":"c0bd1058bf","originalformat":"jpg"},{"id":"16066160728","secret":"3edf56c42e","server":"7579","farm":8,"title":"dei_census_1930_v1_table1_Page_3","isprimary":"0","ispublic":1,"isfriend":0,"isfamily":0,"originalsecret":"8d69169a04","originalformat":"jpg"},{"id":"16067551169","secret":"95ea594cb8","server":"7482","farm":8,"title":"dei_census_1930_v1_table1_Page_4","isprimary":"0","ispublic":1,"isfriend":0,"isfamily":0,"originalsecret":"d2fd393d8c","originalformat":"jpg"},{"id":"16252856792","secret"

## autopgsqlbackup
#!/bin/bash
#
# PostgreSQL Backup Script Ver 1.0
# http://autopgsqlbackup.frozenpc.net
# Copyright (c) 2005 Aaron Axelsen <axelseaa@amadmax.com>
#
# This script is based of the AutoMySQLBackup Script Ver 2.2
# It can be found at http://sourceforge.net/projects/automysqlbackup/
#
# The PostgreSQL changes are based on a patch agaisnt AutoMySQLBackup 1.9

## setting-up-earls-heroku.md

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                portableant
                / setting-up-earls-heroku.md
            
            
              Last active
              August 29, 2015 14:27
                — forked from shawngraham/setting-up-earls-heroku.md
            
              
                steps for setting up @edsu's EARLS on Heroku; 
              
          
    Setting up EARLS

Earls is useful for archiving and counting URLS shared in tweets from a particular hashtag, eg., conference backchat etc. Getting it set up on Heroku (a tiered free service) is fairly straightforward. Getting it to go live requires a credit card tied to your account - but if you're using the free tier, this shouldn't be an issue. Anyway, with the help of Dan Pett I learned how to set one up. Dan set up an earls instance for #msudai.
getting ready

get a heroku account
install git
install node

  
## exampleMSUDAI.html
<!DOCTYPE html>
<html>
<head>
<meta charset=utf-8 />
<title>Load GeoJSON</title>
<meta name='viewport' content='initial-scale=1,maximum-scale=1,user-scalable=no' />
<script src='https://api.mapbox.com/mapbox.js/v2.2.1/mapbox.js'></script>
<link href='https://api.mapbox.com/mapbox.js/v2.2.1/mapbox.css' rel='stylesheet' />
<style>
  body { margin:0; padding:0; }

## OAI finds
library('OAIHarvester')
baseurl <- 'https://finds.org.uk/datalabs/oai/request'
data <- oaih_harvest(baseurl, prefix = "oai_dc",from = NULL, until = NULL, set = 'BM',transform = TRUE)

## test.geojson

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                portableant
                / test.geojson
            
            
              Created
              August 25, 2015 06:59
            
              
                A test geojson file
              
          
      Sorry, something went wrong. Reload?
      Sorry, we cannot display this file.
      Sorry, this file is invalid so it cannot be displayed.
      
          Viewer requires iframe.
      
    
## alignTGNtoNomisma.R
#' ----
#' title: " A script for aligning data from the TGN to Nomisma based on Pleiades IDs"
#' author: "Daniel Pett"
#' date: "10/16/2015"
#' output: csv_document
#' ----

setwd("C:\\rstuff")
nomisma <- read.csv("http://nomisma.org/query?query=PREFIX+nm%3A%09%3Chttp%3A%2F%2Fnomisma.org%2Fid%2F%3E%0D%0A++++PREFIX+nmo%3A%09%3Chttp%3A%2F%2Fnomisma.org%2Fontology%23%3E%0D%0A++++PREFIX+skos%3A%09%3Chttp%3A%2F%2Fwww.w3.org%2F2004%2F02%2Fskos%2Fcore%23%3E%0D%0A++++SELECT+*+WHERE+%7B%0D%0A++++%3Furi+a+nmo%3AMint%3B%0D%0A++++skos%3AprefLabel+%3Flabel%3B%0D%0A++++skos%3AcloseMatch+%3Fmatch%3B%0D%0A++++.FILTER+regex%28str%28%3Fmatch%29%2C+%22pleiades%22%29+.%0D%0A++++FILTER%28langMatches%28lang%28%3Flabel%29%2C+%22EN%22%29%29+.%0D%0A++++%7D+LIMIT+100000&output=csv")
names(nomisma) <- c('uri', 'prefLabel', 'pleiades')

## test.geojson

      
              1 file
            
          
              0 forks
            
          
              0 comments
            
          
              0 stars
            
          
                portableant
                / test.geojson
            
            
              Last active
              November 9, 2015 12:46
            
              
                PAS finds geojson
              
          
      Sorry, something went wrong. Reload?
      Sorry, we cannot display this file.
      Sorry, this file is invalid so it cannot be displayed.
      
          Viewer requires iframe.
      
    
## perry.csv

          
            ID
            GEOM
            ATTRIBUTE
            CLASS
            LATITUDE
            LONGITUDE

            
              1
              POLYGON
              B.6
              tomb
              30.33192927
              35.44511046

            
              1
              POLYGON
              B.6
              tomb
              30.33193793
              35.4451296

            
              1
              POLYGON
              B.6
              tomb
              30.33194466
              35.44512644

            
              1
              POLYGON
              B.6
              tomb
              30.33193506
              35.44510488

            
              1
              POLYGON
              B.6
              tomb
              30.33192927
              35.44511046

            
              2
              POLYGON
              B.5
              tomb
              30.33196859
              35.44503376

            
              2
              POLYGON
              B.5
              tomb
              30.33197311
              35.44505717

            
              2
              POLYGON
              B.5
              tomb
              30.33198008
              35.44505588

            
              2
              POLYGON
              B.5
              tomb
              30.3319744
              35.44503141

## minePAS.R
# Download data from PAS search
library(jsonlite)
url <- 'https://finds.org.uk/database/search/results/q/hoard/broadperiod/ROMAN/format/json'
json <- fromJSON(url)
total <- json$meta$totalResults
results <- json$meta$resultsPerPage
pagination <- ceiling(total/results)
keeps <- c("id","old_findID","fromdate", "todate")
data <- json$results
data <- data[,(names(data) %in% keeps)]
	#!/bin/bash
	#
	# PostgreSQL Backup Script Ver 1.0
	# http://autopgsqlbackup.frozenpc.net
	# Copyright (c) 2005 Aaron Axelsen <axelseaa@amadmax.com>
	#
	# This script is based of the AutoMySQLBackup Script Ver 2.2
	# It can be found at http://sourceforge.net/projects/automysqlbackup/
	#
	# The PostgreSQL changes are based on a patch agaisnt AutoMySQLBackup 1.9
	<!DOCTYPE html>
	<html>
	<head>
	<meta charset=utf-8 />
	<title>Load GeoJSON</title>
	<meta name='viewport' content='initial-scale=1,maximum-scale=1,user-scalable=no' />
	<script src='https://api.mapbox.com/mapbox.js/v2.2.1/mapbox.js'></script>
	<link href='https://api.mapbox.com/mapbox.js/v2.2.1/mapbox.css' rel='stylesheet' />
	<style>
	body { margin:0; padding:0; }
	library('OAIHarvester')
	baseurl <- 'https://finds.org.uk/datalabs/oai/request'
	data <- oaih_harvest(baseurl, prefix = "oai_dc",from = NULL, until = NULL, set = 'BM',transform = TRUE)
	#' ----
	#' title: " A script for aligning data from the TGN to Nomisma based on Pleiades IDs"
	#' author: "Daniel Pett"
	#' date: "10/16/2015"
	#' output: csv_document
	#' ----

	setwd("C:\\rstuff")
	nomisma <- read.csv("http://nomisma.org/query?query=PREFIX+nm%3A%09%3Chttp%3A%2F%2Fnomisma.org%2Fid%2F%3E%0D%0A++++PREFIX+nmo%3A%09%3Chttp%3A%2F%2Fnomisma.org%2Fontology%23%3E%0D%0A++++PREFIX+skos%3A%09%3Chttp%3A%2F%2Fwww.w3.org%2F2004%2F02%2Fskos%2Fcore%23%3E%0D%0A++++SELECT+*+WHERE+%7B%0D%0A++++%3Furi+a+nmo%3AMint%3B%0D%0A++++skos%3AprefLabel+%3Flabel%3B%0D%0A++++skos%3AcloseMatch+%3Fmatch%3B%0D%0A++++.FILTER+regex%28str%28%3Fmatch%29%2C+%22pleiades%22%29+.%0D%0A++++FILTER%28langMatches%28lang%28%3Flabel%29%2C+%22EN%22%29%29+.%0D%0A++++%7D+LIMIT+100000&output=csv")
	names(nomisma) <- c('uri', 'prefLabel', 'pleiades')
ID	GEOM	ATTRIBUTE	CLASS	LATITUDE	LONGITUDE
1	POLYGON	B.6	tomb	30.33192927	35.44511046
1	POLYGON	B.6	tomb	30.33193793	35.4451296
1	POLYGON	B.6	tomb	30.33194466	35.44512644
1	POLYGON	B.6	tomb	30.33193506	35.44510488
1	POLYGON	B.6	tomb	30.33192927	35.44511046
2	POLYGON	B.5	tomb	30.33196859	35.44503376
2	POLYGON	B.5	tomb	30.33197311	35.44505717
2	POLYGON	B.5	tomb	30.33198008	35.44505588
2	POLYGON	B.5	tomb	30.3319744	35.44503141
	# Download data from PAS search
	library(jsonlite)
	url <- 'https://finds.org.uk/database/search/results/q/hoard/broadperiod/ROMAN/format/json'
	json <- fromJSON(url)
	total <- json$meta$totalResults
	results <- json$meta$resultsPerPage
	pagination <- ceiling(total/results)
	keeps <- c("id","old_findID","fromdate", "todate")
	data <- json$results
	data <- data[,(names(data) %in% keeps)]