run tar_make

on-merrit · Jul 20, 2021 · a3e1a50 · a3e1a50
1 parent 9830459
commit a3e1a50
Show file tree

Hide file tree

Showing 29 changed files with 109 additions and 123 deletions.
diff --git a/01_descriptives_parts_a_b.Rmd b/01_descriptives_parts_a_b.Rmd
@@ -228,12 +228,11 @@ a1_df_rec <- a1_df %>%
 
 recode_successful(a1_df, a1_df_rec)
 
-
 visdat::vis_miss(a1_df_rec)
 
 
 a1_df_rec %>% 
-  plot_likert(question_codes, "Practices regarding OS")
+  plot_likert()
 ```
 
 
@@ -259,7 +258,7 @@ a2_df %>%
   summarise(across(.fns = ~sum(is.na(.x))))
 
 a2_df_rec %>% 
-  plot_likert(question_codes, "Own pratices regarding Open Access publishing")
+  plot_likert()
 ```
 
 
@@ -280,7 +279,7 @@ a3_df %>%
   summarise(across(.fns = ~sum(is.na(.x))))
 
 a3_df_rec %>% 
-  plot_likert(question_codes, "Own practices regarding Research Data Management")
+  plot_likert()
 ```
 
 
@@ -301,7 +300,7 @@ a4_df %>%
   summarise(across(.fns = ~sum(is.na(.x))))
 
 a4_df_rec %>% 
-  plot_likert(question_codes, "Practices regarding Reproducible Research")
+  plot_likert()
 
 ```
 
@@ -329,7 +328,7 @@ a5_df %>%
   summarise(across(.fns = ~sum(is.na(.x))))
 
 a5_df_rec %>% 
-  plot_likert(question_codes, "Pratices regarding Open Peer Review")
+  plot_likert()
 
 ```
 
@@ -351,7 +350,7 @@ a6_df %>%
   summarise(across(.fns = ~sum(is.na(.x))))
 
 a6_df_rec %>% 
-  plot_likert(question_codes, "Practices regarding Open Source Software")
+  plot_likert()
 
 ```
 
@@ -373,7 +372,7 @@ a7_df %>%
   summarise(across(.fns = ~sum(is.na(.x))))
 
 a7_df_rec %>% 
-  plot_likert(question_codes, "Practices regarding Licensing")
+  plot_likert()
 ```
 
 
@@ -394,7 +393,7 @@ a8_df %>%
   summarise(across(.fns = ~sum(is.na(.x))))
 
 a8_df_rec %>% 
-  plot_likert(question_codes, "Practices regarding Research Integrity")
+  plot_likert()
 ```
 
 
@@ -415,7 +414,7 @@ a9_df %>%
   summarise(across(.fns = ~sum(is.na(.x))))
 
 a9_df_rec %>% 
-  plot_likert(question_codes, "Practices regarding Citizen Science")
+  plot_likert()
 ```
 
 
@@ -436,7 +435,7 @@ a10_df %>%
   summarise(across(.fns = ~sum(is.na(.x))))
 
 a10_df_rec %>% 
-  plot_likert(question_codes, "Practices regarding Gender Issues")
+  plot_likert()
 
 ```
 
@@ -462,7 +461,7 @@ b1_df %>%
   summarise(across(.fns = ~sum(is.na(.x))))
 
 b1_df_rec %>% 
-  plot_likert(question_codes, "Attended Training Events")
+  plot_likert()
 
 ```
 
@@ -487,7 +486,7 @@ b3_df_rec %>%
   summarise(across(.fns = ~sum(is.na(.x))))
 
 b3_df_rec %>% 
-  plot_likert(question_codes, "Attended Different Types of Training Sessions")
+  plot_likert()
 
 ```
 
@@ -534,7 +533,7 @@ b6_df_rec %>%
   summarise(across(.fns = ~sum(is.na(.x))))
 
 b6_df_rec %>% 
