Избавление от раздражения обратной косой черты в R для Windows

Я написал скрипт autohotkey, который запускается при вводе "rfil" без кавычек.

:O:rfil:: ;replaces backslashes with forward slashes in a file name that is stored on the clipboard
StringReplace,clipboard,clipboard,\,/,All
send %clipboard%
return

Если кто-нибудь может сказать мне более быстрый способ, чем использование команды отправки, я был бы признателен. У меня есть скрипт autohotkey, который постоянно работает на всех моих компьютерах, поэтому мне не нужно загружать новое программное обеспечение, чтобы запустить этот скрипт. Я просто добавил его в свой файл сценария по умолчанию.

Я буду рад объяснить, что я сделал, если вы хотите, чтобы я.

ClipPath добавляет параметры контекстного меню, чтобы выбрать тип косой черты, которую вы хотите вставить.

Через Getting Genetics Done, который похоже, что это может быть полезным ресурсом для пользователей R в целом.

Я адаптировал следующий общий код автогорячих клавиш, чтобы заменить все обратные косые черты прямыми косыми чертами всякий раз, когда я вставляю что-либо в RStudio. В этом подходе есть плюсы и минусы.

Плюсы. Вам не нужно об этом думать. Код будет работать только в том случае, если активным окном является RStudio.

Минусы: код вызывается каждый раз, когда вы что-то вставляете в R. Каждый раз он пытается найти обратную косую черту и заменить ее прямой косой чертой.

GroupAdd, R, RStudio

;replaces backslashes with forward slashes in a file name that is stored on the clipboard
#IfWinActive ahk_group R
   ^v::
      StringReplace,clipboard,clipboard,\,/,All
      send %clipboard%
   return
#IfWinActive

Я использую поиск и замену, но, конечно, это не полностью автоматически, и вы должны быть осторожны, чтобы не заменить "\t" или "\n".

Не совсем тот ответ, который вы ищете, но у R есть свои собственные функции сценариев оболочки, которые я часто использую:

list.files(,full=TRUE) [возвращает полный путь с соответствующими разделителями]

file.path() [соединяется с разделителем, специфичным для ОС]

и так далее...

Вы можете создать функцию-оболочку для всех имен путей:

> replace.slash <- function(path.name) gsub("\\\\","/",path.name)
> path.name <- "c:\\tmp\\"
> replace.slash(path.name)
[1] "c:/tmp/"

[Изменить]: Спасибо, Хэдли. Я исправил ошибку там.

Между прочим, я нашел очень полезное обсуждение на эту тему< /а>.

Это код AutoIt, который делает то же самое (заменяет \ на /).

Local $text1 = ClipGet()
$text2=StringReplace($text1,"\","/")
ClipPut($text2)

почему бы не создать функцию, которая проверяет ОС и возвращает правильный разделитель файлов (я полагаю, решение Java)?

file_sep <- function(){
ifelse(.Platform$OS.type == "unix", "/", "//")
}
file_sep()

вы можете выбрать более короткое имя, если хотите. Большой недостаток здесь заключается в том, что вам нужно склеивать пути к файлам, но это все же стоит того, если вы работаете над большими проектами.

Немного расширив код @Farrel (большое спасибо!), вот мой скрипт AutoHotkey, который получит полный путь к любому файлу, который я выберу, а затем (при желании) поменяет местами косые черты для лучшего использования в R.

Сценарий также заменяет все подключенные диски полным сетевым путем. Чтобы использовать это, вам нужно отредактировать этот скрипт, чтобы найти ваши конкретные подключенные диски, а затем заменить эти буквы дисков полным путем.

Потребовалось немного времени, чтобы настроить, но это так полезно. Я использую это каждый день.

;If Windows explorer is active...
#IfWinActive ahk_class CabinetWClass 

; ALT + F - Get the filepath to the file
!f::
SendInput, ^c
Sleep 100
Clipboard := Clipboard
return

;Check for and replace mapped drive names on the clipboard with full file paths
If InStr(Clipboard,"X:\",1) {
Clipboard := "\\SERVER_NAME\g$\" SubStr(Clipboard,4, (StrLen(Clipboard )))
} else if InStr(Clipboard,"K:\",1) {
Clipboard := "\\SERVER_NAME\Data\" SubStr(Clipboard,4, (StrLen(Clipboard )))
} else if InStr(Clipboard,"Q:\",1) {
Clipboard := "\\SERVER_NAME\Data\" SubStr(Clipboard,4, (StrLen(Clipboard )))
} else if InStr(Clipboard,"L:\",1) {
Clipboard := "\\SERVER_NAME\" SubStr(Clipboard,4, (StrLen(Clipboard )))
} 
Return

; ALT + S - Replaces backslashes with forward slashes (helpful for R)
; Source: https://stackoverflow.com/questions/1407238/relief-from-backslash-irritation-in-r-for-windows
!s::
StringReplace,clipboard,clipboard,\,/,All
send %clipboard%
return

; Scripts below this point will run in any active window
#IfWinActive