Update modules/data.atmosphere/R/read.register.R

Co-authored-by: Chris Black <chris@ckblack.org>
Sweetdevil144 · Jul 10, 2024 · 0ac2c93 · 0ac2c93
1 parent 9b69428
commit 0ac2c93
Showing 1 changed file with 5 additions and 1 deletion.
diff --git a/modules/data.atmosphere/R/read.register.R b/modules/data.atmosphere/R/read.register.R
@@ -37,7 +37,11 @@ read.register <- function(register.xml, con) {
                (!is.null(register$format$id) & is.null(register$format$mimetype))) {
       # Retrieve format name and mimetype from the database
       query.format.info <- PEcAn.DB::db.query(
-        paste("SELECT name, mimetype_id AS mimetype FROM formats WHERE id = ", register$format$id), con
+        paste(
+          "SELECT name, type_string AS mimetype",
+          "FROM formats JOIN mimetypes ON formats.mimetype_id = mimetypes.id",
+          "WHERE formats.id = ", register$format$id),
+        con
       )
 
       register$format$name <- query.format.info$name