Nothing
#' Get Moodle Users
#'
#' Returns a reference to the (cached) users table, with the most relevant columns selected.
#'
#' @inheritParams mdl_config
#' @importFrom dplyr tbl
#' @importFrom dplyr select
#' @return A dbplyr reference object
#' @export
mdl_users <- function(
con = mdl_get_connection(),
tbl_prefix = "mdl_"
) {
if(!attr(con, "use_cache")){ #direct connection
ret <- tbl(con, glue("{tbl_prefix}user")) %>%
mutate(userid = id) %>%
collect()
} else {
ret <- tbl(con, "user")
}
class(ret) <- c(class(ret), "mdl_users")
ret
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.