update slides

PttCrawler/RPTT/.Rbuildignore

@@ -0,0 +1,2 @@
+^.*\.Rproj$
+^\.Rproj\.user$

PttCrawler/RPTT/.Rhistory

@@ -0,0 +1,40 @@
+install.packages("roxygen2")
+library(roxygen2)
+roxygenise()
+roxygenise()
+roxygenise()
+library(RPTT)
+exmaple(getPostData)
+example(getPostData)
+example(getPostUrls)
+?getPostUrls
+library(httr)
+?httr
+GET("http://httpbin.org/basic-auth/user/passwd",
+authenticate("user", "passwd"))
+GET("http://httpbin.org/basic-auth/user/passwd")
+verbose()
+reset_config()
+cookies("http://lvr.land.moi.gov.tw")
+cookies("lvr.land.moi.gov.tw")
+HEAD("https://www.google.com")
+res1 = GET("http://lvr.land.moi.gov.tw/N11/homePage.action")
+cookies(res1)
+res2 = GET("http://lvr.land.moi.gov.tw/N11/ImageNumberN13?")
+captcha <- content(res2)
+plot(0:1, 0:1, type = "n")
+library(jpeg)
+install.packages("jpeg")
+res2 = GET("http://lvr.land.moi.gov.tw/N11/ImageNumberN13?")
+captcha <- content(res2)
+plot(0:1, 0:1, type = "n")
+rasterImage(captcha, 0, 0, 1, 1)
+res2 = GET("http://lvr.land.moi.gov.tw/N11/ImageNumberN13?")
+captcha <- content(res2)
+plot(0:1, 0:1, type = "n")
+rasterImage(captcha, 0, 0, 1, 1)
+res1Node = content(res1)
+res1Node["//form//input"]
+library(RPTT)
+library(roxygen2)
+roxygenise()

PttCrawler/RPTT/.Rproj.user/1B7B52ED/build_options

@@ -0,0 +1,4 @@
+auto_roxygenize_for_build_and_reload="1"
+auto_roxygenize_for_build_package="1"
+auto_roxygenize_for_check="1"
+makefile_args=""

PttCrawler/RPTT/.Rproj.user/1B7B52ED/pcs/debug-breakpoints.pper

@@ -0,0 +1,6 @@
+{
+    "debugBreakpointsState" : {
+        "breakpoints" : [
+        ]
+    }
+}

PttCrawler/RPTT/.Rproj.user/1B7B52ED/pcs/files-pane.pper

@@ -0,0 +1,9 @@
+{
+    "path" : "/project/CaseStudies/Case6PttGossiping/RPTT",
+    "sortOrder" : [
+        {
+            "ascending" : true,
+            "columnIndex" : 2
+        }
+    ]
+}

PttCrawler/RPTT/.Rproj.user/1B7B52ED/pcs/source-pane.pper

@@ -0,0 +1,3 @@
+{
+    "activeTab" : 2
+}

PttCrawler/RPTT/.Rproj.user/1B7B52ED/pcs/windowlayoutstate.pper

@@ -0,0 +1,14 @@
+{
+    "left" : {
+        "panelheight" : 771,
+        "splitterpos" : 334,
+        "topwindowstate" : "NORMAL",
+        "windowheight" : 841
+    },
+    "right" : {
+        "panelheight" : 771,
+        "splitterpos" : 501,
+        "topwindowstate" : "NORMAL",
+        "windowheight" : 841
+    }
+}

PttCrawler/RPTT/.Rproj.user/1B7B52ED/pcs/workbench-pane.pper

@@ -0,0 +1,4 @@
+{
+    "TabSet1" : 2,
+    "TabSet2" : 3
+}

PttCrawler/RPTT/.Rproj.user/1B7B52ED/persistent-state

