server.R

require(shiny)
require(recharts)

# options(shiny.transcode.json = FALSE)

shinyServer(function(input, output) {
  output$recharts = renderEcharts({
    recharts.init()
    ePie(abs(rnorm(input$numeber)))
  })
})

ui.R

require(shiny)
require(recharts)

shinyUI(pageWithSidebar(
  headerPanel('Hello, world!'),
  
  sidebarPanel(
    sliderInput('numeber', 'How much data do you want?',
               min=3, max=8, value=5)
    ),
  
  mainPanel(
    includeHTML(recharts.shiny.init()),
    htmlOutput('recharts')
    )
))