I know this is a really old discussion but I have recently faced this issue and after trying a few options I found that using shinyshortcut package is the best :
library(shinyShortcut) shinyShortcut(shinyDirectory = getwd(), OS = .Platform$OS.type, gitIgnore = FALSE)