@@ -0,0 +1,11 @@
+abend="0"
+active-client-id="1d61f9f4-4d45-47a6-b727-dfc92fc44dcf"
+build-last-errors="[]"
+build-last-errors-base-dir="/project/CaseStudies/Case6PttGossiping/RPTT/"
+build-last-outputs="[{\"output\":\"==> devtools::document(roclets=c('rd', 'namespace'))\\n\\n\",\"type\":0},{\"output\":\"Updating RPTT documentation\\nLoading RPTT\\n\",\"type\":2},{\"output\":\"Documentation completed\\n\\n\",\"type\":1},{\"output\":\"==> R CMD INSTALL --no-multiarch --with-keep.source RPTT\\n\\n\",\"type\":0},{\"output\":\"* installing to library ‘/usr/local/lib/R/site-library’\\n\",\"type\":1},{\"output\":\"* installing *source* package ‘RPTT’ ...\\n\",\"type\":1},{\"output\":\"\",\"type\":1},{\"output\":\"** R\\n\",\"type\":1},{\"output\":\"** preparing package for lazy loading\\n\",\"type\":1},{\"output\":\"\",\"type\":1},{\"output\":\"** help\\n\",\"type\":1},{\"output\":\"\",\"type\":1},{\"output\":\"*** installing help indices\\n\",\"type\":1},{\"output\":\"** building package indices\\n\",\"type\":1},{\"output\":\"** testing if installed package can be loaded\\n\",\"type\":1},{\"output\":\"\",\"type\":1},{\"output\":\"* DONE (RPTT)\\n\",\"type\":1},{\"output\":\"\",\"type\":1}]"
+compile_pdf_state="{\"errors\":[],\"output\":\"\",\"running\":false,\"tab_visible\":false,\"target_file\":\"\"}"
+console_procs="[]"
+files.monitored-path=""
+find-in-files-state="{\"handle\":\"\",\"input\":\"\",\"path\":\"\",\"regex\":true,\"results\":{\"file\":[],\"line\":[],\"lineValue\":[],\"matchOff\":[],\"matchOn\":[]},\"running\":false}"
+imageDirtyState="1"
+saveActionState="-1"

PttCrawler/RPTT/.Rproj.user/1B7B52ED/sdb/per/t/21D59AF4