-  plot_likert(question_codes, "Attended Different Types of Training Sessions")
+  plot_likert()
 
 ```
 
@@ -579,7 +578,7 @@ b9_df_rec <- b9_df %>%
 
 
 b9_df_rec %>% 
-  plot_likert(question_codes, "Who provided the training sessions you attended?")
+  plot_likert()
 
 ```
 
@@ -598,7 +597,7 @@ b10_df_rec <- b10_df %>%
 
 
 b10_df_rec %>% 
-  plot_likert(question_codes, "Preferred way to learn OS topics")
+  plot_likert()
 
 ```
 
@@ -624,7 +623,7 @@ recode_successful(b11_df, b11_df_rec)
 
 
 b11_df_rec %>% 
-  plot_likert(question_codes, "Has your awareness of open science practices\nincreased after the training you attended?")
+  plot_likert()
 
 ```
 
@@ -646,7 +645,7 @@ b12_df_rec %>%
   summarise(across(.fns = ~sum(is.na(.x))))
 
 b12_df_rec %>% 
-  plot_likert(question_codes, "Would you share your experience with open science practices\nand tools with colleagues?")
+  plot_likert()
 
 ```
 

diff --git a/01_descriptives_parts_a_b.html b/01_descriptives_parts_a_b.html
diff --git a/01_descriptives_parts_a_b.md b/01_descriptives_parts_a_b.md
@@ -259,33 +259,13 @@ a1_df_rec <- a1_df %>%
   mutate(across(.fns = factor, levels = answer_levels))
 
 
-a1_df %>% 
-  summarise(across(.fns = ~sum(is.na(.x))))
-```
-
-```
-## # A tibble: 1 x 5
-##   `A1[SQ001]` `A1[SQ002]` `A1[SQ003]` `A1[SQ004]` `A1[SQ005]`
-##         <int>       <int>       <int>       <int>       <int>
-## 1           3           3           4           8           4
-```
-
-
-
-```r
-a1_df_rec %>% 
-  summarise(across(.fns = ~sum(is.na(.x))))
+recode_successful(a1_df, a1_df_rec)
 ```
 
 ```
-## # A tibble: 1 x 5
-##   `A1[SQ001]` `A1[SQ002]` `A1[SQ003]` `A1[SQ004]` `A1[SQ005]`
-##         <int>       <int>       <int>       <int>       <int>
-## 1           3           3           4           8           4
+## [1] TRUE
 ```
 
-
-
 ```r
 visdat::vis_miss(a1_df_rec)
 ```
@@ -294,7 +274,7 @@ visdat::vis_miss(a1_df_rec)
 
 ```r
 a1_df_rec %>% 
-  plot_likert(question_codes, "Practices regarding OS")
+  plot_likert()
 ```
 
 ![](01_descriptives_parts_a_b_files/figure-html/a1-2.png)<!-- -->
@@ -331,7 +311,7 @@ a2_df %>%
 
 ```r
 a2_df_rec %>% 
-  plot_likert(question_codes, "Own pratices regarding Open Access publishing")
+  plot_likert()
 ```
 
 ![](01_descriptives_parts_a_b_files/figure-html/a2-1.png)<!-- -->
@@ -363,7 +343,7 @@ a3_df %>%
 
 ```r
 a3_df_rec %>% 
-  plot_likert(question_codes, "Own practices regarding Research Data Management")
+  plot_likert()
 ```
 
 ![](01_descriptives_parts_a_b_files/figure-html/a3-1.png)<!-- -->
@@ -395,7 +375,7 @@ a4_df %>%
 
 ```r
 a4_df_rec %>% 
-  plot_likert(question_codes, "Practices regarding Reproducible Research")
+  plot_likert()
 ```
 
 ![](01_descriptives_parts_a_b_files/figure-html/a4-1.png)<!-- -->
@@ -433,7 +413,7 @@ a5_df %>%
 
 ```r
 a5_df_rec %>% 
-  plot_likert(question_codes, "Pratices regarding Open Peer Review")
+  plot_likert()
 ```
 
 ![](01_descriptives_parts_a_b_files/figure-html/a5-1.png)<!-- -->
