R所需的包和Github
因此,我在Github上有一个R/Shinny项目,它需要一些包,例如shinyjs、V8和dplyr,我在代码中指定了R所需的包和Github,r,github,shiny,rstudio,R,Github,Shiny,Rstudio,因此,我在Github上有一个R/Shinny项目,它需要一些包,例如shinyjs、V8和dplyr,我在代码中指定了required(shinyjs)和library(shinyjs) 在我的计算机上,它工作得很好,如果我从Github下载一个副本也可以,但是如果我从另一台计算机上下载,我必须手动下载所需的软件包 当有人试图运行应用程序时,有没有办法让Rstudio自动安装所需的软件包?这样做。这里有函数: 截图来自RTV,但我也在R-Studio中进行了测试 library(shiny)
required(shinyjs)
和library(shinyjs)
在我的计算机上,它工作得很好,如果我从Github下载一个副本也可以,但是如果我从另一台计算机上下载,我必须手动下载所需的软件包
当有人试图运行应用程序时,有没有办法让Rstudio自动安装所需的软件包?这样做。这里有函数: 截图来自RTV,但我也在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")
})
}
)
库(闪亮)
如果您对我的回答有任何反馈,我们将不胜感激。