Как связать пользовательский ввод с графиком gganimate в R Shiny?

Есть ли способ связать пользовательский ввод (ось x, ось y, цвет и т. д.) с графиком gganimate в R Shiny? Таким образом, когда пользователь выбирает другой ввод (ось X, ось Y, цвет и т. д.) из раскрывающегося списка. График gganimate будет заполнен разными осями x, y, цветом и т. д., чтобы его можно было изменить соответствующим образом?

Кодирование, которое я пробовал, показано ниже. И есть ошибка из-за того, что имя переменной, которое я сохранил в пользовательском интерфейсе (xValue, yValue, colorValue и т. д., которые помещаются в функцию ggplot), не применяется в Serve...

Идея кода пользовательского интерфейса взята отсюда: https://shiny.rstudio.com/articles/layout-guide.html И это будет отображать что-то вроде этого:

library(shiny)
library(shinythemes)
library(palmerpenguins)
library(gganimate)
library(dplyr)
library(tidyr)
library(ggplot2)
library(gapminder)
data(package = 'palmerpenguins')

ui <- fluidPage(
               
                navbarPage(
                  "Animated penguins data",
                 
                  tabPanel("Navbar 2", 
                           
                           
                           ##########
                           
                           imageOutput('plot'),
                             
                           
                             hr(),
                             
                             fluidRow(
                               column(3,
                                      h4("Diamonds Explorer"),
                                      sliderInput('sampleSize', 'Sample Size', 
                                 min=1, max=nrow(penguins), value=min(1000, nrow(penguins)), 
                                                  step=500, round=0),
                                      br(),
                                      checkboxInput('jitter', 'Jitter'),
                                      checkboxInput('smooth', 'Smooth')
                               ),
                               column(4, offset = 1,
                              xValue -> selectInput('x', 'X', names(penguins)),
                     yValue -> selectInput('y', 'Y', names(penguins), names(penguins)[[2]]),
                  colorValue -> selectInput('color', 'Color', c('None', names(penguins)))
                               ),
                               column(4,
            rowValue -> selectInput('facet_row', 'Facet Row', c(None='.', names(penguins))),
      columnValue -> selectInput('facet_col', 'Facet Column', c(None='.', names(penguins)))
                               )
                             )
                           
                           #########
                           
                           
                          
                           ),
                  
       
                  
                ) # navbarPage
                
) # fluidPage

Идея подачи пришла отсюда: Как создать и отобразить анимированный GIF в Shiny? Сервер какой-то. как это

# Define server function  
server <- function(input, output) {
  
  ##########################################
  output$plot <- renderImage({
    # A temp file to save the output.
    # This file will be removed later by renderImage
    outfile <- tempfile(fileext='.gif')
    
    # now make the animation
    p = myPenguins %>%
      ggplot(
        aes(xValue, yValue, color = colorValue)) + 
      geom_point() + 
      #geom_line() +
      facet_grid(rows = vars(rowValue), cols =  vars(columnValue))+
      theme_bw()+
      #theme_minimal() +
      transition_time(year)+
      labs(title = "Year: {frame_time}")+
      
      view_follow()#+
    
    anim_save("outfile.gif", animate(p)) # New
    
    # Return a list containing the filename
    list(src = "outfile.gif",
         contentType = 'image/gif')
    
    }, deleteFile = TRUE)
  
  
  ################################################################
  }

shinyApp(ui = ui, server = server)