"make a script that loop teleports my character 50 studs away from the nearest opposite team player when i press r and stops when i press r again"

-- local script 
local UserInputService = game:GetService("UserInputService")
local Players = game:GetService("Players")
local player = Players.LocalPlayer
local character = player.Character or player.CharacterAdded:Wait()
local teleporting = false

local function getNearestOpponent()
    local nearestDistance = math.huge
    local nearestOpponent = nil
    for _, otherPlayer in pairs(Players:GetPlayers()) do
        if otherPlayer.TeamColor ~= player.TeamColor then
            local otherCharacter = otherPlayer.Character
            if otherCharacter then
                local distance = (character.PrimaryPart.Position - otherCharacter.PrimaryPart.Position).Magnitude
                if distance < nearestDistance then
                    nearestDistance = distance
                    nearestOpponent = otherPlayer
                end
            end
        end
    end
    return nearestOpponent
end

local function teleport()
    while teleporting do
        local opponent = getNearestOpponent()
        if opponent then
            local opponentCharacter = opponent.Character
            local teleportPosition = opponentCharacter.PrimaryPart.Position - ((character.PrimaryPart.Position - opponentCharacter.PrimaryPart.Position).Unit * 50)
            character:SetPrimaryPartCFrame(CFrame.new(teleportPosition))
        end
        wait(0.1)
    end
end

local function onKeyPress(input)
    if input.KeyCode == Enum.KeyCode.R then
        teleporting = not teleporting
        if teleporting then
            teleport()
        end
    end
end

UserInputService.InputBegan:Connect(onKeyPress)