R/find_dropbox.R

In webbedfeet/ProjTemplate: Creates folder structure for a RStudio project, and adds utilities for loading packages and functions

#' Find path to Dropbox installation on local machine
#'
#' @return
#' @export
#'
#' @examples
find_dropbox <- function(){
  if (Sys.info()['sysname'] == 'Darwin') {
    info <- RJSONIO::fromJSON(
      file.path(path.expand("~"),'.dropbox','info.json'))
  }
  if (Sys.info()['sysname'] == 'Windows') {
    info <- RJSONIO::fromJSON(
      if (file.exists(file.path(Sys.getenv('APPDATA'), 'Dropbox','info.json'))) {
        file.path(Sys.getenv('APPDATA'), 'Dropbox', 'info.json')
      } else {
        file.path(Sys.getenv('LOCALAPPDATA'),'Dropbox','info.json')
      }
    )
  }
  return(info$personal$path)
}