Skip to content
New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Jump to bottom

Combine multiple PEcAn.db calls in a single query #3312

Merged
merged 10 commits into from
Jul 10, 2024
Merged

Combine multiple PEcAn.db calls in a single query #3312

Changes from 7 commits
Commits
Show all changes
10 commits
Select commit Hold shift + click to select a range
fa99dfc
Combine multiple DB calls into a singular call
Sweetdevil144 Jun 24, 2024
08887f4
Retrieve format name and mimetype from the database in read.register.R
Sweetdevil144 Jun 24, 2024
8c7b2f1
Merge branch 'develop' into develop
Sweetdevil144 Jun 25, 2024
b6dfe69
Merge branch 'PecanProject:develop' into develop
Sweetdevil144 Jun 26, 2024
40fbf7a
Merge branch 'develop' into develop
Sweetdevil144 Jun 28, 2024
0def2a2
Update read.register to extract name and id in a 'temp' variable.
Sweetdevil144 Jun 28, 2024
27b9696
Merge branch 'PecanProject:develop' into develop
Sweetdevil144 Jul 9, 2024
9b69428
Update modules/data.atmosphere/R/read.register.R
Sweetdevil144 Jul 10, 2024
0ac2c93
Update modules/data.atmosphere/R/read.register.R
Sweetdevil144 Jul 10, 2024
d287192
Update query to retrieve format.id
Sweetdevil144 Jul 10, 2024
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
14 changes: 9 additions & 5 deletions modules/data.atmosphere/R/read.register.R
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -35,14 +35,18 @@ read.register <- function(register.xml, con) {
} else if ((!is.null(register$format$id) & is.null(register$format$name))
|
(!is.null(register$format$id) & is.null(register$format$mimetype))) {
register$format$name <- PEcAn.DB::db.query(
paste("SELECT name from formats where id = ", register$format$id), con)[[1]]
register$format$mimetype <- PEcAn.DB::db.query(
paste("SELECT mime_type from formats where id = ", register$format$id), con)[[1]]
# 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
Sweetdevil144 marked this conversation as resolved.
Show resolved Hide resolved
)
Copy link
Member

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

Two problems here:

  1. Assigning the result to register$format will overwrite the existing format object (which contains at least id and inputtype -- see lines 25 and 35) with one that contains only name and mimetype. Better to query once into a temporary result and then assign from there into register$format$name and `register$format$mimetype.
  2. The existing line 41 is broken because the formats table doesn't have a mime_type column, it has a mimetype_id tht then needs to be looked up in the mimetypes table. I think you want "SELECT name, type_string AS mimetype FROM formats JOIN mimetypes ON formats.mimetype_id = mimetypes.id WHERE formats.id ="

Copy link
Contributor Author

Choose a reason for hiding this comment

The reason will be displayed to describe this comment to others. Learn more.

  1. I seemed to miss it. Fixing it now.
  2. Ahh, I recall us having a conversation about this earlier and that seems to be the case.


register$format$name <- query.format.info$name
register$format$mimetype <- query.format.info$mimetype

} else if (is.null(register$format$id) & !is.null(register$format$name) & !is.null(register$format$mimetype)) {
register$format$id <- PEcAn.DB::db.query(
paste0("SELECT id from formats where name = '", register$format$name,
Sweetdevil144 marked this conversation as resolved.
Show resolved Hide resolved
"' and mime_type = '", register$format$mimetype, "'"), con)[[1]]
"' and mimetype_id = '", register$format$mimetype, "'"), con)[[1]]
Sweetdevil144 marked this conversation as resolved.
Show resolved Hide resolved
}
}
return(invisible(register))
Expand Down
Loading