zachcp

I hereby claim:

To claim this, I am signing this object:


	(require '[clj-http.client :as client])
	(require '[clojure.data.csv :as csv])
	(require '[clojure.java.io :as io]))
	(require '[mundaneum.query :refer [describe entity label property query stringify-query default-language clojurize-results Clojurizable]])
	(require '[mundaneum.properties :refer [properties]])
	(require '[backtick :refer [template syntax-quote]])


	;; data loading functions

	SELECT (COUNT(*) as ?agg)
	WHERE {
	SELECT (COUNT(*) as ?count)
	WHERE {
	?item wdt:P235 ?inchi .
	SERVICE wikibase:label { bd:serviceParam wikibase:language "[AUTO_LANGUAGE],en" . }
	}
	GROUP BY ?item
	HAVING( COUNT(?inchi) > 1)
	LIMIT 1000

	#!/bin/bash

	set -o errexit
	set -o nounset


	# handle input file
	readonly INPUT_FILE=$(basename $1)
	readonly INPUT_DIR=$(dirname $(readlink -f $1))
	shift

	(ns ^:figwheel-hooks jsonviewer.core
	'
	An attempt to convert arbitrary json to datascript by;

	1. converting to EDN
	2. walking the EDN to identify cardianlity and ref issue sin the nested data strucutre
	3. creating a new schema from (2)
	4. add db.id s to each nexted map
	5. using updated conn (with new schema), transact the nexted JSON.

	# Download NRPS/PKS CLusters

	AS4 = run_AS_4.sh

	# Abysomycin as Example PKS BGC1
	PKS.gb:
	wget -O $@ http://mibig.secondarymetabolites.org/repository/BGC0000001/BGC0000001.1.final.gbk

	PKS_AS4/PKS/BGC0000001.1.final.gbk: PKS.gb
	bash $(AS4) PKS.gb PKS_AS4 --clusterblast --knownclusterblast --subclusterblast --smcogs --verbose

	{:deps
	{org.jgrapht/jgrapht-core {:mvn/version "1.3.1"}
	org.jgrapht/jgrapht-io {:mvn/version "1.3.1"}}}

	>BGC0000001 Abyssomicin biosynthetic gene cluster
	GTGACCGAGCTCGACCGGGCCTTCGACGCCGTACCGGCCCCGATCTACACCCACCATGAACGGCACGGCGAAACGG
	TGCACCGCTCGGCACCGGAGTCGATCCGCCGCGAGCTGGCCGCCCTGCAGGTCCGCGCCGGGGACCGGGTGCTCGA
	GATCGGTACGGGCTCCGGGTACAGCGGCGCGCTGCTCGCGCACCTGTGCTGCCCGGACGGCCAGGTCACCAGCATC
	GACATCAGCGACGAACTCGTCCGCCGCGCGGCAGCCATCCACGCCGAGCGCGGGGTAACCAGCGTCGACTGCCATG
	TTGGCGACGGACTGGCCGGCTACCCGGCCGCAGCGCCCTTCCATCGAGCTGTTTCGTGGTGTGCTCCGCCGCGGCT
	GCCGAGGGCGTGGACGCAGCAGGTCGTGAACGGTGGGCGGATCGTCGCGTGCCTGCCGATCACGGCCCTGCCGTCG
	ACCACGTTGATCGCCACCATCACCGTTGCGGCCGGGAAACCTCGTATCGAAGCCCTCGCCGGAGGCGGCTACGCCC
	AGAGCACGCCCGTCGCGGTCGACGATGCCCTGACCGTCCCCGGCCGCTGGGTCGACTACTGCGACCGCCAGCCCGA
	TCCGTCCTGGATCGGCATCTGCTGGCGTTCTGCCGACGACGCCCAGCACACCGGCGCTCGCTCCGCCCTCGGCCAG

	(ns wikidataexplore.core
	(:require [mundaneum.query :refer [describe entity label property query]]
	[backtick :refer [template]]
	[clj-time.format :as tf]))


	;; Nobel Prizes by recipient's place of birth
	(query
	'[:select ?countryLabel (count ?p :as ?count)
	:where [[?p (wdt :award-received) ?awd]