Как работать с файлами Vector Tiles из вызова API, Shiny?

Question

Есть ли способ использовать API-вызов векторной плитки из MapBox в качестве ввода в блестящее приложение? Моя первоначальная мысль заключалась в том, чтобы превратить его в фрейм данных, а затем использовать его в качестве входных данных, но я не уверен, что это правильный подход.

У меня нет рабочего набора данных для обмена, так как я недостаточно знаком с вызовами API или работой с векторными плитками, но я считаю, что эта векторная плитка работает.

https://studio.mapbox.com/tilesets/mapbox.hist-pres-election-state-points/

# ################################################################################################
# ################################################################################################
#Libaries
library(shiny)
library(shinydashboard)
library(dplyr)
library(mapdeck)


################################################################################################
################################################################################################
#UI
ui <- dashboardPage(
    dashboardHeader(), 
    dashboardSidebar(), 
    dashboardBody( mapdeckOutput(outputId = 'mapA'))
)

################################################################################################
################################################################################################
server <- function(input, output) {


    ##The MapDeck Token
    key <- ''  ## put your own token here
    set_token(key) 

    ##The Inputdata
    url <- '' ## vector tile API call here
    FileIn <- data.frame(url)  ## a dataframe from the vector tile from MapBox to use as input for maps.

    ##The Map
    output$mapA <- renderMapdeck({
        mapdeck(
            style = mapdeck_style('dark')) %>%
            add_scatterplot(
                data = FileIn,
                lat = "Latitude from input",
                lon = "Longitude from input",
                radius = 1000,
                layer_id = 'point',
                update_view = FALSE)
    })


}

################################################################################################
################################################################################################
shinyApp(ui = ui, server = server)