r - Shiny R で画像またはテキストを読み込む

Question

ボタンがクリックされたときにパスを指定して Web ページに表示することで、ハードドライブから画像をロードする R SHiny を使用して単純な Web アプリを作成したいと考えています。

たとえば、パスを表示するなど、テキストに対してそれを行うことから始めましたが、クリックしてもボタンが反応しません(つまり、メッセージが表示されないということです)。

サーバー.R:

shinyServer(function(input, output, session) {
  dt<-reactive({
  output$text1 <- renderText({ 
  paste("You have selected", input$obs)
   })
  }) 
})

ui.R:

shinyUI(pageWithSidebar(
  headerPanel("Fruits and vegetables!"),
  sidebarPanel(
    helpText("What do you see below?"),
    #imageOutput(outputId="images/1.png")
    numericInput("obs", "Number of observations to view:", 10),
    actionButton("get", "Get")
),
  mainPanel(textOutput("text1"))
))