R Блестящий реактивный сюжет из списка списков

Я создаю базовое приложение R Shiny и имею список, содержащий отдельные списки, каждый из которых хранит фрейм данных и значение. Я включил образцы данных, чтобы продемонстрировать свой список списков. В моем приложении я пытаюсь иметь один вариант выбора (выпадающее меню с надписью «Список 1», «Список 2» и т. текстовый вывод значения, сохраненного в выбранном списке.

У меня возникли проблемы с возможностью сделать выходные данные (как график, так и текст) реагирующими на ввод и отображать данные из выбранного списка.

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

## Example Data
list_a <- list(df = data.frame(x = rnorm(n = 10, mean = 5, sd = 2),
                             y = rnorm(n = 10, mean = 7, sd = 3)),
             value = "a")
list_b <- list(df = data.frame(x = rnorm(n = 10, mean = 20, sd = 5),
                             y = rnorm(n = 10, mean = 13, sd = 7)),
             value = "b")
list_c <- list(df = data.frame(x = rnorm(n = 10, mean = 12, sd = 4),
                             y = rnorm(n = 10, mean = 10, sd = 4)),
             value = "c")

mylist <- list(list_a, list_b, list_c)

## Packages
library(tidyverse)
library(shiny)

# Define UI for application that draws a histogram
ui <- fluidPage(

    # Application title
    titlePanel("Shiny App"),

## Panel with selectInput dropdown and output options
    pageWithSidebar(
        headerPanel('Data'),
        sidebarPanel(
            selectInput('data', 'Dataset',
                        choices = c("1" = list_a, "2" = list_b, "3" = list_c)),
        ),
        mainPanel(
            plotOutput('plot1'),
            textOutput('text1')
        )
    )
)

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

    ## Boxplot with 'DF' from selected list
        output$plot1 <- renderPlot({
        reactivedata <- boxplot(input$data)
        boxplot(reactivedata$df)
    })

    ## Text output from 'value' stored in list
    output$text1 <- renderText({
        reactivetext <- print(input$data)
        print(reactivetext$value)
    })


}

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