rstudio-mac.sh

#!/bin/bash

# Get the path to RStudio application
RSTUDIO_APP="/Applications/RStudio.app"

# Check if RStudio is installed
if [ ! -d "$RSTUDIO_APP" ]; then
    echo "Error: RStudio not found at $RSTUDIO_APP"
    exit 1
fi

# Create a new project file if one doesn't exist
create_project_file() {
    local dir_path="$1"
    local dir_name=$(basename "$dir_path")
    local project_file="${dir_path}/${dir_name}.Rproj"
    
    # Create project file with basic configuration
    cat > "$project_file" << EOF
Version: 1.0

RestoreWorkspace: Default
SaveWorkspace: Default
AlwaysSaveHistory: Default

EnableCodeIndexing: Yes
UseSpacesForTab: Yes
NumSpacesForTab: 2
Encoding: UTF-8

RnwWeave: Sweave
LaTeX: pdfLaTeX

AutoAppendNewline: Yes
StripTrailingWhitespace: Yes

PackageUseDevtools: Yes
PackageInstallArgs: --no-multiarch --with-keep.source
PackageRoxygenize: rd,collate,namespace
EOF
    
    echo "Created new RStudio project at $project_file" >&2
    
    # Return just the path without any additional text
    echo "$project_file"
}

# Find an existing project file in a directory
find_project_file() {
    local dir_path="$1"
    local project_file=$(find "$dir_path" -maxdepth 1 -name "*.Rproj" | head -n 1)
    echo "$project_file"
}

# No arguments - just open RStudio
if [ $# -eq 0 ]; then
    open "$RSTUDIO_APP"
    exit 0
fi

# Get the absolute path of the argument
input_path="$1"

# If path is ".", use current directory
if [ "$input_path" = "." ]; then
    input_path="$(pwd)"
fi

# Get absolute path
if [ -d "$input_path" ]; then
    absolute_path=$(cd "$input_path" 2>/dev/null && pwd)
else
    absolute_path=$(cd "$(dirname "$input_path")" 2>/dev/null && pwd)/$(basename "$input_path")
fi

# Check if the path exists
if [ ! -e "$absolute_path" ]; then
    echo "Error: Path does not exist: $input_path"
    exit 1
fi

# Check if the path is a directory
if [ -d "$absolute_path" ]; then
    # Look for an existing project file
    project_file=$(find_project_file "$absolute_path")
    
    # If no project file exists, create one
    if [ -z "$project_file" ]; then
        project_file=$(create_project_file "$absolute_path")
        
        # Verify the project file was created
        if [ ! -f "$project_file" ]; then
            echo "Error: Failed to create project file at $project_file"
            exit 1
        fi
        
    fi
    
    # Verify project file exists before opening
    if [ ! -f "$project_file" ]; then
        echo "Error: Project file does not exist: $project_file"
        exit 1
    fi
    
    # Open RStudio with the project file
    open -a "$RSTUDIO_APP" "$project_file"
    
# Check if the path is an .Rproj file
elif [[ "$absolute_path" == *.Rproj ]]; then
    # Open RStudio with the project file
    open -a "$RSTUDIO_APP" "$absolute_path"
    
# Check if the path is a file (any type)
elif [ -f "$absolute_path" ]; then
    # Open RStudio with the file
    open -a "$RSTUDIO_APP" "$absolute_path"
    
else
    echo "Error: Not a directory, .Rproj file, or valid file: $input_path"
    exit 1
fi