Qualify purrr functions

lionel- · lionel- · commit e2671cccc93a · 2020-01-22T15:29:14.000+01:00
diff --git a/R/shiny-server.R b/R/shiny-server.R
@@ -176,8 +176,8 @@ validateGroupCases <- function(input, reactive_cases, session) {
       type <- shiny::isolate(input$type)
 
       withdraw_cases(active_cases)
-      idx <- map_lgl(cases, inherits, type)
-      cases <- map_if(cases, idx, success_case)
+      idx <- purrr::map_lgl(cases, inherits, type)
+      cases <- purrr::map_if(cases, idx, success_case)
 
       shiny::isolate(reactive_cases$all <- cases)
     }

Original file line number	Diff line number	Diff line change
`@@ -176,8 +176,8 @@ validateGroupCases <- function(input, reactive_cases, session) {`
`176`	`176`	`type <- shiny::isolate(input$type)`
`177`	`177`
`178`	`178`	`withdraw_cases(active_cases)`
`179`		`- idx <- map_lgl(cases, inherits, type)`
`180`		`- cases <- map_if(cases, idx, success_case)`
	`179`	`+ idx <- purrr::map_lgl(cases, inherits, type)`
	`180`	`+ cases <- purrr::map_if(cases, idx, success_case)`
`181`	`181`
`182`	`182`	`shiny::isolate(reactive_cases$all <- cases)`
`183`	`183`	`}`