Shiny

问题 I have the shiny dashboard below and I have made the cells of the column Species interactive in a way that if the user clicks on a word of that column ,for example 'setosa', to move to the tab Species .This is the only way someone can move to this tab. The issue is that I do not want the tab Species to be displayed when the user is not in this tab. A secondary solution would be to deactivate Species 'click on' ability. So if the user would accidentaly press it nothing would happen. library

问题 Is there any way to have right sidebar open by default in shinydashboardPlus? library(shiny) library(shinydashboard) shinyApp( ui = dashboardPagePlus( header = dashboardHeaderPlus( enable_rightsidebar = TRUE, rightSidebarIcon = "gears" ), sidebar = dashboardSidebar(), body = dashboardBody(), rightsidebar = rightSidebar( background = "dark", rightSidebarTabContent( id = 1, title = "Tab 1", icon = "desktop", active = TRUE, sliderInput( "obs", "Number of observations:", min = 0, max = 1000,

问题 I'm not proficient in Javascript and would like to replicate a dropdown function as is available in the rhandsontable package but for the DT package. How could this be achieved in the most efficient way? Example library(DT) i <- 1:5 datatable(iris[1:20, ], editable = T, options = list( columnDefs = list( list( targets = 5, render = JS( # can't get my head around what should be in the renderer... ) )) )) The goal is to have the i variable act as validator for the allowed input in the DT object

问题 I'm trying to include shiny widgets such as textInput, selectInput (single), sliderInput, and selectInput (multiple) in the rows of a DT table. When the widgets are directly on the page, they display correctly, however, when they are put in the table, some of them do not display correctly. The textInput is fine and the selectInput (single) is mostly fine save for some css differences, but the selectInput (multiple) isn't displaying correctly and the sliderInput definitely isn't displaying

问题 I am looking at customizing the showNotification() functionality from Shiny. https://gallery.shinyapps.io/116-notifications/ I would like the message to be generated in the middle of the screen as opposed to the bottom-right. I don't think this can be set natively but I am hoping someone would have a suggestion of how to accomplish this. 回答1: You can use tags$style to overwrite the CSS class properties (in this case: .shiny-notification ). You could also adjust other properties like width and

问题 I am looking at customizing the showNotification() functionality from Shiny. https://gallery.shinyapps.io/116-notifications/ I would like the message to be generated in the middle of the screen as opposed to the bottom-right. I don't think this can be set natively but I am hoping someone would have a suggestion of how to accomplish this. 回答1: You can use tags$style to overwrite the CSS class properties (in this case: .shiny-notification ). You could also adjust other properties like width and

问题 I'm trying to use flexdashboard::gauge , but it is always the same size(doesn't scale) and I don't know how to change it's size. I know there is a way to do this for normal plots using renderPlot and setting for example height . Is there a way to do something similar with renderGauge ? It's my code: --- title: "Test" output: flexdashboard::flex_dashboard: orientation: columns vertical_layout: fill runtime: shiny --- ```{r setup, include=FALSE} library(flexdashboard) library(shiny) library

问题 I am creating a user interface for a pathway enrichment program. The results are shown in a table as shown below. Below is a snippet showing that I am using DT::renderDataTable and DT::datatable to output the table in a tab. spia_out() is just a reactive function that runs the pathway enrichment and produces a dataframe. spia_out <- reactive({ ...get results in a dataframe... }) output$spiaout <- DT::renderDataTable({ DT::datatable(spia_out(), extensions = ..., options = ...) }) Everything

问题 I am creating a user interface for a pathway enrichment program. The results are shown in a table as shown below. Below is a snippet showing that I am using DT::renderDataTable and DT::datatable to output the table in a tab. spia_out() is just a reactive function that runs the pathway enrichment and produces a dataframe. spia_out <- reactive({ ...get results in a dataframe... }) output$spiaout <- DT::renderDataTable({ DT::datatable(spia_out(), extensions = ..., options = ...) }) Everything

问题 Friends could help me with my shiny code below. It is executable code for manipulation. I am managing to generate the scatter plot normally, it varies according to my SliderInput. In my case, I am generating clusters. If sliderinput is selected as 5, the scatterplot will generate 5 clusters and so on. Everything is fine here. I also did a selectInput below the sliderinput to show the map for a specific cluster. However, I was unable to generate the scatterplot for a specific cluster, that is,