Skip to content

Instantly share code, notes, and snippets.

View CliffordAnderson's full-sized avatar

Clifford Anderson CliffordAnderson

View GitHub Profile
@CliffordAnderson
CliffordAnderson / tei-to-mods.xqy
Created February 16, 2014 02:29
Initial class example
xquery version "3.0";
declare namespace tei = "http://www.tei-c.org/ns/1.0";
declare namespace mods = "http://www.loc.gov/mods/v3";
let $tei := fn:doc("db/test/tei.xml")
let $fileDesc := $tei/tei:TEI/tei:teiHeader/tei:fileDesc
let $title := $fileDesc/tei:titleStmt/tei:title/text()
let $name := $fileDesc/tei:titleStmt/tei:author/text()
let $language := $fileDesc/tei:sourceDesc/tei:p/string(@xml:lang)
let $place := $fileDesc/tei:publicationStmt/tei:pubPlace/text()
@CliffordAnderson
CliffordAnderson / switch.xqy
Created March 17, 2014 17:15
Sample switch expression for Topics in Digital Humanities
xquery version "3.0";
for $day in (1 to 7)
return switch ($day)
case 1 return "Monday"
case 2 return "Tuesday"
case 3 return "Wednesday"
case 4 return "Thursday"
case 5 return "Friday"
case 6 return "Saturday"
@CliffordAnderson
CliffordAnderson / typeswitch.xqy
Created March 17, 2014 17:33
Simple typeswitch example for Topics in Digital Humanities
xquery version "3.0";
declare namespace tei = "http://www.tei-c.org/ns/1.0";
let $doc :=
<TEI xmlns="http://www.tei-c.org/ns/1.0">
<teiHeader type="text">
<fileDesc>
<titleStmt>
<title>Testing XPath</title>
<!DOCTYPE html>
<html>
<head>
<title>GeoJson Experiments</title>
<!-- CSS for MapBox -->
<link href='https://api.tiles.mapbox.com/mapbox.js/v1.6.2/mapbox.css' rel='stylesheet' />
<!-- Javascript for MapBox -->
<script src='https://api.tiles.mapbox.com/mapbox.js/v1.6.2/mapbox.js'></script>
<!DOCTYPE html>
<html>
<head>
<title>GeoJson Experiments</title>
<!-- CSS for MapBox -->
<link href='https://api.tiles.mapbox.com/mapbox.js/v1.6.2/mapbox.css' rel='stylesheet' />
<!-- Javascript for MapBox -->
<script src='https://api.tiles.mapbox.com/mapbox.js/v1.6.2/mapbox.js'></script>
@CliffordAnderson
CliffordAnderson / wordcloud.r
Created March 31, 2014 16:15
WordCloud Example in R
# Uses the 'wordcloud' library to generate a simple wordcloud from a two column CSV file
library("wordcloud", lib.loc="/Library/Frameworks/R.framework/Versions/2.15/Resources/library")
words <- read.csv(file.choose(), header=FALSE)
top <- subset(words, V2 > 100)
pal <- brewer.pal(8, "Accent")
wordcloud(top$V1, top$V2, colors=pal)
@CliffordAnderson
CliffordAnderson / ggplot-example.r
Created March 31, 2014 19:11
GGPlot Cleveland Dot Plot
ggplot(shakes, aes(x=Count, y=reorder(Character, Count), colour=Gender)) + geom_point(size=3) + theme_bw() + theme(panel.grid.major.x = element_blank(), panel.grid.minor.x = element_blank(), panel.grid.major.y = element_line(colour="grey60", linetype="dashed")) + ylab("Character") + labs(title="Words Per Speaker in Much Ado about Nothing")
@CliffordAnderson
CliffordAnderson / alchemy.xqy
Created April 7, 2014 15:35
Alchemy Named Entity example for class
httpclient:post(xs:anyURI("http://access.alchemyapi.com/calls/text/TextGetRankedNamedEntities"), "apikey=[YOURKEYHERE]&amp;text=" || $text, false(), ())
Sorry, something went wrong. Reload?
Sorry, we cannot display this file.
Sorry, this file is invalid so it cannot be displayed.
@CliffordAnderson
CliffordAnderson / map.html
Created April 16, 2014 02:55
JSONP example - queries CouchDB to produce a GeoJSON point in MapBox
<!DOCTYPE html>
<html>
<head>
<title>GeoJSON Experiments</title>
<!-- Javascript for MapBox -->
<script src='https://api.tiles.mapbox.com/mapbox.js/v1.6.2/mapbox.js'></script>
<!-- CSS for MapBox -->
<link href='https://api.tiles.mapbox.com/mapbox.js/v1.6.2/mapbox.css' rel='stylesheet' />
<!-- CDN for JQuery -->