file16eb3467d6b9.R

#' @importFrom shiny
#' @import miniUI
codefinch_app <- function(){
  ui <- miniPage(
    gadgetTitleBar("Codefinch: Tweet Your Code",
                   right = miniTitleBarButton("tweet_it", "Send Tweet", primary = TRUE)),
    miniContentPanel(scrollable=FALSE,
      
      fillRow(flex = c(2, 3),
        fillCol(
          uiOutput("status_box"),
          textOutput("chars"),
          checkboxInput("gist_url", "Include Gist URL?"),
          selectInput("highlight", "Select Highlight", choices = c(
            "default", "tango", "pygments", "kate", "monochrome", "espresso", "zenburn","haddock"
          ))
        ),
        fillCol(imageOutput("code_png"))
      )
      
      
      # fillCol(flex = c(5, 2),
      #   imageOutput("code_png", height = "100%"),
      #   fillRow(flex = c(2, 1),
      #     fillCol(textAreaInput("status", label = NULL, width = "100%", height = "100%",
      #                           resize = "both"),
      #             fillRow(textOutput("chars"),
      #                     checkboxInput("gist_url", "Include Gist URL?"))
      #             ),
      #     selectInput("highlight", "Select Highlight", choices = c(
      #       "default", "tango", "pygments", "kate", "monochrome", "espresso", "zenburn","haddock"
      #     ))
      #   )
      # )
      
      
      
    )
  )
  
  server <- function(input, output){
    img <- create_image(highlight = input$highlight)
    
    output$status_box <- renderUI({
      textAreaInput("status", label = NULL, width = "100%", height = "100%",
                    resize = "both", value = img$gist_url)
    })
    
    output$code_png <- renderImage({
      list(src = img$path, width = "100%")
    })
    
    output$chars <- renderText({
      140 - nchar(input$status)
    })
  }
  
  runGadget(ui, server, viewer = paneViewer())
}