Предупреждения, делающие график, который зависит от renderUI и uiOutput в блестящем

Question

Я пытаюсь воспроизвести простое блестящее приложение. В sibebarPanel есть два SelecInput. Первый выбирает набор данных (например, mtcars и iris). Второй выбирает один столбец набора данных, выбранный в предыдущем SelecInput. В главной панели я пытаюсь построить гистограмму этой переменной.

* щ 1004 *

ui <-  fluidPage(
  titlePanel('Panel Interactivo de aNálisis Econométrico (PINE)'),
  theme = shinythemes::shinytheme("cosmo"),
  sidebarPanel(
    selectInput('dataset', 'Choose Dataset', c('mtcars', 'iris')),
    uiOutput('columns')
  ),
  mainPanel(
    plotOutput('plot')
  )
)

Сервер

server <-

  function(input, output){

    mydata = reactive({get(input$dataset)})

    output$columns <- renderUI({

      selectInput('columns2', 'Columns', names(mydata()))
    })
    output$plot <- renderPlot(
      hist(mydata()[,input$columns2])
    )
  }

Я получаю график, но в консоли я получаю предупреждение «Ошибка в hist.default:« x »должен быть числовым», за которым следует

  166: stop
  165: hist.default
  163: renderPlot
  161: func
  121: drawPlot
  107: <reactive:plotObj>
   91: drawReactive
   78: origRenderFunc
   77: output$plot
    1: runApp

независимо от того, какую переменную или набор данных я выберу. Я не знаю, является ли это нормальным предупреждением, когда вы работаете с renderUI, uiOutput и plots или мне нужно что-то сделать для input$columns2, чтобы устранить предупреждение.

Я новичок с блеском. Я прочитал учебники и темы здесь, в StackOverflow, но я застрял. Любая помощь будет оценена.

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