#' @title FUNCTION_TITLE
#' @description FUNCTION_DESCRIPTION
#' @return OUTPUT_DESCRIPTION
#' @details DETAILS
#' @examples
#' \dontrun{
#' if(interactive()){
#' #EXAMPLE1
#' }
#' }
#' @rdname app_ui
#' @export
#' @importFrom miniUI miniPage gadgetTitleBar miniContentPanel
#' @importFrom shiny fillRow h2 actionButton hr fileInput textInput uiOutput textAreaInput
#' @importFrom slickR slickROutput
app_ui <- function() {
tagList(
# Leave this function for adding external resources
golem_add_external_resources(),
# List the first level UI elements here
miniUI::miniPage(
miniUI::gadgetTitleBar("Carbonate Shiny App"),
miniUI::miniContentPanel(
shiny::fillCol(flex = c(2,1),
shiny::fillRow(flex = c(2,1),
column(width = 12,
shiny::h2('Script'),
shiny::actionButton(inputId = 'get',label = 'Fetch from carbon.js'),
shiny::hr(),
build_ace()
),
column(12,
shiny::h2('Twitter'),
shiny::actionButton(inputId = 'post',label = 'Post to Twitter'),
shiny::hr(),
shiny::textInput(inputId = 'reply_status_id',label = NULL,placeholder = 'Enter reply status id'),
shiny::uiOutput('chars'),
shiny::textAreaInput(
inputId = 'status',
label = sprintf('Tweet Status: Posting as @%s',
Sys.getenv('TWITTER_SCREEN_NAME'))
),
shiny::selectizeInput(
inputId = 'tweet_imgs',
label = NULL,
multiple = TRUE,
choices = NULL,
options = list(
placeholder = 'No Images to Select',
plugins = list('remove_button', 'drag_drop')
)
)
)
),
shiny::fillRow(flex = c(2,1),
column(width = 12,
shiny::hr(),
shiny::h2('Images Preview'),
slickR::slickROutput('carbons')),
column(width = 12,
shiny::hr(),
shiny::h2('Add Local Files'),
shiny::fileInput(
inputId = "local",
label = NULL,
multiple = TRUE,
accept = c("image/png")
))
)
)
))
)
}
#' @import shiny
golem_add_external_resources <- function(){
addResourcePath(
'www', system.file('app/www', package = 'shinycarbon')
)
tags$head(
golem::activate_js(),
golem::favicon()
# Add here all the external resources
# If you have a custom.css in the inst/app/www
# Or for example, you can add shinyalert::useShinyalert() here
#tags$link(rel="stylesheet", type="text/css", href="www/custom.css")
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.