inst/gui/view/ui.R

In npetraco/x3pr: Read/Write functionality for X3P surface metrology format

library(shinyRGL)
source(system.file("gui/view", "helpers.R", package="x3pr"))


shinyUI(fluidPage(
  
  titlePanel("View Surface"),
  #Sidebar controls:
  sidebarLayout(
    sidebarPanel(
      fileInput(inputId = "surface", label = "Choose a surface", accept = "surface"),
      
      #Once the file is selected generate sliders:
      uiOutput("slider.zmag"),
      uiOutput("slider.theta"),
      uiOutput("slider.phi")
      
    ),
    
    #Main Panel:
    mainPanel(
    
      #h3(textOutput("header"))
      webGLOutput("plot", width="100%", height="600px")
          
    )
  )
  
))