diff --git a/inst/virtual_patient_simulator/miniUI2/global.R b/inst/virtual_patient_simulator/miniUI2/global.R index e814d82..8c57876 100644 --- a/inst/virtual_patient_simulator/miniUI2/global.R +++ b/inst/virtual_patient_simulator/miniUI2/global.R @@ -24,6 +24,29 @@ library(V8) library(CaPO4Sim) +f7Dialog <- function( + id = NULL, + title = NULL, + text, + type = c("alert", "confirm", "prompt", "login"), + session = shiny::getDefaultReactiveDomain() +) { + type <- match.arg(type) + if (is.null(id) && type %in% c("confirm", "prompt", "login")) { + stop("Missing id.") + } + text <- if (any(class(text) %in% c("shiny.tag", "shiny.tag.list"))) { + as.character(force(text)) + } else { + text + } + message <- dropNulls(list(id = id, title = title, text = text, type = type)) + session$sendCustomMessage( + type = "dialog", + message = jsonlite::toJSON(message, auto_unbox = TRUE, json_verbatim = TRUE) + ) +} + # Load the template components of UI source("patient_selector.R") source("getting_started.R") diff --git a/inst/virtual_patient_simulator/miniUI2/manifest.json b/inst/virtual_patient_simulator/miniUI2/manifest.json index 5ca3e2a..8b0c432 100644 --- a/inst/virtual_patient_simulator/miniUI2/manifest.json +++ b/inst/virtual_patient_simulator/miniUI2/manifest.json @@ -2182,8 +2182,8 @@ } }, "shinyMobile": { - "Source": "github", - "Repository": null, + "Source": "CRAN", + "Repository": "https://rspm.cynkra.com/prod-cran/latest", "description": { "Package": "shinyMobile", "Type": "Package", @@ -2200,23 +2200,14 @@ "RoxygenNote": "7.3.2", "Suggests": "knitr, rmarkdown, stats, cli, testthat (>= 2.1.0),\nrstudioapi, shinyWidgets, apexcharter, ggplot2, dplyr, bslib,\nshinytest2, thematic", "VignetteBuilder": "knitr", - "Roxygen": "list(markdown = TRUE)", "Config/testthat/parallel": "true", "Config/testthat/edition": "3", - "RemoteType": "github", - "RemoteHost": "api.github.com", - "RemoteRepo": "shinyMobile", - "RemoteUsername": "RinteRface", - "RemoteRef": "HEAD", - "RemoteSha": "90e09384c040ba69c14293a49fc182e8d6ef26a8", - "GithubRepo": "shinyMobile", - "GithubUsername": "RinteRface", - "GithubRef": "HEAD", - "GithubSHA1": "90e09384c040ba69c14293a49fc182e8d6ef26a8", "NeedsCompilation": "no", - "Packaged": "2025-01-26 22:48:32 UTC; davidgranjon", + "Packaged": "2024-10-04 15:53:32 UTC; davidgranjon", "Author": "David Granjon [aut, cre],\n Veerle van Leemput [aut],\n AthlyticZ [fnd],\n Victor Perrier [aut],\n John Coene [ctb],\n Isabelle Rudolf [aut],\n Dieter Menne [ctb],\n Marvelapp [ctb, cph] (device.css wrappers),\n Vladimir Kharlampidi [ctb, cph] (Framework7 HTML template)", - "Built": "R 4.4.0; ; 2025-01-26 22:48:33 UTC; unix" + "Repository": "RSPM", + "Date/Publication": "2024-10-04 17:30:02 UTC", + "Built": "R 4.4.0; ; 2024-10-05 04:41:09 UTC; unix" } }, "shinyWidgets": { @@ -2871,7 +2862,7 @@ "checksum": "4cb8f2562a6f2f3e2da928df829b7df5" }, "global.R": { - "checksum": "83ca10c5436d6259795c6079b69a9fe1" + "checksum": "322211c928e7f4c38e23e56c19452214" }, "model_utils.R": { "checksum": "ed15ea269f41699a62bb5899b0417fe0"