#' Retorna o mercado atual.
#'
#' @return Data.frame com o mercado atual, por jogador.
#' @seealso \code{\link{pegar_partidas}} retorna as próximas partidas.
#' @import httr
#' @import jsonlite
#' @import magrittr
#' @import dplyr
#' @import purrr
#' @examples
#' pegar_mercado()
#' @export
pegar_mercado <- function() {
fromJSON(
"https://api.cartolafc.globo.com/atletas/mercado",
flatten = TRUE
) %>%
pluck(1)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.