28 lines
612 B
R
28 lines
612 B
R
uf_session_id <- NULL
|
|
|
|
verifyUFSession <- function(query) {
|
|
if (getOption("uf.virtual", FALSE)) {
|
|
private$uf_session_id <- "supercalifragilisticexpialidocious"
|
|
return(TRUE)
|
|
}
|
|
|
|
if (!("key" %in% names(query))) {
|
|
return(FALSE)
|
|
}
|
|
|
|
result <- private$ufApiGET("/check-session?key={{key}}", key = query$key)
|
|
if (length(result) == 0 && is.null(result)) {
|
|
return(FALSE)
|
|
}
|
|
|
|
result <- private$ufApiGET("/session?key={{key}}", key = query$key)
|
|
private$uf_session_id <- result$session$id
|
|
httr::handle_reset(private$uf_uri)
|
|
|
|
TRUE
|
|
}
|
|
|
|
getSessionId <- function() {
|
|
private$uf_session_id
|
|
}
|