diff --git a/src/dataset.jl b/src/dataset.jl index 494fe00..8df8023 100644 --- a/src/dataset.jl +++ b/src/dataset.jl @@ -7,6 +7,11 @@ const Dataset_typedetect_rows = Dict{Tuple{String, String}, Union{Vector,Dict}}( function dataset(package_name::AbstractString, dataset_name::AbstractString) basename = joinpath(@__DIR__, "..", "data", package_name) + rdataname = joinpath(basename, string(dataset_name, ".RData")) + if isfile(rdataname) + return load(rdataname)[dataset_name] + end + rdaname = joinpath(basename, string(dataset_name, ".rda")) if isfile(rdaname) return load(rdaname)[dataset_name] diff --git a/src/update_doc.r b/src/update_doc.r index c1b3ef6..aecda68 100644 --- a/src/update_doc.r +++ b/src/update_doc.r @@ -32,7 +32,7 @@ do_package_update <- function(data_dir, package_df, old_dataset_df, dataset_df, datasets <- dir(path = file.path(data_dir, package)) # Trim filenames to dataset names - r <- "(.+)\\.(csv\\.gz|rda)$" + r <- "(.+)\\.(csv\\.gz|rda|RData)$" format_recognized <- grepl(r, datasets) if (!(all(format_recognized))) { stop("Unrecognized formats:\n",