Простая листовка R с Reactive - не работает - все перепробовал - PullRequest
Новая
       14

Простая листовка R с Reactive - не работает - все перепробовал

0 голосов
/ 24 марта 2020

Я хочу показать карту с долготами и широтами от игрока и изменить ее в зависимости от ранга игрока на слайдере.

Проблемы

  • Карта в пользовательском интерфейсе не работает (stati c, как показано в закомментированной версии, работает нормально)
  • Ползунок не передает входные данные на карте (он не реагирует)

Если вы покажете мне, что я делаю неправильно, я буду очень благодарен.

Спасибо 

library(dplyr)
library(leaflet)
library(shiny)

a <- c("John","Tim","Ronaldo","Messi")
b <- c(4, 3, 1, 2)
c <- c(-121.890339,-121.888161,-121.892335,-121.892335)
d <- c(37.337290,37.337955,37.340215, 37.340215)

players <- data.frame(a,b,c,d)
names(players) <- c('name', 'rank', 'y_cord', 'x_cord')
names

# testmap <- leaflet() %>%
#                 addTiles() %>%
#                 addMarkers(lng=players$x_cord, lat=players$y_cord)
# testmap

ui <- fluidPage(

  sidebarLayout(
    sidebarPanel(
      sliderInput("obs", "Choose rank", 1, min = 1, max = 4),
    ),

    mainPanel(
      leafletOutput("final_map")
    )
  ),
)

# Define server logic required to draw a histogram
server <- function(input, output) {

  top_player <- reactive({players %>% filter(rank == input$obs)})

  output$final_map <- renderLeaflet(select_react <- leaflet() %>%
                                      addTiles() %>%
                                      addMarkers(lng=top_player$x_cord, lat=players$y_cord))
}


# Run the application
shinyApp(ui = ui, server = server)
...