31:T63c,countiesWithBulletins = { var countiesWithBulletins = counties; var countyName = ""; for(let i=0; i< counties.features.length; i++) { countiesWithBulletins.features[i].properties.OGSBulletins= [{"Link":"", "Bulletin":"No data", "Title": "No data"}]; //get name of county, search for the name in the bulletin titles countyName = counties.features[i].properties.NAME10.toLowerCase(); var bulletinCount=0; for(let j=0; j< OGSBulletinDataForCounties.length; j++) { if (countyName !== "oklahoma"){ if (OGSBulletinDataForCounties[j].Title.toLowerCase().includes(countyName + " county") == true || OGSBulletinDataForCounties[j].Title.toLowerCase().includes(countyName + " counties") == true || OGSBulletinDataForCounties[j].Title.toLowerCase().includes(countyName + " and") == true || OGSBulletinDataForCounties[j].Title.toLowerCase().includes(countyName + ",") == true) { countiesWithBulletins.features[i].properties.OGSBulletins[bulletinCount] = OGSBulletinDataForCounties[j]; bulletinCount++; } }else{ if (OGSBulletinDataForCounties[j].Title.toLowerCase().includes(countyName + " county") == true || OGSBulletinDataForCounties[j].Title.toLowerCase().includes(countyName + " counties") == true || OGSBulletinDataForCounties[j].Title.toLowerCase().includes(countyName + " and") == true) { countiesWithBulletins.features[i].properties.OGSBulletins[bulletinCount] = OGSBulletinDataForCounties[j]; bulletinCount++; } } } } return countiesWithBulletins; }32:T4a6, function mapInterface() { const width=500, height=300; const svg = d3.select(DOM.svg(width, height)) var node = svg.node(); // Use Oklahoma-South state plane projection var projection = d3.geoConicConformal() .parallels([33 + 56 / 60, 35 + 14 / 60]) .rotate([98, 0]) .fitSize([width, height], counties); var path = d3.geoPath() .projection(projection); const group = svg.append('g') .style("position", "absolute") .style("z-index",3); group.selectAll('path') .data(counties.features) .enter() .append('path') .attr('d', path) .style('fill', 'white') .style('stroke', 'gray') .on("mouseover", function() { //mutable tableData=d.properties.OGSBulletins; d3.selectAll("path") .style("stroke", "gray") .style("stroke-width", 1); d3.select(this) .style("stroke", "black") .style("stroke-width", 2) .raise(); }) .on("click", function(d) { node.value = d.properties.OGSBulletins; node.dispatchEvent(new CustomEvent("input")); }) .append("title") .text(d => `${d.properties.NAMELSAD10}`); return node; }33:[{"id":"53766ec1f100b575f5f6b99420f876d30eb3b8914b4810d0728a3f55439d2d7f48430c470a80c0cc581b696db33c8882c90fd3ab05e9635c0ca92887caefa4f6","href":"https://static.observableusercontent.com/files/53766ec1f100b575f5f6b99420f876d30eb3b8914b4810d0728a3f55439d2d7f48430c470a80c0cc581b696db33c8882c90fd3ab05e9635c0ca92887caefa4f6","name":"tl_2010_40_county10.json","type":"application/json","lastModified":1581961692495.676,"size":4607949},{"id":"03be883883468425c2e3ce8dbdb612f4cc70c13ea80ec971c7744ae97d88980dd944be45df506d4c0fc2f066f3fbe567c8943a2cc7e106fce113d3313b6eca34","href":"https://static.observableusercontent.com/files/03be883883468425c2e3ce8dbdb612f4cc70c13ea80ec971c7744ae97d88980dd944be45df506d4c0fc2f066f3fbe567c8943a2cc7e106fce113d3313b6eca34","name":"ogsbullentins_countyfilter@6.txt","type":"text/plain","lastModified":1582067269458.284,"size":53042}] 2f:{"title":"Oklahoma Geological Survey Bulletins by County","cells":[{"id":0,"value":"md`# Oklahoma Geological Survey Bulletins by County`","pinned":false,"hidden":false,"mode":"ojs"},{"id":282,"value":"md`The [Oklahoma Geological Survey Bulletins](http://www.ou.edu/ogs/publications/bulletins) have a wealth of information on the geology of Oklahoma with reports dating back to the early 1900s! Lucky for us, these old records have been digitized (they are scanned images, but still very nice to have). This notebook maps out the bulletins corresponding to specific counties. Thanks to the [OGS](https://twitter.com/okgeology?lang=en) for making this data available, and to [Tom MacWright](https://observablehq.com/@tmcw) for his convenient [tables module](https://observablehq.com/@tmcw/tables). Thanks also to [Harry Stevens](https://observablehq.com/@harrystevens) for the suggestion to improve the hover indicator and to [Jeshurun Hembd](https://observablehq.com/@jjhembd) for help replacing mutables with viewof.\n\nSimply click on a county to update the bulletin table below:`","pinned":false,"hidden":false,"mode":"ojs"},{"id":350,"value":"viewof tableData2 = mapInterface()","pinned":false,"hidden":false,"mode":"ojs"},{"id":198,"value":"table(tableData2, {\n //sortable: true,\n //paged: 5,\n columns: {\n Bulletin: {},\n Link: {\n formatter(val){\n return html`Link`\n }\n },\n Title: {}\n }\n})","pinned":false,"hidden":false,"mode":"ojs"},{"id":348,"value":"md`###
Here is the step-by-step code: \n\n1. Scrape the table of bulletins from the OGS website
\n2. Filter bulletins that refer to one or more counties
\n3. Attach bulletin info for each county to the county-geojson
\n4. Draw a county map interface to print a table of bulletins for each county

`","pinned":false,"hidden":false,"mode":"ojs"},{"id":347,"value":"md`#### Step 1: Scrape the table of bulletins using Axios and Cheerio` ","pinned":false,"hidden":false,"mode":"ojs"},{"id":316,"value":"OGSBulletinsUrl = \"https://cors-anywhere.herokuapp.com/http://www.ou.edu/ogs/publications/bulletins\"","pinned":false,"hidden":false,"mode":"ojs"},{"id":344,"value":"result = await axios({\n method: \"get\",\n url: OGSBulletinsUrl\n});","pinned":false,"hidden":false,"mode":"ojs"},{"id":343,"value":"$$ = cheerio.load(result.data);","pinned":false,"hidden":false,"mode":"ojs"},{"id":342,"value":"OGSBulletinData = {\n \n //Parse cheerio data to extract bulletin information\n var tableLength= ($(\"#main > div > div > div.span8 > div.contentpar.parsys > div.code.section > table > tbody\")[0].children.length); \n \n var OGSBulletinData = [];\n var j=0;\n for (let i=1; i div > div > div.span8 > div.contentpar.parsys > div.code.section > table > tbody\")[0].children[i].children[0].children[0].attribs.href;\n OGSBulletinData[j].Bulletin = $(\"#main > div > div > div.span8 > div.contentpar.parsys > div.code.section > table > tbody\")[0].children[i].children[0].children[0].children[0].data;\n OGSBulletinData[j].Title = $(\"#main > div > div > div.span8 > div.contentpar.parsys > div.code.section > table > tbody\")[0].children[i].children[1].children[0].data;\n j++;\n }\n return OGSBulletinData;\n}","pinned":false,"hidden":false,"mode":"ojs"},{"id":341,"value":"md`####
Step 2: Filter bulletins that include a county name in their title `","pinned":false,"hidden":false,"mode":"ojs"},{"id":340,"value":"OGSBulletinDataForCounties={\n var data =[];\n for(let i=0; iStep 3: Attach this bulletin info to the properties of a county-geojson `","pinned":false,"hidden":false,"mode":"ojs"},{"id":19,"value":"counties = FileAttachment(\"tl_2010_40_county10.json\").json() //https://data.csa.ou.edu/list.html, converted to geojson with mapshaper","pinned":false,"hidden":false,"mode":"ojs"},{"id":42,"value":"$31","pinned":false,"hidden":false,"mode":"ojs"},{"id":334,"value":"md`####
Step 4: Draw a county map interface where a click brings up a table of bulletins for the county `","pinned":false,"hidden":false,"mode":"ojs"},{"id":43,"value":"$32","pinned":false,"hidden":false,"mode":"ojs"},{"id":331,"value":"md`###

Imports:`","pinned":false,"hidden":false,"mode":"ojs"},{"id":7,"value":"d3 = require(\"d3\")","pinned":false,"hidden":false,"mode":"ojs"},{"id":196,"value":"import {table} from \"@tmcw/tables@513\"","pinned":false,"hidden":false,"mode":"ojs"},{"id":318,"value":"axios = require(\"axios@0.19.0/dist/axios.js\");","pinned":true,"hidden":false,"mode":"ojs"},{"id":321,"value":"cheerio = require('https://bundle.run/cheerio@1.0.0-rc.2')","pinned":true,"hidden":false,"mode":"ojs"},{"id":8,"value":"//bulletins=d3.tsvParse(bulletinsTSV)","pinned":false,"hidden":false,"mode":"ojs"},{"id":2,"value":"//bulletinsTSV = FileAttachment(\"ogsbullentins_countyfilter@6.txt\").text()","pinned":false,"hidden":false,"mode":"ojs"},{"id":219,"value":"//mutable tableData = [{\"Link\":\"\", \"Bulletin\": \"\", \"Title\": \"\"}];","pinned":true,"hidden":false,"mode":"ojs"}],"files":"$W33","stdlib":"1","titling":"auto"}