[英]R Shiny required packages and Github
所以我在Github上有一個R / shiny項目需要一些軟件包,比如shinyjs,V8和dplyr,我在代碼中指定了required(shinyjs)
和library(shinyjs)
。
在我的計算機上它工作正常,如果我從Github下載副本也可以,但如果我從另一台計算機上下載,我必須手動下載所需的軟件包。
當有人試圖運行應用程序時,有沒有辦法讓Rstudio自動安裝所需的包?
這樣做。 得到了這里的功能: malonypatr的install_load函數
截圖來自RTVS,但我也在R-Studio中測試過它。
library(shiny)
install_load <- function (package1, ...) {
# convert arguments to vector
packages <- c(package1, ...)
# start loop to determine if each package is installed
for(package in packages){
# if package is installed locally, load
if(package %in% rownames(installed.packages()))
do.call('library', list(package))
# if package is not installed locally, download, then load
else {
install.packages(package)
do.call("library", list(package))
}
}
}
install_load("shinyjs")
shinyApp(
ui = fluidPage(
useShinyjs(), # Set up shinyjs
# Add a CSS class for red text colour
inlineCSS(list(.red = "background: red")),
actionButton("btn", "Click me"),
p(id = "element", "Watch what happens to me")
),
server = function(input, output) {
observeEvent(input$btn, {
# Change the following line for more examples
toggleClass("element", "red")
})
}
)
加載:
產量:
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.