Tilpasning av loglesing og visning til struktur på nhn.

R/log.R

@@ -356,13 +356,16 @@ createLogDbTabs <- function() {
 #' @param name Character string with registry filter. Default value is an empty
 #' string that will return all log entries. If not empty its value must
 #' correspond to an existing registry (\emph{i.e.} R package) name.
+#' @param app_id An identifier for a particular registry. Default value is NULL,
+#' in which case no action is taken. If value is provided, the log is filtered
+#' to show only entries matching chosen app_id.
 #'
 #' @return A data frame of log entries
 #' @keywords internal
-readLog <- function(type, name = "") {
+readLog <- function(type, name = "", app_id = NULL) {
   stopifnot(type == "report" | type == "app")
 
-  config <- getConfig(fileName = "rapbaseConfig.yml")
+  config <- rapbase::getConfig(fileName = "rapbaseConfig.yml")
   target <- config$r$raplog$target
 
   if (target == "file") {
@@ -393,11 +396,11 @@ readLog <- function(type, name = "") {
     }
   } else if (target == "db") {
     query <- paste0("SELECT * FROM ", type, "Log")
-    if (name != "") {
-      paste0(query, " WHERE group = ", name)
-    }
     query <- paste0(query, ";")
-    log <- loadRegData(config$r$raplog$key, query)
+    log <- rapbase::loadRegData(config$r$raplog$key, query)
+    if (!is.null(app_id)) {
+      log <- log[which(log$group == app_id), ]
+    }
     log <- log %>%
       dplyr::select(-"id")
   } else {

R/moduleStats.R

@@ -10,6 +10,9 @@
 #'
 #' @param id Character string shiny module id
 #' @param registryName Character string registry name key
+#' @param app_id An identifier for a particular registry. Default value is NULL,
+#' in which case no action is taken. If value is provided, the log is filtered
+#' to show only entries matching chosen app_id.
 #' @param eligible Logical defining if the module should be allowed to work at
 #' full capacity. This might be useful when access to module products should be
 #' restricted. Default is TRUE, \emph{i.e.} no restrictions.
@@ -78,10 +81,13 @@ statsUI <- function(id) {
 
 #' @rdname stats
 #' @export
-statsServer <- function(id, registryName, eligible = TRUE) {
+statsServer <- function(id,
+                        registryName,
+                        app_id = NULL,
+                        eligible = TRUE) {
   shiny::moduleServer(id, function(input, output, session) {
     log <- shiny::reactive({
-      readLog(input$type, registryName) %>%
+      readLog(input$type, registryName, app_id) %>%
         logFormat()
     })
 

inst/exportGuide.Rmd

@@ -4,10 +4,6 @@ params:
 title: '`r paste0("Veiledning for eksport av ", params$registryName, "-data")`'
 ---
 
-```{r dbName, echo=FALSE}
-dbName <- rapbase::getConfig()[[params$registryName]]$name
-```
-
 ## Eksport av `r params$registryName`-databasen
 Her kan statistikere som jobber med Rapporteket laste ned hele databasen. Formatet som benyttes gjør det enkelt å sette opp en egen database for analyse- og utviklingsformål. Nedlastet fil er kryptert og innholdet er utilgjengelig for alle andre enn definert mottaker. Filen slik den lastes ned kan derfor trygt transporteres og eksponeres offentlig uten fare for at innholdet (registerdata) blir tilgjengelig for andre.
 

inst/statsGuide.Rmd

@@ -4,10 +4,6 @@ params:
 title: '`r paste0("Bruksstatistikk for ", params$registryName)`'
 ---
 
-```{r dbName, echo=FALSE}
-dbName <- rapbase::getConfig()[[params$registryName]]$name
-```
-
 ## Innledning
 Her kan du se på og hente ut informasjon om hvordan Rapporteket for `r params$registryName` brukes. I korte trekk vil det si _hvem_, _hva_ og _når_. Formålet med verktøyet er å kunne gi registeransvarlige informasjon som kan brukes til endring og forbedring av eget innhold på Rapporteket. Videre kan informasjonen også benyttes som del av registerets revisjon av tilganger (til registerdata), men det forutsetter at underliggende registrering av bruk har tatt høyde for slik anvendelse av bruksdata.