RenderUI - проблемы snytax

Question

Цель состоит в том, чтобы вызвать файл .csv.

Оттуда пользователь должен выбрать характеристику c, например «Всего вопросов чата», которая затем создает график данных временного ряда, например, количество чатов в месяц.

Я не могу понять, как заставить UIrender передавать данные туда и обратно. На самом деле это просто взято из примера Worldphone на R, а не моей оригинальной работы.

 UI
    # Rely on the 'WorldPhones' dataset in the datasets
    # package (which generally comes preloaded).
    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
fluidPage(    

    # Give the page a title
    titlePanel("Teephones by region"),

    # Generate a row with a sidebar
    sidebarLayout(      




        # Define the sidebar with one input
        sidebarPanel(


                                        output$regionSel = renderUI(selectInput("region", "Type of Questions:",
                                                                                choices=colnames(oboler_data)))


            #selectInput("region", "Region:", 
                       # choices=colnames(WorldPhones)),

            hr()
            helpText("Data from the Library.")
       # ),

        # Create a spot for the barplot
        mainPanel(
            plotOutput("myPlot")  
        )

    #)
#)



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) {

  # Fill in the spot we created for a plot
  output$myPlot = renderPlot({


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

Error message
Error in parse(file, keep.source = FALSE, srcfile = src, encoding = enc) : 
  C:\Users\12083\Documents\tester/ui.R:25:58: unexpected '='
24:                                
25:                                         output$regionSel =
                                                             ^
Possible missing comma at:
32:            hr()
               ^
Possible missing comma at:
33:            helpText("Data from the Library.")
               ^
Possible missing comma at:
37:        mainPanel(
           ^
Warning: Error in sourceUTF8: Error sourcing C:\Users\12083\AppData\Local\Temp\RtmpaaFXGB\file4c947a3c4d0
  [No stack trace available]

Answer 1

Добро пожаловать в SO, Карл.

Вы поместили серьезный код в середину вашего пользовательского интерфейса. Замените

output$regionSel = renderUI(selectInput("region", "Type of Questions:",
                                        choices=colnames(oboler_data)))

with uiOutput("regionSel")

и переместите исходный код в вашу серверную функцию. У этого больше шансов сработать.