Как применить функцию к фрейму данных

Question

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

library(shiny)

source("prepare-data.R") #my function. It works perfectly outside of 
shiny. 


ui <- fluidPage(

sidebarLayout(

sidebarPanel(

  p("Step 1: Upload your csv:"),

  fileInput("file1", "Choose CSV File",
    accept = c("text/csv", "text/comma-separated 
    values,text/plain", ".csv"))
    ),

mainPanel(

  p("table will go here"),

  dataTableOutput("processedData")

)
)
)


server <- function(input, output){

data <- reactive({

    inFile <- input$file1
    if (is.null(inFile)){return()}
    read.csv(inFile$datapath, header = TRUE, sep =",")
  })

observeEvent(
    input$file1, {
        output$processedData<- renderDataTable({
            prepareData(data())Ta
        })
)

)


shinyApp(ui = ui, server = server)

Заранее спасибо!