Как создать радарную диаграмму в Shiny?

У меня сегодня вечером задание, и я должен создать последний сюжет: радиолокационную диаграмму в Shiny.

Я не могу понять это, несмотря на создание «нормальной» радиолокационной диаграммы с использованием этого кода:

mvr <- fifa %>%

filter (year == 2021) %>%
  filter (short_name %in% c("L. Messi", "Cristiano Ronaldo")) %>%
  select (-"short_name", -"age", -"height_cm", -"weight_kg", -"nationality", -"club_name", -"league_rank", -"overall", -"potential", -"value_eur", -"wage_eur", -"preferred_foot", -"team_position", -"year", -"Position")

maxmin <- data.frame( Attack = c(99,0), Skill = c(99,0), Movement = c(99,0), Power = c(99,0), Mentality = c(99,0), Defense = c(99,0), Goalkeeping = c(99,0) )

rownames(maxmin) <- c("Max", "Min")

comparison <- bind_rows(maxmin, mvr)

radarchart(comparison)

Моя база данных «fifa», состоящая из нескольких строк игроков и столбцов атрибутов производительности игрока, года, названия клуба и т. д. Я хочу каждый раз выбирать только двух игроков и сравнивать их атрибуты производительности с помощью радиолокационной диаграммы.

Я хочу воссоздать приведенный выше код для панели инструментов Shiny. У кого-нибудь есть идея?

Я написал это:

  output$radar <- renderPlotly({
mvr <- filter(fifa, name == input$short_name) %>%
  select (-"short_name", -"age", -"height_cm", -"weight_kg", -"nationality", -"club_name", -"league_rank", -"overall", -"potential", -"value_eur", -"wage_eur", -"preferred_foot", -"team_position", -"year", -"Position")

maxmin <- data.frame( Attack = c(99,0), Skill = c(99,0), Movement = c(99,0), Power = c(99,0), Mentality = c(99,0), Defense = c(99,0), Goalkeeping = c(99,0) )
rownames(maxmin) <- c("Max", "Min")
comparison <- bind_rows(maxmin, mvr)

fig <- plot_ly(comparison)})

Но это не работает.