You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
51 lines
1.1 KiB
51 lines
1.1 KiB
#include <Rcpp.h>
|
|
using namespace Rcpp;
|
|
|
|
#include "magic.h"
|
|
#include "limits.h"
|
|
|
|
//' Return file info
|
|
//'
|
|
//' @export
|
|
// [[Rcpp::export]]
|
|
DataFrame get_mimetype(CharacterVector path) {
|
|
|
|
unsigned int input_size = path.size();
|
|
StringVector mime_type(input_size);
|
|
|
|
for (unsigned int i=0; i<input_size; i++) {
|
|
|
|
if ((i % 10000) == 0) Rcpp::checkUserInterrupt();
|
|
|
|
std::string path_str = as<std::string>(path[i]);
|
|
std::string fullPath(R_ExpandFileName(path_str.c_str()));
|
|
|
|
int flags = MAGIC_MIME_TYPE;
|
|
magic_t cookie = magic_open(flags);
|
|
|
|
if (cookie == NULL) {
|
|
|
|
mime_type[i] = NA_STRING;
|
|
|
|
} else {
|
|
|
|
magic_load(cookie, NULL);
|
|
|
|
const char *magic_result = magic_file(cookie, fullPath.c_str());
|
|
|
|
if (magic_result == NULL) {
|
|
mime_type[i] = NA_STRING;
|
|
} else {
|
|
std::string res = std::string(magic_result, strnlen(magic_result, 1024));
|
|
mime_type(i) = res;
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
return DataFrame::create(_["file"] = path,
|
|
_["mime_type"] = mime_type,
|
|
_["stringsAsFactors"] = false);
|
|
|
|
}
|
|
|