@@ -465,7 +445,7 @@ a6_df %>%
 
 ```r
 a6_df_rec %>% 
-  plot_likert(question_codes, "Practices regarding Open Source Software")
+  plot_likert()
 ```
 
 ![](01_descriptives_parts_a_b_files/figure-html/a6-1.png)<!-- -->
@@ -497,7 +477,7 @@ a7_df %>%
 
 ```r
 a7_df_rec %>% 
-  plot_likert(question_codes, "Practices regarding Licensing")
+  plot_likert()
 ```
 
 ![](01_descriptives_parts_a_b_files/figure-html/a7-1.png)<!-- -->
@@ -529,7 +509,7 @@ a8_df %>%
 
 ```r
 a8_df_rec %>% 
-  plot_likert(question_codes, "Practices regarding Research Integrity")
+  plot_likert()
 ```
 
 ![](01_descriptives_parts_a_b_files/figure-html/a8-1.png)<!-- -->
@@ -561,7 +541,7 @@ a9_df %>%
 
 ```r
 a9_df_rec %>% 
-  plot_likert(question_codes, "Practices regarding Citizen Science")
+  plot_likert()
 ```
 
 ![](01_descriptives_parts_a_b_files/figure-html/a9-1.png)<!-- -->
@@ -593,7 +573,7 @@ a10_df %>%
 
 ```r
 a10_df_rec %>% 
-  plot_likert(question_codes, "Practices regarding Gender Issues")
+  plot_likert()
 ```
 
 ![](01_descriptives_parts_a_b_files/figure-html/a10-1.png)<!-- -->
@@ -631,7 +611,7 @@ b1_df %>%
 
 ```r
 b1_df_rec %>% 
-  plot_likert(question_codes, "Attended Training Events")
+  plot_likert()
 ```
 
 ![](01_descriptives_parts_a_b_files/figure-html/b1-1.png)<!-- -->
@@ -668,7 +648,7 @@ b3_df_rec %>%
 
 ```r
 b3_df_rec %>% 
-  plot_likert(question_codes, "Attended Different Types of Training Sessions")
+  plot_likert()
 ```
 
 ![](01_descriptives_parts_a_b_files/figure-html/b3-1.png)<!-- -->
@@ -735,7 +715,7 @@ b6_df_rec %>%
 
 ```r
 b6_df_rec %>% 
-  plot_likert(question_codes, "Attended Different Types of Training Sessions")
+  plot_likert()
 ```
 
 ![](01_descriptives_parts_a_b_files/figure-html/b6-1.png)<!-- -->
@@ -782,7 +762,7 @@ b9_df_rec <- b9_df %>%
 
 
 b9_df_rec %>% 
-  plot_likert(question_codes, "Who provided the training sessions you attended?")
+  plot_likert()
 ```
 
 ![](01_descriptives_parts_a_b_files/figure-html/b9-1.png)<!-- -->
@@ -802,7 +782,7 @@ b10_df_rec <- b10_df %>%
 
 
 b10_df_rec %>% 
-  plot_likert(question_codes, "Preferred way to learn OS topics")
+  plot_likert()
 ```
 
 ![](01_descriptives_parts_a_b_files/figure-html/b10-1.png)<!-- -->
@@ -834,7 +814,7 @@ recode_successful(b11_df, b11_df_rec)
 
 ```r
 b11_df_rec %>% 
-  plot_likert(question_codes, "Has your awareness of open science practices\nincreased after the training you attended?")
+  plot_likert()
 ```
 
 ![](01_descriptives_parts_a_b_files/figure-html/b11-1.png)<!-- -->
@@ -866,7 +846,7 @@ b12_df_rec %>%
 
 ```r
 b12_df_rec %>% 
-  plot_likert(question_codes, "Would you share your experience with open science practices\nand tools with colleagues?")
+  plot_likert()
 ```
 
 ![](01_descriptives_parts_a_b_files/figure-html/b12-1.png)<!-- -->

