Как написать имя объекта, переданного блестящему приложению, на выходном графике

Я пишу блестящие приложения, которые берут объект (в основном фотографию или матрицу чисел) и создают набор графиков для исследования объекта. Я хочу настроить блестящее приложение как функцию, чтобы я мог вызывать его из командной строки и напрямую передавать ему интересующий объект. Я хотел бы иметь возможность возвращать имя объекта в названиях графиков и т.д. Я могу сделать это с помощью replace() за пределами блестящего приложения, но когда я помещаю его в блестящее приложение, оно возвращает имя объекта «внутри области действия» блестящей функции, а не имя объекта, который был передан в блестящая функция.

По предложению я использовал стилизатор для улучшения стиля кода:

    #this puts Children in the title of the graph which is what I want but I want a shiny app:
    myPlot <- function(x) {
      plot(1:10, main = substitute(x))
    }
    children <- "10"
    myPlot(children)
    
    #when I do it inside the shiny App
    #this puts x in the title of the plot which is not what I want:
    require(shiny)
    app1 <- function(x) {
      shinyApp(
        ui = mainPanel(plotOutput("plot1")),
        server = function(input, output) {
          output$plot1 <- renderPlot(myPlot(x))
        }
      )
    }
    
    app1(children)

Перед пакетом стайлера:

#this puts Children in the title of the graph which is what I want but I want a shiny app:
myPlot = function(x){
  plot(1:10,main=substitute(x))
  
}

children = "10"
myPlot(children)

#when I do it inside the shiny App
#this puts x in the title of the plot which is not what I want:
app1 = function(x) {shinyApp(
ui =  mainPanel(plotOutput("plot1")) ,
server = function(input,output){output$plot1 <- renderPlot( plot(1:10,main=substitute(x)) )}
)}
  
  app1(children)