@@ -0,0 +1,16 @@
+{
+    "contents" : "# \n# library(httr)\n# library(XML)\n# library(dplyr)\n# \n# \n####################################################\n# getCityCodes via POST cityid\n####################################################\n\n#' getCityCodes via POST cityid\n#' \n#' getCityCodes via POST cityid\n#'\n#' @examples\n#' cityCodeDf = getCityCodes()\n#' View(cityCodeDf)\n#' @export\ngetCityCodes = function(){\n  # function input:\n  res = GET(\"http://emap.pcsc.com.tw/lib/areacode.js\")\n  resText = content(res,\"text\",encoding = \"utf8\")\n  matches = gregexpr(\"AreaNode[(][^,]+(,[^,]+){3}\",resText)\n  unlist(regmatches(resText,matches))\n  cityCodesStr = unlist(regmatches(resText,matches))\n  cityCodes = lapply(cityCodesStr[2:length(cityCodesStr)],function(str){\n    matches = gregexpr(\"[']([^']+)[']\",str)\n    return(gsub(\"'\",\"\",unlist(regmatches(str,matches))))\n  })\n  \n  cityCodesDf = data.frame(do.call(rbind,cityCodes),stringsAsFactors = FALSE)\n  colnames(cityCodesDf) = c(\"cityName\",\"cityCode\")\n  # function output:\n  return(cityCodesDf)\n}\n\n\n####################################################\n# getOneTownDf via POST cityid\n####################################################\n\n#' getOneTownDf via POST cityid\n#' \n#' getOneTownDf via POST cityid\n#' \n#' @examples\n#' View(getOneTownDf(\"01\"))\n#' \n#' @export\ngetOneTownDf = function(cityCode){\n  # function input: cityCode\n  # cityCode = \"09\"\n  # connector\n  res = POST(\"http://emap.pcsc.com.tw/EMapSDK.aspx\",\n             body=list(commandid=\"GetTown\",cityid=cityCode))\n  \n  # parser\n  node = xmlParse(content(res,as=\"text\"))\n  townDf = xmlToDataFrame(node[\"//GeoPosition\"],stringsAsFactors = FALSE)\n  if (dim(townDf)[1] > 0){\n    townDf = data.frame(cityCode=cityCode,townDf,stringsAsFactors = FALSE)\n    # function output:\n    return(townDf)  \n  }else{\n    return(NULL)\n  }\n  \n}\n\n\n####################################################\n# getTownDf via POST cityCodes\n####################################################\n\n#' getTownDf via POST cityCodes\n#' \n#' getTownDf via POST cityCodes\n#' \n#' @examples\n#' cityCodeDf = getCityCodes()\n#' townDf = getTownDf(cityCodeDf$cityCode)\n#' View(townDf)\n#' \n#' @export\ngetTownDf = function(cityCodes){\n  # function input: cityCodes\n  # cityCodes = cityCodesDf$cityCode\n  \n  listTownDfs = lapply(cityCodes,getOneTownDf)\n  \n  townDf = do.call(rbind,listTownDfs[!sapply(listTownDfs,is.null)])\n  townDf = inner_join(getCityCodes(),townDf,by = \"cityCode\")\n  # function output:\n  return(townDf)\n}\n\n\n####################################################\n# getStoreData via POST cityName and townName\n####################################################\n\n#' getStoreData via POST cityName and townName\n#' \n#' getStoreData via POST cityName and townName\n#' \n#' @examples\n#' cityCodeDf = getCityCodes()\n#' townDf = getTownDf(cityCodeDf$cityCode)\n#' testTownDf = townDf[,c(\"cityName\",\"TownName\")][1:10,]\n#' listOfData = apply(testTownDf,1,function(x){\n#'    print(getStoreData(x[1],x[2]))\n#' })\n#' totalDf = do.call(rbind,listOfData)\n#' View(totalDf)\n#' \n#' @export\ngetStoreData = function(cityName, townName){\n  # function input: cityName, townName\n  # cityName = \"台北市\"\n  # townName = \"大安區\"\n  \n  \n  # connector\n  res = POST(\"http://emap.pcsc.com.tw/EMapSDK.aspx\",\n             body=list(commandid=\"SearchStore\",city=cityName,town=townName))\n  \n  # parser\n  node = xmlParse(content(res,as=\"text\"))\n  storeDf = xmlToDataFrame(node[\"//GeoPosition\"])\n  # function output: \n  return(storeDf)\n}\n\n",
+    "created" : 1431440678270.000,
+    "dirty" : false,
+    "encoding" : "UTF-8",
+    "folds" : "",
+    "hash" : "1054550768",
+    "id" : "21D59AF4",
+    "lastKnownWriteTime" : 1431260529,
+    "path" : "/project/CaseStudies/Case4SevenElevenAddress/RCrawlerTW711/R/RCrawlerTW711.R",
+    "project_path" : null,
+    "properties" : {
+    },
+    "source_on_save" : false,
+    "type" : "r_source"
+}

PttCrawler/RPTT/.Rproj.user/1B7B52ED/sdb/per/t/5F0A45A7

@@ -0,0 +1,16 @@
+{
+    "contents" : "# Generated by roxygen2 (4.1.1): do not edit by hand\n\nexport(getListPageUrls)\nexport(getPostData)\nexport(getPostUrls)\n",
+    "created" : 1431440988855.000,
+    "dirty" : false,
+    "encoding" : "UTF-8",
+    "folds" : "",
+    "hash" : "2835027344",
+    "id" : "5F0A45A7",
+    "lastKnownWriteTime" : 1431440984,
+    "path" : "/project/CaseStudies/Case6PttGossiping/RPTT/NAMESPACE",
+    "project_path" : "NAMESPACE",
+    "properties" : {
+    },
+    "source_on_save" : false,
+    "type" : "r_namespace"
+}

PttCrawler/RPTT/.Rproj.user/1B7B52ED/sdb/per/t/8B45A3C8

@@ -0,0 +1,16 @@
+{
+    "contents" : "\nrm(list=ls(all.names = TRUE))\n\nsource(\"packIntoFunction.R\")\n\nlistPageUrls = getListPageUrls(\"Gossiping\")[1:5]\nlistPageUrls\n\npostUrls = unlist(lapply(listPageUrls,getPostUrls))\npostUrls\n\ngetPostData(\"https://www.ptt.cc/bbs/Gossiping/M.1431338763.A.1BF.html\")\ngetPostData(postUrls[2])\npostData = lapply(postUrls[3:5],getPostData)\n\npostDf = data.frame(do.call(rbind,lapply(postData,function(xx) xx$postData)))\npushDf = do.call(rbind,lapply(postData,function(xx) xx$pushDf))\n",
+    "created" : 1431440792844.000,
+    "dirty" : false,
+    "encoding" : "UTF-8",
+    "folds" : "",
+    "hash" : "2511869469",
+    "id" : "8B45A3C8",
+    "lastKnownWriteTime" : 1431440358,
+    "path" : "/project/CaseStudies/Case6PttGossiping/test.R",
+    "project_path" : null,
+    "properties" : {
+    },
+    "source_on_save" : false,
+    "type" : "r_source"
+}

PttCrawler/RPTT/.Rproj.user/1B7B52ED/sdb/per/t/E2D4665A

@@ -0,0 +1,16 @@
+{
+    "contents" : "\nlibrary(httr)\nlibrary(CSS)\n\n####################################################\n# getListPageUrls via boardName\n####################################################\n\ngetListPageUrls = function(boardName){  \n  # function input: boardName\n  # boardName = \"Gossiping\"\n  \n  boardUrl = sprintf(\"https://www.ptt.cc/bbs/%s/index.html\",boardName)\n  res <- GET(boardUrl,set_cookies(over18=1))\n  node = content(res, encoding = \"utf8\")\n  \n  node[cssToXpath(\"div.btn-group.pull-right > a\")]\n  maxPage = as.numeric(gsub(\".html\",\"\",unlist(strsplit(xmlAttrs(node[cssToXpath(\"div.btn-group.pull-right > a\")][[2]])[\"href\"],split = \"index\"))[2]))\n  \n  allListPages = c(\"\",1:maxPage)\n  allListUrls = sapply(allListPages,function(page){\n    sprintf(\"https://www.ptt.cc/bbs/%s/index%s.html\",boardName,page)\n  })\n  # function output: allListUrls\n  allListUrls\n  \n}\n\n\n####################################################\n# getPostUrls via listPageUrl\n####################################################\n\ngetPostUrls = function(listPageUrl){\n  # function input: listPageUrl\n  # listPageUrl = allListUrls[10]\n  \n  res <- GET(listPageUrl,set_cookies(over18=1))\n  node = content(res, encoding = \"utf8\")\n  node[cssToXpath(\".title a\")]\n  postUrls = cssApply(node,\".title a\",function(node){\n    sprintf(\"https://www.ptt.cc%s\",xmlAttrs(node)[\"href\"])\n  })\n  # function output: postUrls\n  postUrls\n  \n}\n\n####################################################\n# getPostData via postUrl\n####################################################\n\ngetPostData = function(postUrl){\n  # function input: postUrl\n  # postUrl <- \"https://www.ptt.cc/bbs/Gossiping/M.1431338763.A.1BF.html\"\n  res <- GET(postUrl,set_cookies(over18=1))\n  node = content(res, encoding = \"utf8\")\n  \n  postData = list()\n  postData$Board = cssApply(node,\".article-metaline-right > .article-meta-value\",cssCharacter)\n  \n  metaTemp = cssApply(node,\".article-metaline > .article-meta-value\",cssCharacter)\n  \n  postData$Author = metaTemp[1]\n  postData$Title = metaTemp[2]\n  postData$Time = metaTemp[3]\n  \n  removeNodes(node[cssToXpath(\".article-metaline-right > .article-meta-value\")])\n  removeNodes(node[cssToXpath(\".article-metaline > .article-meta-value\")])\n  \n  postData$Text = xmlValue(node[cssToXpath(\"#main-content\")][[1]])\n  \n  postData$postUrl = postUrl\n  postData$postId = gsub(\"[/]|.html\",\"\",unlist(strsplit(postUrl,postData$Board))[2])\n  \n  pustData = lapply(node[cssToXpath(\"div.push\")],function(test){\n    list(pushTag=xmlValue(test[\"span\"][[1]]),\n         userId=xmlValue(test[\"span\"][[2]]),\n         text=xmlValue(test[\"span\"][[3]]),\n         time=xmlValue(test[\"span\"][[4]]))\n  })\n  \n  \n  pushDf = data.frame(postId = postData$postId,\n                      postUrl = postUrl,\n                      do.call(rbind,pustData),stringsAsFactors = FALSE)\n  \n  # function output: \n  list(postData=postData,pushDf=pushDf)\n    \n} \n\n",
+    "created" : 1431440600741.000,
+    "dirty" : false,
+    "encoding" : "UTF-8",
+    "folds" : "",
+    "hash" : "432081221",
+    "id" : "E2D4665A",
+    "lastKnownWriteTime" : 1431438979,
+    "path" : "/project/CaseStudies/Case6PttGossiping/packIntoFunction.R",
+    "project_path" : null,
+    "properties" : {
+    },
+    "source_on_save" : false,
+    "type" : "r_source"
+}

PttCrawler/RPTT/.Rproj.user/1B7B52ED/sdb/per/t/E497BC31

@@ -0,0 +1,16 @@
+{
+    "contents" : "Package: RPTT\nType: Package\nTitle: What the package does (short line)\nVersion: 0.0.1\nDate: 2015-05-12\nAuthor: Chia-Chi Chang<[email protected]>\nMaintainer: Chia-Chi Chang<[email protected]>\nDescription: More about what it does (maybe more than one line)\nLicense: What license is it under?\nDepends: httr, CSS",
+    "created" : 1431440635390.000,
+    "dirty" : false,
+    "encoding" : "UTF-8",
+    "folds" : "",
+    "hash" : "1771831231",
+    "id" : "E497BC31",
+    "lastKnownWriteTime" : 1431441392,
+    "path" : "/project/CaseStudies/Case6PttGossiping/RPTT/DESCRIPTION",
+    "project_path" : "DESCRIPTION",
+    "properties" : {
+    },
+    "source_on_save" : false,
+    "type" : "dcf"
+}

PttCrawler/RPTT/.Rproj.user/1B7B52ED/sdb/per/t/F2DD6CB1

@@ -0,0 +1,16 @@
+{
+    "contents" : "\n\n####################################################\n# getListPageUrls via boardName\n####################################################\n\n#' title: getListPageUrls via boardName \n#' \n#' des: getListPageUrls via boardName \n#' \n#' @param boardName blablabla\n#' @examples\n#' listPageUrls = getListPageUrls(\"Gossiping\")[1:5]\n#' View(listPageUrls)\n#' @export\ngetListPageUrls = function(boardName){  \n  # function input: boardName\n  # boardName = \"Gossiping\"\n  \n  boardUrl = sprintf(\"https://www.ptt.cc/bbs/%s/index.html\",boardName)\n  res <- GET(boardUrl,set_cookies(over18=1))\n  node = content(res, encoding = \"utf8\")\n  \n  node[cssToXpath(\"div.btn-group.pull-right > a\")]\n  maxPage = as.numeric(gsub(\".html\",\"\",unlist(strsplit(xmlAttrs(node[cssToXpath(\"div.btn-group.pull-right > a\")][[2]])[\"href\"],split = \"index\"))[2]))\n  \n  allListPages = c(\"\",1:maxPage)\n  allListUrls = sapply(allListPages,function(page){\n    sprintf(\"https://www.ptt.cc/bbs/%s/index%s.html\",boardName,page)\n  })\n  # function output: allListUrls\n  allListUrls\n  \n}\n\n\n####################################################\n# getPostUrls via listPageUrl\n####################################################\n\n#' title: getPostUrls via listPageUrl\n#' \n#' des: getPostUrls via listPageUrl \n#' \n#' @param listPageUrl blablabla\n#' @examples\n#' listPageUrls = getListPageUrls(\"Gossiping\")[1:5]\n#' postUrls = unlist(lapply(listPageUrls,getPostUrls))\n#' View(postUrls)\n#' @export\ngetPostUrls = function(listPageUrl){\n  # function input: listPageUrl\n  # listPageUrl = allListUrls[10]\n  \n  res <- GET(listPageUrl,set_cookies(over18=1))\n  node = content(res, encoding = \"utf8\")\n  node[cssToXpath(\".title a\")]\n  postUrls = cssApply(node,\".title a\",function(node){\n    sprintf(\"https://www.ptt.cc%s\",xmlAttrs(node)[\"href\"])\n  })\n  # function output: postUrls\n  postUrls\n  \n}\n\n####################################################\n# getPostData via postUrl\n####################################################\n\n#' title: getPostData via postUrl\n#' \n#' des: getPostData via postUrl\n#' \n#' @param postUrl blablabla\n#' @examples\n#' getPostData(\"https://www.ptt.cc/bbs/Gossiping/M.1431338763.A.1BF.html\")\n#' @export\ngetPostData = function(postUrl){\n  # function input: postUrl\n  # postUrl <- \"https://www.ptt.cc/bbs/Gossiping/M.1431338763.A.1BF.html\"\n  res <- GET(postUrl,set_cookies(over18=1))\n  node = content(res, encoding = \"utf8\")\n  \n  postData = list()\n  postData$Board = cssApply(node,\".article-metaline-right > .article-meta-value\",cssCharacter)\n  \n  metaTemp = cssApply(node,\".article-metaline > .article-meta-value\",cssCharacter)\n  \n  postData$Author = metaTemp[1]\n  postData$Title = metaTemp[2]\n  postData$Time = metaTemp[3]\n  \n  removeNodes(node[cssToXpath(\".article-metaline-right > .article-meta-value\")])\n  removeNodes(node[cssToXpath(\".article-metaline > .article-meta-value\")])\n  \n  postData$Text = xmlValue(node[cssToXpath(\"#main-content\")][[1]])\n  \n  postData$postUrl = postUrl\n  postData$postId = gsub(\"[/]|.html\",\"\",unlist(strsplit(postUrl,postData$Board))[2])\n  \n  pustData = lapply(node[cssToXpath(\"div.push\")],function(test){\n    list(pushTag=xmlValue(test[\"span\"][[1]]),\n         userId=xmlValue(test[\"span\"][[2]]),\n         text=xmlValue(test[\"span\"][[3]]),\n         time=xmlValue(test[\"span\"][[4]]))\n  })\n  \n  \n  pushDf = data.frame(postId = postData$postId,\n                      postUrl = postUrl,\n                      do.call(rbind,pustData),stringsAsFactors = FALSE)\n  \n  # function output: \n  list(postData=postData,pushDf=pushDf)\n  \n} \n\n",
+    "created" : 1431440596763.000,
+    "dirty" : false,
+    "encoding" : "UTF-8",
+    "folds" : "",
+    "hash" : "1270892790",
+    "id" : "F2DD6CB1",
+    "lastKnownWriteTime" : 1431440979,
+    "path" : "/project/CaseStudies/Case6PttGossiping/RPTT/R/RPTT.R",
+    "project_path" : "R/RPTT.R",
+    "properties" : {
+    },
+    "source_on_save" : false,
+    "type" : "r_source"
+}

PttCrawler/RPTT/.Rproj.user/1B7B52ED/sdb/prop/1063D156

@@ -0,0 +1,2 @@
+{
+}

PttCrawler/RPTT/.Rproj.user/1B7B52ED/sdb/prop/11CD350

@@ -0,0 +1,2 @@
+{
+}

PttCrawler/RPTT/.Rproj.user/1B7B52ED/sdb/prop/259A3E24

@@ -0,0 +1,2 @@
+{
+}

PttCrawler/RPTT/.Rproj.user/1B7B52ED/sdb/prop/43625598

@@ -0,0 +1,2 @@
+{
+}

PttCrawler/RPTT/.Rproj.user/1B7B52ED/sdb/prop/53FB5F38

@@ -0,0 +1,2 @@
+{
+}

PttCrawler/RPTT/.Rproj.user/1B7B52ED/sdb/prop/7ED48DBF

@@ -0,0 +1,2 @@
+{
+}

PttCrawler/RPTT/.Rproj.user/1B7B52ED/sdb/prop/91C881C8

@@ -0,0 +1,2 @@
+{
+}

PttCrawler/RPTT/.Rproj.user/1B7B52ED/sdb/prop/9DBF3A09

@@ -0,0 +1,2 @@
+{
+}

PttCrawler/RPTT/.Rproj.user/1B7B52ED/sdb/prop/9ED5F9CF

@@ -0,0 +1,2 @@
+{
+}

PttCrawler/RPTT/.Rproj.user/1B7B52ED/sdb/prop/INDEX

@@ -0,0 +1,9 @@
+%2Fproject%2FCaseStudies%2FCase4SevenElevenAddress%2FRCrawlerTW711%2FDESCRIPTION="91C881C8"
+%2Fproject%2FCaseStudies%2FCase4SevenElevenAddress%2FRCrawlerTW711%2FR%2FRCrawlerTW711.R="1063D156"
+%2Fproject%2FCaseStudies%2FCase4SevenElevenAddress%2Ftest.R="43625598"
+%2Fproject%2FCaseStudies%2FCase6PttGossiping%2FRPTT%2FDESCRIPTION="11CD350"
+%2Fproject%2FCaseStudies%2FCase6PttGossiping%2FRPTT%2FNAMESPACE="259A3E24"
+%2Fproject%2FCaseStudies%2FCase6PttGossiping%2FRPTT%2FR%2FRPTT.R="7ED48DBF"
+%2Fproject%2FCaseStudies%2FCase6PttGossiping%2FRPTT%2FRead-and-delete-me="9DBF3A09"
+%2Fproject%2FCaseStudies%2FCase6PttGossiping%2FpackIntoFunction.R="9ED5F9CF"
+%2Fproject%2FCaseStudies%2FCase6PttGossiping%2Ftest.R="53FB5F38"

PttCrawler/RPTT/.Rproj.user/D5C88E2A/graphics-r3/INDEX

@@ -0,0 +1,4 @@
+4c932b10-f511-41eb-8550-62c939eb47d3
+02cd19dd-0fc8-412a-9393-5a5e4c3eedab:779,450
+03f7150b-22e7-42e6-8daa-4a8c919dfc7d:779,450
+4c932b10-f511-41eb-8550-62c939eb47d3:779,450

PttCrawler/RPTT/.Rproj.user/D5C88E2A/pcs/debug-breakpoints.pper

@@ -0,0 +1,6 @@
+{
+    "debugBreakpointsState" : {
+        "breakpoints" : [
+        ]
+    }
+}

PttCrawler/RPTT/.Rproj.user/D5C88E2A/pcs/files-pane.pper

@@ -0,0 +1,9 @@
+{
+    "path" : "/project/CaseStudies/Case7LandMoiGov",
+    "sortOrder" : [
+        {
+            "ascending" : true,
+            "columnIndex" : 2
+        }
+    ]
+}

PttCrawler/RPTT/.Rproj.user/D5C88E2A/pcs/source-pane.pper

@@ -0,0 +1,3 @@
+{
+    "activeTab" : 0
+}

PttCrawler/RPTT/.Rproj.user/D5C88E2A/pcs/windowlayoutstate.pper

@@ -0,0 +1,14 @@
+{
+    "left" : {
+        "panelheight" : 771,
+        "splitterpos" : 336,
+        "topwindowstate" : "NORMAL",
+        "windowheight" : 841
+    },
+    "right" : {
+        "panelheight" : 771,
+        "splitterpos" : 503,
+        "topwindowstate" : "NORMAL",
+        "windowheight" : 841
+    }
+}

PttCrawler/RPTT/.Rproj.user/D5C88E2A/pcs/workbench-pane.pper

@@ -0,0 +1,4 @@
+{
+    "TabSet1" : 2,
+    "TabSet2" : 3
+}