Skip to content

Commit

Permalink
missed one
Browse files Browse the repository at this point in the history
  • Loading branch information
hongooi73 committed Aug 3, 2017
1 parent ff409b9 commit 5ac9df3
Showing 1 changed file with 1 addition and 1 deletion.
2 changes: 1 addition & 1 deletion R/xdf_utils.R
Original file line number Diff line number Diff line change
Expand Up @@ -65,7 +65,7 @@ rename_xdf <- function(src, dest)
{
# rename all files in data and metadata subdirs
pat <- sprintf("^%s", basename(src@file))
dataFiles <- dir(destPath, pattern=pat, full.names=TRUE, recursive=TRUE)
dataFiles <- dir(destPath, full.names=TRUE, recursive=TRUE)
dataDirs <- dirname(dataFiles)
newDataFiles <- file.path(dataDirs, sub(pat, dest, basename(dataFiles)))
file.rename(dataFiles, newDataFiles)
Expand Down

0 comments on commit 5ac9df3

Please sign in to comment.