Commit dbb7b63e authored by luroth's avatar luroth
Browse files

Motion blur claculation adapted, now slider is restricted by min and max based...

Motion blur claculation adapted, now slider is restricted by min and max based on flight duration and camera trigger freq.
parent be279f26
library(shiny)
source("./ui.R")
source("./server.R")
source("./sergver.R")
ui <- ui_
server <- server_
app <- shinyApp(ui = ui, server = server)
\ No newline at end of file
app <- shinyApp(ui = ui, server = server)
This diff is collapsed.
......@@ -71,7 +71,7 @@ ui_ <- fluidPage(
tabPanel("Imaging",
h4("Resolution"),
sliderInput("flight_height", "Flight height (m)", width = "100%", value = default_flight_height, min=2, max=100, animate = TRUE),
sliderInput("flight_height", "Flight height (m)", width = "100%", value = default_flight_height, min=2, max=100),
fluidRow(
column(9, numericInput("ground_sampling_distance", "Ground sampling distance nadir (mm)", width = "100%", value=NA, step=0.1)),
column(3, checkboxInput("edit_ground_sampling_distance", "Edit"), style = "margin-top: 25px;")
......@@ -160,11 +160,10 @@ ui_ <- fluidPage(
mainPanel(
tabsetPanel(id="results",
tabPanel("Photographic properties",
tabPanel("Photography",
fluidRow(
column(8, h4("Flight height dependency"),
plotOutput("photographic_properties_plot", height = "600px"),
downloadButton("download_photographic_properties_plot")),
plotOutput("photographic_properties_plot", height = "600px")),
column(4, htmlOutput("photographic_properties_summary"))
)
......@@ -175,13 +174,13 @@ ui_ <- fluidPage(
h4("Mapping area"),
tabsetPanel(type="pills",
tabPanel("Schematic",
plotOutput("plot_mapping_area", height = "600px"),
downloadButton("download_mapping_area_plot")
plotOutput("plot_mapping_area", height = "600px")
),
tabPanel("Map",
leafletOutput("waypoint_map", height = "600px"),
htmlOutput("waypoint_settings")),
tabPanel("GCP recovery frequency", plotOutput("plot_hits_gcp", height = "600px"))
tabPanel("GCP recover frequency",
plotOutput("plot_hits_gcp", height = "600px"))
)
),
column(4, htmlOutput("mapping_summary"))
......@@ -191,13 +190,17 @@ ui_ <- fluidPage(
fluidRow(
column(6, h4("Sensor viewing geometry"),
tabsetPanel(type="pills",
tabPanel("Plot center recovery frequency", plotOutput("plot_recovery_frequency", height = "500px"))
tabPanel("Sensor area",
plotOutput("plot_recovery_frequency", height = "500px")),
tabPanel("Sensor X axis",
plotOutput("plot_viewing_geometry_x", height = "500px")),
tabPanel("Sensor Y axis",
plotOutput("plot_viewing_geometry_y", height = "500px"))
)),
column(6, h4("Plot center viewing geometry"),
tabsetPanel(type="pills",
tabPanel("Zenith angle", plotOutput("plot_viewing_geometry", height = "500px")),
tabPanel("Sensor X axis", plotOutput("plot_viewing_geometry_x", height = "500px")),
tabPanel("Sensor Y axis", plotOutput("plot_viewing_geometry_y", height = "500px"))
tabPanel("Zenith angle",
plotOutput("plot_viewing_geometry", height = "500px"))
))
)
......@@ -210,11 +213,15 @@ ui_ <- fluidPage(
h4("Flight/campaign settings"),
htmlOutput("campaign_settings"),
h4("Restrictions"),
htmlOutput("restrictions")
htmlOutput("restrictions"),
div(downloadButton("download_params", "Download parameters as JSON")),
div(downloadButton("download_report", "Download all graphs as PDF"))
),
column(7, leafletOutput("mission_waypoint_map", height=400),
column(7,
leafletOutput("mission_waypoint_map", height=400),
div(downloadButton("download_waypoints", "Download waypoints as CSV"), HTML("(e.g. to import in Litchi)")),
div(downloadButton("download_kml", "Download mapping area as KML"), HTML("(e.g. to import in DJI GS Pro)"))
)
)
)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment