From 546e4718e592bfabea5b5a7f0441c7de04bd11b4 Mon Sep 17 00:00:00 2001
From: apoorv <apoorv7491@gmail.com>
Date: Sun, 19 Apr 2020 14:08:56 +0530
Subject: [PATCH] Add project - Update path\

---
 scripts/R/act-section-analysis.R |  4 ++--
 stop-66A.Rproj                   | 13 +++++++++++++
 2 files changed, 15 insertions(+), 2 deletions(-)
 create mode 100644 stop-66A.Rproj

diff --git a/scripts/R/act-section-analysis.R b/scripts/R/act-section-analysis.R
index c83476acf..17bba752d 100644
--- a/scripts/R/act-section-analysis.R
+++ b/scripts/R/act-section-analysis.R
@@ -16,7 +16,7 @@ extract_act_and_section <- function(act_json){
 
 jh_data <-
   read_csv(
-    "exp/repos/stop-66A/data/jharkhand_data_report_IT_act.csv",
+    "data/jharkhand_data_report_IT_act.csv",
     col_types = cols(
       date_of_filing = col_date(format = "%Y-%m-%d"),
       date_of_registration = col_date(format = "%Y-%m-%d")
@@ -33,7 +33,7 @@ for(i in 1:nrow(jh_data)){
   print(glue("{i} -- {jh_data$CNR[[i]]}"))
 }
 
-write_csv(act_master, "~/exp/repos/stop-66A/data/jh_act_section_cnr.csv")
+write_csv(act_master, "data/jh_act_section_cnr.csv")
 
 # act_json <- jh_data$act_json[sample(nrow(jh_data),1)]
 # x <- extract_act_and_section(act_json)
diff --git a/stop-66A.Rproj b/stop-66A.Rproj
new file mode 100644
index 000000000..8e3c2ebc9
--- /dev/null
+++ b/stop-66A.Rproj
@@ -0,0 +1,13 @@
+Version: 1.0
+
+RestoreWorkspace: Default
+SaveWorkspace: Default
+AlwaysSaveHistory: Default
+
+EnableCodeIndexing: Yes
+UseSpacesForTab: Yes
+NumSpacesForTab: 2
+Encoding: UTF-8
+
+RnwWeave: Sweave
+LaTeX: pdfLaTeX