New addin for creating a course issue

Author: phgrosjean

DESCRIPTION

@@ -9,7 +9,7 @@ Authors@R: c(
   email = "guyliann.engels@umons.ac.be"))
 Maintainer: Philippe Grosjean <phgrosjean@sciviews.org>
 Depends: R (>= 4.2.0)
-Imports: learnitdown, BioDataScience, shiny, miniUI
+Imports: learnitdown, BioDataScience, shiny, miniUI, rstudioapi
 Suggests: SciViews, ggplot2, ggpubr, data.io, svMisc, svBase, svFlow, chart, covr, knitr, testthat, gradethis
 License: MIT + file LICENSE
 Encoding: UTF-8

NAMESPACE

@@ -17,6 +17,7 @@ importFrom(miniUI,miniContentPanel)
 importFrom(miniUI,miniPage)
 importFrom(miniUI,miniTitleBarButton)
 importFrom(miniUI,miniTitleBarCancelButton)
+importFrom(rstudioapi,showDialog)
 importFrom(shiny,dialogViewer)
 importFrom(shiny,observeEvent)
 importFrom(shiny,runGadget)

NEWS.md

@@ -4,6 +4,8 @@
 
 -   The addin to select learnrs or Shiny apps now detects inactivated items and takes them out of the list.
 
+-   A new addin to create a course issue is added.
+
 # BioDataScience3 2022.4.1
 
 -   Corrections in **C06La_map**.

R/BioDataScience3-package.R

@@ -9,6 +9,7 @@
 #' @importFrom BioDataScience config sign_in sign_out
 #' @importFrom shiny dialogViewer observeEvent selectInput stopApp runGadget
 #' @importFrom miniUI gadgetTitleBar miniContentPanel miniPage miniTitleBarButton miniTitleBarCancelButton
+#' @importFrom rstudioapi showDialog
 NULL
 
 #@importFrom BioDataScience run run_app update_pkg

R/addins.R

@@ -66,3 +66,23 @@ run_addin <- function() {
   if (!is.null(item) && !inherits(item, "try-error"))
     message("Running item ", item)
 }
+
+sdd3_issue <- function() {
+  # Get year (two digits)
+  # We shift the academic year (starting mid-september) by 250 days
+  # and get the year using two last digits
+  acad_year <- format(Sys.Date() - 250, "%y")
+  new_issue_url <- paste0("https://github.com/BioDataScience-Course/c00qa_",
+    acad_year, "m_issues-c", acad_year, "/issues/new")
+  # Display a message with short instructions + url
+  rstudioapi::showDialog(title = "Nouvelle issue du cours BioDataScience3",
+    url = new_issue_url,
+    message = paste0(
+      "Cliquez sur le lien ci-dessous pour cr\u00e9er l'issue. ",
+      "Indiquez un titre et commencez le message par ",
+      "@BioDataScience-Course/teachers pour notifier ",
+      "imm\u00e9diatement vos enseignants de votre question. ",
+      "Ajoutez \u00e9ventuellement une capture d'\u00e9cran explicite."))
+  invisible(TRUE)
+
+}

inst/rstudio/addins.dcf

@@ -1,4 +1,9 @@
-Name: Run sdd III-V tutorial or app
+Name: Run sdd III-IV tutorial or app
 Description: Run one of the learnr tutorials or Shiny applications in this package
 Binding: run_addin
 Interactive: true
+
+Name: New sdd III issue
+Description: Create a new issue in the course GitHub repository
+Binding: sdd3_issue
+Interactive: true