popup size

g_fun.R bsModalNoFoot – size bsModalNoFoot <- function (id, title, trigger, …, easyClose = FALSE, size) { if (!missing(size)) { if (size == “large”) { size = “modal-lg” } else if (size == “small”) { size = “modal-sm” } size <- paste(“modal-dialog”, size) } else { size <- “modal-dialog” } bsTag Read more…

shinyjs run javascript

https://www.jqueryscript.net/demo/Animated-Circles-Loading-Spinner-jQuery-g-spinner/ src\css\gspinner.css src\js\g-spinner.js How to use it: 1. Load the minified versions of the g-spinner plugins JS & CSS in your webpage which has jQuery library loaded. <link rel=”stylesheet” href=”gspinner.min.css”> <script src=”jquery.min.js”></script> <script src=”g-spinner.min.js”></script> 2. Create a DIV element where we want to insert the loading indicator into: <div id=”loader”> </div> 3. We need a Read more…

UIOutput level plot test

  library(shinyWidgets) #draw_data <- readRDS(“/home/sixx/d2cm/1.RCodes/4.Etc/9.sixx/draw_data.rds”) init_env0 <- function(){ env <- new.env() env$dd <- NULL return(env) } env6 <- init_env0() server <- function(input,output, session){ uFunc_draw_plot<- function(dd, selected_col, val_limit){ p <- dd %>% ggplot(aes_string(x=”sec”, y=”val”, group=”subid”, color=selected_col)) + coord_cartesian(ylim=val_limit) + geom_point() + geom_line() output$O_plt_main <- renderPlot({ return(p) }) } observeEvent(input$I_btn_load_make_dd, { if Read more…

shinyboard :: dropdown notifications menu

library(shiny) library(shinyjs) library(shinydashboard) header <- dashboardHeader(dropdownMenuOutput(“taskMenu”)) sidebar <- dashboardSidebar() body <- dashboardBody(useShinyjs()) ui <- dashboardPage(header, sidebar, body) server <- function(input, output, session) { uFunc_memory_info <- function(){ mem <- system(“free -g”, intern=T) mem <- str_split(mem, pattern = “\\s{2,}” ) mem_all <- as.numeric(mem[[2]][2]) mem_use <- as.numeric(mem[[2]][3]) swap_all <- as.numeric(mem[[3]][2]) swap_use <- as.numeric(mem[[3]][3]) Read more…

svn (Subversion)

개요 –  open source version control system –  keep track of a collection of files and folders. Installation https://help.ubuntu.com/lts/serverguide/subversion.html.en https://tecadmin.net/install-subversion-server-on-ubuntu/   Written by Rahul K. sudo apt install subversion To access Subversion repository using the HTTP protocol, sudo apt install libsvn-dev libapache2-svn libapache2-mod-svn Using Apache install apache sudo apt-get install apache2 enable Read more…

press Button “enter” key action in shiny Math.random()

    tags$head(tags$script(HTML( “$(document).keyup(function(event) { if (event.keyCode == 13) { $(‘#logInsignin’).click(); } });” ))),       #tags$head(tags$script(src = “../../www/AAA.js”)), tags$head(tags$script(HTML( “$(document).keyup(function(event) { if ($(‘#BB’).is(‘:focus’) && (event.keyCode == 13)) { $(‘#CC’).click(); } });” ))),         # tags$head(tags$script(src = “enter_button.js”)), tags$head(tags$script(HTML( “$(document).keyup(function(event) { if ($(‘#logInpassword’).is(‘:focus’) && (event.keyCode == Read more…

session$sendCustomMessage

https://shiny.rstudio.com/gallery/server-to-client-custom-messages.html session$sendCustomMessage https://stackoverflow.com/questions/26003978/shiny-and-javascript-interaction-with-sessionsendcustommessage