R/mod_sidebarcontrols.R

In nvelden/shinyNGLVieweR: Shiny application for the NGLVieweR package

#' sidebarcontrols UI Function
#'
#' @description A shiny Module.
#'
#' @param id,input,output,session Internal parameters for {shiny}.
#'
#' @noRd 
#'
#' @importFrom shiny NS tagList
mod_sidebarcontrols_ui <- function(id) {
  ns <- NS(id)
  tagList(
    div(
      id = "sidebarControls",
        radioGroupButtons(inputId = ns("animate"), label = "Animation", choices = c("None", "Spin", "Rock"), status = "primary"),
        materialSwitch(ns("showSequence"), label = "Sequence", value = TRUE, status = "primary"),
        actionButton(ns("fullscreen"), "Fullscreen", icon = icon("expand-alt")
      )
    )
  )
}
    
#' sidebarcontrols Server Function
#'
#' @noRd 
mod_sidebarcontrols_server <- function(input, output, session, globalSession, r){
  ns <- session$ns

Viewer_proxy <- NGLVieweR_proxy("NGLVieweROutput_ui_1-structure", session = globalSession) 

observeEvent(input$animate,{
  if(input$animate == "Rock"){
    Viewer_proxy %>% updateRock(TRUE)
  } else if(input$animate == "Spin") {
    Viewer_proxy %>% updateSpin(TRUE)
  } else{
    Viewer_proxy %>% updateRock(FALSE) %>% updateSpin(FALSE)
  }
})

observeEvent(input$showSequence, {
  r$sidebarcontrols$showSequence <- input$showSequence
})

observeEvent(input$fullscreen,{
  Viewer_proxy %>% updateFullscreen()
})


  
}
    
## To be copied in the UI
# 
    
## To be copied in the server
#