-
Notifications
You must be signed in to change notification settings - Fork 8
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.
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
Issue #56 #57
Issue #56 #57
Conversation
…upport, modified ReconstructedOutline.R and retistruct.R to pass in the shiny output object, to allow rendering support for shiny, removed the old gui file.
…d removed old dependencies from DESCRIPTION, removed root volume from shinyFiles directory select.
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
See comments in code.
|
||
report(paste("Mapping optimised. Deformation energy E:", format(self$opt$value, 5), | ||
";", self$nflip, "flipped triangles.")) | ||
}, | ||
}, |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Picky, but remove white space at end of line.
datapoints=FALSE, landmarks=FALSE, | ||
image=FALSE) | ||
}) | ||
} else if (!is.na(dev.flat)) { |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Not sure this needs to be "else if". I suppose we might want to do both, though it's unliikely.
datapoints=FALSE, landmarks=FALSE, | ||
image=FALSE) | ||
}) | ||
} else if (!is.na(dev.flat)) { |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
See previous comment about "else if".
pkg/retistruct/R/app.R
Outdated
@@ -0,0 +1,11 @@ | |||
##' Start the Retistruct GUI | |||
##' @seealso gWidgets2 |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
I don't think we need this line - we're not using gWidgets any more.
pkg/retistruct/R/app.R
Outdated
##' @importFrom shiny shinyApp | ||
##' @export | ||
retistruct <- function() { | ||
options(rgl.useNULL = TRUE) ## Prevents rgl from making it's own window |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Very picky: it's -> its
pkg/retistruct/R/server-handlers.R
Outdated
@@ -0,0 +1,388 @@ | |||
## Converts projections into a function, as values returned from ui are strings. | |||
translateProjections <- function() { | |||
return(list('0' = azimuthal.equidistant, |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
Picky: I would probably use double quotes here to match code elsewhere.
pkg/retistruct/R/server.R
Outdated
##' @description The R shiny server responsible for storing a state for each | ||
##' session, handling inputs from the UI to the server, and plotting outputs | ||
##' to the UI. The arguments are all handled by the shiny package and this | ||
##' function should not be insantiated manually. |
There was a problem hiding this comment.
Choose a reason for hiding this comment
The reason will be displayed to describe this comment to others. Learn more.
insantiated -> instantiated
(picked up by the spell checker)
This mostly resolves #56, porting the Retistruct GUI in R Shiny, however there is still some work to be completed.
Tasks that have so far been completed:
Tasks still left to do/issues to fix:
retistruct()
call.identify()
function no longer being used.