make rprojroot to work if the directory name is changed

idhx · Aug 22, 2020 · 00abfff · 00abfff
1 parent 8b4ee28
commit 00abfff
Show file tree

Hide file tree

Showing 147 changed files with 146 additions and 146 deletions.
diff --git a/.ROS-Examples-root b/.ROS-Examples-root
diff --git a/AgePeriodCohort/births.R b/AgePeriodCohort/births.R
@@ -24,7 +24,7 @@ savefigs <- FALSE
 
 #' #### Load packages
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 
 #' #### Load data
 births <- read.table(root("AgePeriodCohort/data","births.txt"), header=TRUE)

diff --git a/AgePeriodCohort/births.Rmd b/AgePeriodCohort/births.Rmd
@@ -26,7 +26,7 @@ savefigs <- FALSE
 
 ```{r }
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 ```
 
 #### Load data

diff --git a/AgePeriodCohort/births_letter.R b/AgePeriodCohort/births_letter.R
@@ -24,7 +24,7 @@ savefigs <- FALSE
 
 #' **Load packages**
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 
 #' **Initialize running the first part**
 #+ results='hide'

diff --git a/AgePeriodCohort/births_letter.Rmd b/AgePeriodCohort/births_letter.Rmd
@@ -26,7 +26,7 @@ savefigs <- FALSE
 
 ```{r }
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 ```
 
 **Initialize running the first part**

diff --git a/Arsenic/arsenic_logistic_apc.R b/Arsenic/arsenic_logistic_apc.R
@@ -22,7 +22,7 @@ knitr::opts_chunk$set(message=FALSE, error=FALSE, warning=FALSE, comment=NA)
 
 #' #### Load packages
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 library("rstanarm")
 library("loo")
 invlogit <- plogis

diff --git a/Arsenic/arsenic_logistic_apc.Rmd b/Arsenic/arsenic_logistic_apc.Rmd
@@ -24,7 +24,7 @@ knitr::opts_chunk$set(message=FALSE, error=FALSE, warning=FALSE, comment=NA)
 
 ```{r }
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 library("rstanarm")
 library("loo")
 invlogit <- plogis

diff --git a/Arsenic/arsenic_logistic_building.R b/Arsenic/arsenic_logistic_building.R
@@ -24,7 +24,7 @@ savefigs <- FALSE
 
 #' #### Load packages
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 library("rstanarm")
 library("loo")
 invlogit <- plogis

diff --git a/Arsenic/arsenic_logistic_building.Rmd b/Arsenic/arsenic_logistic_building.Rmd
@@ -26,7 +26,7 @@ savefigs <- FALSE
 
 ```{r }
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 library("rstanarm")
 library("loo")
 invlogit <- plogis

diff --git a/Arsenic/arsenic_logistic_building_optimizing.R b/Arsenic/arsenic_logistic_building_optimizing.R
@@ -30,7 +30,7 @@ savefigs <- FALSE
 
 #' #### Load packages
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 library("rstanarm")
 library("loo")
 invlogit <- plogis

diff --git a/Arsenic/arsenic_logistic_building_optimizing.Rmd b/Arsenic/arsenic_logistic_building_optimizing.Rmd
@@ -32,7 +32,7 @@ savefigs <- FALSE
 
 ```{r }
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 library("rstanarm")
 library("loo")
 invlogit <- plogis

diff --git a/Arsenic/arsenic_logistic_residuals.R b/Arsenic/arsenic_logistic_residuals.R
@@ -24,7 +24,7 @@ savefigs <- FALSE
 
 #' #### Load packages
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 library("rstanarm")
 library("loo")
 invlogit <- plogis

diff --git a/Arsenic/arsenic_logistic_residuals.Rmd b/Arsenic/arsenic_logistic_residuals.Rmd
@@ -26,7 +26,7 @@ savefigs <- FALSE
 
 ```{r }
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 library("rstanarm")
 library("loo")
 invlogit <- plogis

