Проблемы с синтаксисом R - снова

Question

Идея в том, что у меня есть файл CSV с целыми числами, упорядоченными по дате. Я хочу, чтобы пользователь мог раскрыть меню, выбрать тип транзакции и построить график. Я переписал все это в одном файле

Проблема, похоже, в том, как я отформатировал UIformat для передачи переменных на сервер. Я вижу случайные сообщения, такие как

"Error in sidebarLayout(sidebarPanel(uiOutput("regionSel"), selectInput("regionSel",  : 
argument "mainPanel" is missing

, без значения по умолчанию

Теперь он начал производить вывод, функции которого полностью не связаны с кодом и данными, которые я запускаю. Я все чаще думаю, что R одержим сатаной. Если кто-нибудь из вас поможет мне с этим, я буду очень признателен. Я потратил на это четыре дня, и ничего не работает.

#
# This is a Shiny web application. You can run the application by clicking
# the 'Run App' button above.
#
# Find out more about building applications with Shiny here:
#
#    http://shiny.rstudio.com/
#

library(datasets)
library(ggplot2)
library(readr)

oboler_data <- read_csv(file = "C:/Users/12083/Desktop/ref.csv")
rdate <- as.Date(oboler_data$DATE,"%m/%d/%y")
# Use a fluid Bootstrap layout
ui <- fluidPage( 

    # Application title
    titlePanel("Library Statistics"),


    # Generate a row with a sidebar
    sidebarLayout(      

        # Define the sidebar with one input
        sidebarPanel(

            uiOutput("regionSel"),
               selectInput("regionSel", "Type of Questions:", 
               choices=colnames(oboler_data)),
            # ),

    # Show a plot of the generated distribution
    mainPanel(
       plotOutput("myPlot")
    )
)
)

Определить логи сервера c требуется для построения гистограммы

server <- function(input, output) {

server
# Rely on the 'WorldPhones' dataset in the datasets
# package (which generally comes preloaded).
library(datasets)
library(ggplot2)
oboler_data <- read_csv(file = "C:/Users/12083/Desktop/ref.csv")
rdate <- as.Date(oboler_data$DATE,"%m/%d/%y")
# Define a server for the Shiny app
function(input, output) {

    output$myPlot = renderUI(selectInput("regionSel", "Type of Questions:",
                                            choices=colnames(oboler_data)))
    # Fill in the spot we created for a plot
    output$myPlot = renderPlot({

        # Render a barplot
        ggplot(data = oboler_data, aes(x = "rdate", y = input$regionSel)) +
            geom_point() +
            labs(x = "Date",
                 y = "Total Transactions",
                 title = "Library Data",
                 subtitle = "July 2020-June 2021") 
    })

Запустить приложение

shinyApp(ui = ui, server = server)