shiny test with ggplot2

server.R

library(shiny)
library(ggplot2)

# Define server logic required to generate and plot a random distribution
shinyServer(function(input, output) {
  
  # Function that generates a plot of the distribution. The function
  # is wrapped in a call to reactivePlot to indicate that:
  #
  #  1) It is "reactive" and therefore should be automatically 
  #     re-executed when inputs change
  #  2) Its output type is a plot 
  #
  output$distPlot <- reactivePlot(function() {
    
    # generate an rnorm distribution and plot it
    dist <- rnorm(input$obs)
    a <- "한글 테스트"
    p <- ggplot(as.data.frame(dist), aes(dist)) + geom_histogram(binwidth = diff(range(dist))/30) + ggtitle(enc2utf8(a))
    print(p)
  })
})

ui.R

library(shiny)

title <- "안녕 Shiny!"

# Define UI for application that plots random distributions 
shinyUI(pageWithSidebar(
  
  # Application title
  headerPanel(title),
  
  # Sidebar with a slider input for number of observations
  sidebarPanel(
    sliderInput("obs", 
                "Number of observations:", 
                min = 0, 
                max = 1000, 
                value = 500)
  ),
  
  # Show a plot of the generated distribution
  mainPanel(
    plotOutput("distPlot")
  )
))