diff --git a/Balance/treatcontrol.R b/Balance/treatcontrol.R
@@ -25,7 +25,7 @@ savefigs <- FALSE
 
 #' #### Load packages
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 
 #' #### Plot figures
 bell <- function(filename, mu, sd, lo, hi, ymax){

diff --git a/Balance/treatcontrol.Rmd b/Balance/treatcontrol.Rmd
@@ -27,7 +27,7 @@ savefigs <- FALSE
 
 ```{r }
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 ```
 
 #### Plot figures

diff --git a/Beauty/beauty.R b/Beauty/beauty.R
@@ -28,7 +28,7 @@ knitr::opts_chunk$set(message=FALSE, error=FALSE, warning=FALSE, comment=NA)
 
 #' #### Load packages
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 library("rstanarm")
 library("ggplot2")
 library("bayesplot")

diff --git a/Beauty/beauty.Rmd b/Beauty/beauty.Rmd
@@ -30,7 +30,7 @@ knitr::opts_chunk$set(message=FALSE, error=FALSE, warning=FALSE, comment=NA)
 
 ```{r }
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 library("rstanarm")
 library("ggplot2")
 library("bayesplot")

diff --git a/CausalDiagram/diagrams.R b/CausalDiagram/diagrams.R
@@ -24,7 +24,7 @@ savefigs <- FALSE
 
 #' #### Load packages
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 
 #' #### Plot causal diagram
 #+ eval=FALSE, include=FALSE

diff --git a/CausalDiagram/diagrams.Rmd b/CausalDiagram/diagrams.Rmd
@@ -26,7 +26,7 @@ savefigs <- FALSE
 
 ```{r }
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 ```
 
 #### Plot causal diagram

diff --git a/CentralLimitTheorem/heightweight.R b/CentralLimitTheorem/heightweight.R
@@ -25,7 +25,7 @@ savefigs <- FALSE
 
 #' #### Load packages
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 
 #' #### Summary data of height and weight distributions of women and men
 height_counts_women <- c(80,107,296,695,1612,2680,4645,8201,9948,11733,10270,9942,6181,3990,2131,1154,245,257,0,0,0,0)*10339/74167

diff --git a/CentralLimitTheorem/heightweight.Rmd b/CentralLimitTheorem/heightweight.Rmd
@@ -27,7 +27,7 @@ savefigs <- FALSE
 
 ```{r }
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 ```
 
 #### Summary data of height and weight distributions of women and men

diff --git a/Childcare/childcare.R b/Childcare/childcare.R
@@ -24,7 +24,7 @@ savefigs <- FALSE
 
 #' #### Load packages
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 library("rstan")
 library("arm")
 library("rstanarm")

diff --git a/Childcare/childcare.Rmd b/Childcare/childcare.Rmd
@@ -26,7 +26,7 @@ savefigs <- FALSE
 
 ```{r }
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 library("rstan")
 library("arm")
 library("rstanarm")

diff --git a/Congress/congress.R b/Congress/congress.R
@@ -24,7 +24,7 @@ savefigs <- FALSE
 
 #' #### Load packages
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 library("rstanarm")
 
 #' #### Load data

diff --git a/Congress/congress.Rmd b/Congress/congress.Rmd
@@ -26,7 +26,7 @@ savefigs <- FALSE
 
 ```{r }
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 library("rstanarm")
 ```
 

diff --git a/Coop/riverbay.R b/Coop/riverbay.R
@@ -24,7 +24,7 @@ savefigs <- FALSE
 
 #' #### Load packages
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 
 #' #### Load data
 data <- read.table(root("Coop/data","Riverbay.csv"), header=FALSE, sep=",")

diff --git a/Coop/riverbay.Rmd b/Coop/riverbay.Rmd
@@ -26,7 +26,7 @@ savefigs <- FALSE
 
 ```{r }
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 ```
 
 #### Load data

diff --git a/Coverage/coverage.R b/Coverage/coverage.R
@@ -24,7 +24,7 @@ savefigs <- FALSE
 
 #+ eval=FALSE, include=FALSE
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 
 #' #### Simulate
 n_rep <- 100

diff --git a/Coverage/coverage.Rmd b/Coverage/coverage.Rmd
@@ -24,7 +24,7 @@ savefigs <- FALSE
 ```
 ```{r eval=FALSE, include=FALSE}
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 ```
 
 #### Simulate

diff --git a/CrossValidation/crossvalidation.R b/CrossValidation/crossvalidation.R
@@ -24,7 +24,7 @@ savefigs <- FALSE
 
 #' #### Load packages
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 library("rstanarm")
 library("loo")
 library("ggplot2")

diff --git a/CrossValidation/crossvalidation.Rmd b/CrossValidation/crossvalidation.Rmd
@@ -26,7 +26,7 @@ savefigs <- FALSE
 
 ```{r }
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 library("rstanarm")
 library("loo")
 library("ggplot2")

diff --git a/Death/polls.R b/Death/polls.R
@@ -24,7 +24,7 @@ savefigs <- FALSE
 
 #' #### Load packages
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 library("ggplot2")
 theme_set(bayesplot::theme_default(base_family = "sans"))
 

diff --git a/Death/polls.Rmd b/Death/polls.Rmd
@@ -26,7 +26,7 @@ savefigs <- FALSE
 
 ```{r }
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 library("ggplot2")
 theme_set(bayesplot::theme_default(base_family = "sans"))
 ```

diff --git a/Earnings/earnings_bootstrap.R b/Earnings/earnings_bootstrap.R
@@ -22,7 +22,7 @@ knitr::opts_chunk$set(message=FALSE, error=FALSE, warning=FALSE, comment=NA)
 
 #' #### Load packages
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 
 #' #### Load data
 earnings <- read.csv(root("Earnings/data","earnings.csv"))

diff --git a/Earnings/earnings_bootstrap.Rmd b/Earnings/earnings_bootstrap.Rmd
@@ -24,7 +24,7 @@ knitr::opts_chunk$set(message=FALSE, error=FALSE, warning=FALSE, comment=NA)
 
 ```{r }
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 ```
 
 #### Load data

diff --git a/Earnings/earnings_compound.R b/Earnings/earnings_compound.R
@@ -22,7 +22,7 @@ knitr::opts_chunk$set(message=FALSE, error=FALSE, warning=FALSE, comment=NA)
 
 #' #### Load packages
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 library("rstanarm")
 library("ggplot2")
 library("bayesplot")

diff --git a/Earnings/earnings_compound.Rmd b/Earnings/earnings_compound.Rmd
@@ -24,7 +24,7 @@ knitr::opts_chunk$set(message=FALSE, error=FALSE, warning=FALSE, comment=NA)
 
 ```{r }
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 library("rstanarm")
 library("ggplot2")
 library("bayesplot")

diff --git a/Earnings/earnings_regression.R b/Earnings/earnings_regression.R
@@ -24,7 +24,7 @@ savefigs <- FALSE
 
 #' #### Load packages
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 library("rstanarm")
 library("ggplot2")
 library("bayesplot")

diff --git a/Earnings/earnings_regression.Rmd b/Earnings/earnings_regression.Rmd
@@ -26,7 +26,7 @@ savefigs <- FALSE
 
 ```{r }
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 library("rstanarm")
 library("ggplot2")
 library("bayesplot")

diff --git a/Earnings/height_and_weight.R b/Earnings/height_and_weight.R
@@ -22,7 +22,7 @@ knitr::opts_chunk$set(message=FALSE, error=FALSE, warning=FALSE, comment=NA)
 
 #' #### Load packages
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 library("rstanarm")
 
 #' #### Load data

diff --git a/Earnings/height_and_weight.Rmd b/Earnings/height_and_weight.Rmd
@@ -24,7 +24,7 @@ knitr::opts_chunk$set(message=FALSE, error=FALSE, warning=FALSE, comment=NA)
 
 ```{r }
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 library("rstanarm")
 ```
 

diff --git a/ElectionsEconomy/bayes.R b/ElectionsEconomy/bayes.R
@@ -24,7 +24,7 @@ savefigs <- FALSE
 
 #' #### Load packages
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 
 #' ## Calculations
 #'

diff --git a/ElectionsEconomy/bayes.Rmd b/ElectionsEconomy/bayes.Rmd
@@ -26,7 +26,7 @@ savefigs <- FALSE
 
 ```{r }
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 ```
 
 ## Calculations

diff --git a/ElectionsEconomy/hibbs.R b/ElectionsEconomy/hibbs.R
@@ -24,7 +24,7 @@ savefigs <- FALSE
 
 #' #### Load packages
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 library("rstanarm")
 library("arm")
 library("ggplot2")

diff --git a/ElectionsEconomy/hibbs.Rmd b/ElectionsEconomy/hibbs.Rmd
@@ -26,7 +26,7 @@ savefigs <- FALSE
 
 ```{r }
 library("rprojroot")
-root<-has_dirname("ROS-Examples")$make_fix_file()
+root<-has_file(".ROS-Examples-root")$make_fix_file()
 library("rstanarm")
 library("arm")
 library("ggplot2")