mxblsdl
/ git prompt
Created
September 12, 2020 21:03
set your prompt to display the current git branch. Should be added to the .Rprofile file
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| if(requireNamespace("prompt", quietly = T)) { | |
| prompt_git <- function(...) { | |
| paste0( | |
| "[", prompt::prompt_git(), "]", "> " | |
| ) | |
| } | |
| prompt::set_prompt(prompt_git) | |
| rm(prompt_git) | |
| } |
mxblsdl
/ switch and menu example
Created
November 17, 2020 22:33
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # set the limits of each axis | |
| # these will need to be changed for each data | |
| # use summary(df) to get metrics | |
| ylim_prime <- c(0.35, 0.76) | |
| ylim_sec <- c(6200, 12000) | |
| # calculate values for use in plot | |
| b <- diff(ylim_prime)/diff(ylim_sec) | |
| a <- ylim_prime[1] - b*ylim_sec[1] |
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # UI | |
| tags$script( | |
| src = paste0( | |
| "https://cdn.jsdelivr.net/gh/StephanWagner/", | |
| "[email protected]/dist/jBox.all.min.js" | |
| ) | |
| ), | |
| tags$link( | |
| rel = "stylesheet", |
mxblsdl
/ close_connections.R
Created
June 18, 2022 15:35
Example of callback function for when shiny closes
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # Close connection to database when app closes | |
| cancel.onSessionEnded <- session$onSessionEnded(function() { | |
| if(exists("con")){ | |
| dbDisconnect(con) | |
| print("Connection to DB Closed") | |
| } | |
| }) |
OlderNewer