Merge pull request #798 from pharmaR/jt-update_about

Update About

DESCRIPTION

@@ -1,10 +1,10 @@
 Package: riskassessment
 Title: A web app designed to interface with the `riskmetric` package
-Version: 3.1.0
+Version: 3.1.1
 Authors@R: c( 
     person("Aaron", "Clark", role = c("aut", "cre"), email = "[email protected]"),
+    person("Jeff", "Thompson", role = c("aut"),  email = "[email protected]", comment = "Co-Lead"),
     person("Robert", "Krajcik", role = "aut", email = "[email protected]"),
-    person("Jeff", "Thompson", role = "aut", email = "[email protected]"),
     person("Lars", "Andersen", role = "aut", email = "[email protected]"),
     person("Andrew", "Borgman", role = "aut", email = "[email protected]"),
     person("Munshi Imran", "Hossain", role = "ctb"),

R/mod_aboutInfo.R

@@ -48,10 +48,11 @@ aboutInfoUI <- function(id) {
                 <br>
                 
                 <h3><i class='fa fa-coffee' aria-hidden='true'></i> Development Team </h3> 
-                <p> Most all inquiries should flow through the GitHub page reference above (start there), but you may reach out to the lead developer at any time, especially if you would like to start contributing to the project!</p>
+                <p> Most all inquiries should flow through the GitHub page reference above (start there), but you may reach out to one of the co-lead developer at any time, especially if you would like to start contributing to the project!</p>
                 <br>
                 <ul>  
                   <li>Aaron Clark [ <a href= 'mailto:[email protected]?subject={riskassessment} inquiry'> Send Email </a> ] </li>
+                  <li>Jeff Thompson [ <a href= 'mailto:[email protected]?subject={riskassessment} inquiry'> Send Email </a> ] </li>
                 </ul> 
                 <br>                           
                 

data-raw/internal-data.R

@@ -112,12 +112,12 @@ team_info_df <- data.frame(
              "past","past","past","past",
              "past"
   ),
-  role = c("Workstream Lead","Contributor","Core Contributor","Contributor","Core Contributor",
+  role = c("Workstream Lead","Contributor","Core Contributor","Contributor","Workstream Lead",
            "Contributor","Contributor","Contributor","Core Contributor",
            "Workstream Lead","Contributor","Core Contributor","Contributor",
            "Package Explorer Author"
   ),
-  priority = c(1, 4, 2, 4, 3,
+  priority = c(1, 4, 2, 4, 1,
                4,4,4,2,
                1,4,3,4,
                4