diff --git a/01_descriptives_parts_a_b_files/figure-html/a1-2.png b/01_descriptives_parts_a_b_files/figure-html/a1-2.png
diff --git a/01_descriptives_parts_a_b_files/figure-html/a1-3.png b/01_descriptives_parts_a_b_files/figure-html/a1-3.png
diff --git a/01_descriptives_parts_a_b_files/figure-html/a10-1.png b/01_descriptives_parts_a_b_files/figure-html/a10-1.png
diff --git a/01_descriptives_parts_a_b_files/figure-html/a2-1.png b/01_descriptives_parts_a_b_files/figure-html/a2-1.png
diff --git a/01_descriptives_parts_a_b_files/figure-html/a3-1.png b/01_descriptives_parts_a_b_files/figure-html/a3-1.png
diff --git a/01_descriptives_parts_a_b_files/figure-html/a4-1.png b/01_descriptives_parts_a_b_files/figure-html/a4-1.png
diff --git a/01_descriptives_parts_a_b_files/figure-html/a5-1.png b/01_descriptives_parts_a_b_files/figure-html/a5-1.png
diff --git a/01_descriptives_parts_a_b_files/figure-html/a6-1.png b/01_descriptives_parts_a_b_files/figure-html/a6-1.png
diff --git a/01_descriptives_parts_a_b_files/figure-html/a7-1.png b/01_descriptives_parts_a_b_files/figure-html/a7-1.png
diff --git a/01_descriptives_parts_a_b_files/figure-html/a8-1.png b/01_descriptives_parts_a_b_files/figure-html/a8-1.png
diff --git a/01_descriptives_parts_a_b_files/figure-html/a9-1.png b/01_descriptives_parts_a_b_files/figure-html/a9-1.png
diff --git a/01_descriptives_parts_a_b_files/figure-html/b1-1.png b/01_descriptives_parts_a_b_files/figure-html/b1-1.png
diff --git a/01_descriptives_parts_a_b_files/figure-html/b10-1.png b/01_descriptives_parts_a_b_files/figure-html/b10-1.png
diff --git a/01_descriptives_parts_a_b_files/figure-html/b11-1.png b/01_descriptives_parts_a_b_files/figure-html/b11-1.png
diff --git a/01_descriptives_parts_a_b_files/figure-html/b12-1.png b/01_descriptives_parts_a_b_files/figure-html/b12-1.png
diff --git a/01_descriptives_parts_a_b_files/figure-html/b3-1.png b/01_descriptives_parts_a_b_files/figure-html/b3-1.png
diff --git a/01_descriptives_parts_a_b_files/figure-html/b6-1.png b/01_descriptives_parts_a_b_files/figure-html/b6-1.png
diff --git a/01_descriptives_parts_a_b_files/figure-html/b9-1.png b/01_descriptives_parts_a_b_files/figure-html/b9-1.png
diff --git a/02_descriptives_parts_c_d.Rmd b/02_descriptives_parts_c_d.Rmd
@@ -141,7 +141,7 @@ c8_df %>%
 
 
 c8_df_rec %>% 
-  plot_likert(question_codes, "Degree of support in practicing OS at institution")
+  plot_likert()
 
 
 
@@ -188,7 +188,7 @@ d2_df %>%
 
 
 d2_df_rec %>% 
-  plot_likert(question_codes, "Summarised views: What would you say OS is?")
+  plot_likert()
 
 ```
 
@@ -208,7 +208,7 @@ d3_df_rec <- d3_df %>%
   mutate(across(.fns = factor, levels = answer_levels_8))
 
 d3_df_rec %>% 
-  plot_likert(question_codes, "Which are the most significant barriers you will be facing while\nembracing an Open Science perspective?")
+  plot_likert()
 
 ```
 
@@ -232,7 +232,7 @@ d5_df %>%
   summarise(across(.fns = ~sum(is.na(.x))))
 
 d5_df_rec %>% 
-  plot_likert(question_codes, "Main drivers to participate OS")
+  plot_likert()
 
 
 ```
@@ -257,6 +257,6 @@ d7_df %>%
   summarise(across(.fns = ~sum(is.na(.x))))
 
 d7_df_rec %>% 
-  plot_likert(question_codes, "Drivers or barriers to practice Open Science")
+  plot_likert()
 
 ```