shinybootstrap2::withBootstrap2(
fluidPage
( #Include Stuff
tags$head(
tags$link(rel = 'stylesheet', type = 'text/css', href = 'editR.css'),
tags$script(src = "actions.js")),
# Hidden buttons
shinyFilesButton("my_open", "Open file", "Please select a file", FALSE),
actionLink("my_save", "Save"),
actionLink("my_render", "Render"),
actionLink("my_ghost", "Ghost"),
actionLink("my_ghostu", "Ghostu","update"),
actionLink("my_ghostd", "Ghostd"),
actionLink("my_ghostg", "Ghostg"),
#Set Local Storage
shinyStore::initStore("store", "shinyStore-ghost"),
# Navigation bar
bsNavBar("nav", brand = "RGhost", fixed = FALSE,
leftItems = list(
bsNavDropDown2(inputId = "dd1", label = "File",
choices = list(c("Open file", "open"),
c("Save file", "save"),
c("Render file", "render"))),
bsNavDropDown2(inputId = "dd2", label = "Ghost",
choices = list(c("Get Posts", "ghostg"),
c("Post to Ghost", "ghost"),
c("Update Post to Ghost", "ghostu"),
c("Delete Post from Ghost", "ghostd")
))
)
,rightItems = list (textOutput("login_status"))),
fluidRow
( column
(width=2,
bsAlert(inputId = "alert_anchor"),
bsCollapse(open = "col2", id = "collapse",
bsCollapsePanel("Login", id="col1",
textInput("username", "Username"),
textInput("password", "Password"),
textInput("ghost_base_url", "Url"),
actionButton("connect", "Connect", icon("download"))
),
bsCollapsePanel("Post",id="col2",
uiOutput("Posts"),
textInput("PostTitle", label ="Post title", value = "Enter title..."),
selectInput('Page', 'Page', c("Not a page"="0","Make a Page"="1")),
selectInput('Publish', 'Publish', c("Draft"="draft","Published"="published")),
selectInput('Featured', 'Featured', c("Normal"=0,"Feature"=1)),
uiOutput("Users"),
uiOutput("Tags"),
textInput('Slug', label ="Url", value = ""),
textInput('Image', label ="Image", value = "")
))
)
,
column
(width = 6,
#MainPaneloutput
aceEditor("rmd", mode = "markdown", wordWrap = TRUE, fontSize = 11, debounce = 10, autoComplete = "live", height = "auto")
),
column(
width=6,
htmlOutput("knitDoc"))
)
)
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.