Advertisement
Guest User

Untitled

a guest
Aug 20th, 2019
59
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.04 KB | None | 0 0
  1. snippet lib
  2. library(${1:package})
  3.  
  4. snippet req
  5. require(${1:package})
  6.  
  7. snippet src
  8. source("${1:file.R}")
  9.  
  10. snippet ret
  11. return(${1:code})
  12.  
  13. snippet mat
  14. matrix(${1:data}, nrow = ${2:rows}, ncol = ${3:cols})
  15.  
  16. snippet sg
  17. setGeneric("${1:generic}", function(${2:x, ...}) {
  18. standardGeneric("${1:generic}")
  19. })
  20.  
  21. snippet sm
  22. setMethod("${1:generic}", ${2:class}, function(${2:x, ...}) {
  23. ${0}
  24. })
  25.  
  26. snippet sc
  27. setClass("${1:Class}", slots = c(${2:name = "type"}))
  28.  
  29. snippet if
  30. if (${1:condition}) {
  31. ${0}
  32. }
  33.  
  34. snippet el
  35. else {
  36. ${0}
  37. }
  38.  
  39. snippet ei
  40. else if (${1:condition}) {
  41. ${0}
  42. }
  43.  
  44. snippet fun
  45. ${1:name} <- function(${2:variables}) {
  46. ${0}
  47. }
  48.  
  49. snippet for
  50. for (${1:variable} in ${2:vector}) {
  51. ${0}
  52. }
  53.  
  54. snippet while
  55. while (${1:condition}) {
  56. ${0}
  57. }
  58.  
  59. snippet switch
  60. switch (${1:object},
  61. ${2:case} = ${3:action}
  62. )
  63.  
  64. snippet apply
  65. apply(${1:array}, ${2:margin}, ${3:...})
  66.  
  67. snippet lapply
  68. lapply(${1:list}, ${2:function})
  69.  
  70. snippet sapply
  71. sapply(${1:list}, ${2:function})
  72.  
  73. snippet mapply
  74. mapply(${1:function}, ${2:...})
  75.  
  76. snippet tapply
  77. tapply(${1:vector}, ${2:index}, ${3:function})
  78.  
  79. snippet vapply
  80. vapply(${1:list}, ${2:function}, FUN.VALUE = ${3:type}, ${4:...})
  81.  
  82. snippet rapply
  83. rapply(${1:list}, ${2:function})
  84.  
  85. snippet ts
  86. `r paste("#", date(), "------------------------------\n")`
  87.  
  88. snippet shinyapp
  89. library(shiny)
  90.  
  91. ui <- fluidPage(
  92. ${0}
  93. )
  94.  
  95. server <- function(input, output, session) {
  96.  
  97. }
  98.  
  99. shinyApp(ui, server)
  100.  
  101. snippet shinymod
  102. ${1:name}_UI <- function(id) {
  103. ns <- NS(id)
  104. tagList(
  105. ${0}
  106. )
  107. }
  108.  
  109. ${1:name} <- function(input, output, session) {
  110.  
  111. }
  112.  
  113. snippet hp
  114. help(package = "${1:package-name}")
  115.  
  116. snippet bv
  117. browseVignettes(package = "${1:package-name}")
  118.  
  119. snippet dv
  120. devtools::install(build_vignettes = TRUE)
  121.  
  122. snippet up
  123. remotes::update_packages(build_vignettes = TRUE, dependencies = TRUE)
  124.  
  125. snippet ig
  126. remotes::install_github("${1:username}/${2:repo}", build_vignettes = TRUE, dependencies = TRUE)
  127.  
  128. snippet pp
  129. "`r gsub('"', "", gsub("\\\\", "/", readClipboard()))`"
  130.  
  131. snippet ip
  132. install.packages("${1:pkg-name}", dependencies = TRUE)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement