## Not run
## Not run: 
library(rclipboard)
library(shiny)

# The UI
ui <- bootstrapPage(
  
  rclipboardSetup(),
  
  # Add a text input
  textInput("copytext", "Copy this:", "Zlika!"),

  # UI ouputs for the copy-to-clipboard buttons
  uiOutput("clip"),
  
  # A text input for testing the clipboard content.
  textInput("paste", "Paste here:")
  
)

# The server
server <- function(input, output) {

  # Add clipboard buttons
  output$clip <- renderUI({
    rclipButton("clipbtn", "rclipButton Copy", input$copytext, icon("clipboard"))
  })
  
}

shinyApp(ui = ui, server = server)

## End(Not run)

library(shiny)
library(RSQLite)
library(data.table)
library(DT)
library(dplyr)
library(rclipboard)


ui <- function(request) {
  fluidPage(
    DT::dataTableOutput("x1"),
    column(
      12,
      column(3,tags$div(title="forecast", numericInput("budget_input", label = ("Total Forecast"), value = 2))),
      column(2, textInput(inputId = "description", label = "Bookmark description", placeholder = "Data Summary")),
      column(2, bookmarkButton(id="bookmarkBtn"))),
    column(2, actionButton("opt_run", "Run")),
    DT::dataTableOutput("urlTable", width = "100%"),
    tags$style(type='text/css', "#bookmarkBtn { width:100%; margin-top: 25px;}")
  )
}

server <- function(input, output, session) {
  
  con <- dbConnect(RSQLite::SQLite(), "bookmarks.db", overwrite = FALSE)
  myBookmarks <- reactiveValues(urlDF = NULL)
  
  observeEvent(input$bookmarkBtn, {
    session$doBookmark()
  })
  
  observeEvent(input$opt_run, {
    cat('HJE')
  })
  
  output$x1 <- DT::renderDataTable({
    input$opt_run
    isolate({
      datatable(
        df %>% mutate(Current  = as.numeric(Current)*(input$budget_input)), selection = 'none', editable = TRUE
      )
    })
  })
  
  if(dbExistsTable(con, "Bookmarks")){
    tmpUrlDF <- data.table(dbReadTable(con, "Bookmarks"))
    myBookmarks$urlDF <- tmpUrlDF[, Timestamp := as.POSIXct(Timestamp, origin="1970-01-01 00:00")]
  } else {
    myBookmarks$urlDF <- NULL
  }
  
  session$onSessionEnded(function() {
    tmpUrlDF <- isolate({myBookmarks$urlDF})
    if(!is.null(tmpUrlDF)){
      dbWriteTable(con, "Bookmarks", tmpUrlDF, overwrite = TRUE)
    }
    dbDisconnect(con)
  })
  
  setBookmarkExclude(c("bookmarkBtn", "description", "urlTable_cell_clicked", "urlTable_rows_all", "urlTable_rows_current", "urlTable_rows_selected", "urlTable_search", "urlTable_state", "urlTable_row_last_clicked"))
  
  df <- data.table(Channel = c("A", "B","C"),
                   Current = c("2000", "3000","4000"),
                   Modified = c("2500", "3500","3000"),
                   New_Membership = c("450", "650","700"))
  
  onBookmarked(fun=function(url){
    if(!url %in% myBookmarks$urlDF$URL){
      if(is.null(myBookmarks$urlDF)){
        myBookmarks$urlDF <-
          unique(
            data.table(
              Description = input$description,
              URL = paste0("<a href='", url, "'>", url, "</a>"),
              Share = rclipButton("clipbtn", "rclipButton Copy", url, icon("clipboard")),
              Timestamp = Sys.time(),
              Session = session$token,
              User = Sys.getenv("USERNAME")
            ),
            by = "URL"
          )
      } else {
        myBookmarks$urlDF <-
          unique(rbindlist(list(
            myBookmarks$urlDF,
            data.table(
              Description = input$description,
              Share = rclipButton("clipbtn", "rclipButton Copy", url, icon("clipboard")),
              URL = paste0("<a href='", url, "'>", url, "</a>"),
              Timestamp = Sys.time(),
              Session = session$token,
              User = Sys.getenv("USERNAME")
            )
          )), by = "URL")
      }
    }
  })
  
  output$urlTable = DT::renderDataTable({
    req(myBookmarks$urlDF)
    myBookmarks$urlDF[User %in% Sys.getenv("USERNAME")]
  }, escape=FALSE)
  
}
enableBookmarking(store = "url")
shinyApp(ui, server)

library(shiny)
library(rclipboard)

ui <- bootstrapPage(  
  rclipboardSetup()
)
server <- function(input, output) {  
  showModal(modalDialog(
    # rclipboardSetup(),
    textInput("copytext", "Copy this:", "Zlika!"),
    uiOutput("clip"),    
    textInput("paste", "Paste here:")    
  ))
  output$clip <- renderUI({
    rclipButton("clipbtn", "rclipButton Copy", input$copytext, icon("clipboard"))
  })
}

shinyApp(ui = ui, server = server)

library(shiny)
library(rclipboard)
library(purrr)

rclipButtonXXX = function(inputId, label, clipText, icon = NULL, width = NULL, modal = FALSE){
  if(is.list(clipText)){
      sink(file = 'aa.txt')
      print(clipText)
      sink()
      session_txt = readLines("aa.txt",encoding = "UTF-8") %>%  paste(.,collapse ='\n' )
      file.remove('aa.txt')
      return(return(rclipButton(inputId, label, session_txt, icon, width , modal)))
    }else{
    error("ssha")
  }
}
  ui =fluidPage(
                rclipboardSetup(),
                fluidRow(
                  uiOutput("runenvirclip"), 
                  verbatimTextOutput("runenvir"))
                )
  
  server = function(input, output) {
   
    output$runenvirclip <- renderUI({
      rclipButtonXXX("runenvirclip", "environment Copy", sessionInfo(), icon("clipboard"))
    })
    output$runenvir <- renderPrint({
      print(sessionInfo())
    })
  }
  shinyApp(ui = ui, server = server)
  

library(rclipboard)
library(shiny)
library(shinyWidgets)

# The UI
ui <- bootstrapPage(
  
  rclipboardSetup(),
  
  # Add a text input
  textInput("copytext", "Copy this:", "Zlika!"),
  
  # UI ouputs for the copy-to-clipboard buttons
  dropdownButton(
    uiOutput("clip"),
    circle = TRUE, status = "danger",
    icon = icon("cog"), width = "300px",
    tooltip = tooltipOptions(title = "Click to see inputs !")
  ),
  
  # A text input for testing the clipboard content.
  textInput("paste", "Paste here:")
  
)

# The server
server <- function(input, output) {
  
  # Add clipboard buttons
  output$clip <- renderUI({
    rclipButton("clipbtn", "rclipButton Copy", input$copytext, modal = TRUE, icon("clipboard"))
  })
  
}

shinyApp(ui = ui, server = server)