Skip to content

Instantly share code, notes, and snippets.

#' @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,
imageOutput("code_png")
#' @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,
fillCol(imageOutput("code_png"))
# fillRow(flex = c(2, 3),
#' @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,
fillCol(imageOutput("code_png", width = "25%"))
# fillRow(flex = c(2, 3),
#' @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,
fillCol(imageOutput("code_png"))
# fillRow(flex = c(2, 3),
#' @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,
fillCol(imageOutput("code_png"))
# fillRow(flex = c(2, 3),
Name: Codefinch
Description: Tweet screenshots of your code.
Binding: codefinch_app
Interactive: true
Name: Codefinch
Description: Tweet screenshots of your code.
Binding: codefinch_app
Interactive: true
#' @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(
#' @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(
Name: Codefinch
Description: Tweet screenshots of your code.
Binding: codefinch_app
Interactive: true