shinydashboard

问题 Is it possible to display different image as title of the shiny dashboard based on the tabPanel() that you use. I want different image for the tab 'Front' and different for the tab 'Data' . # app.R ## library(shiny) library(shinydashboard) library(shinydashboardPlus) library(DT) library(shinyWidgets) library(shinyjs) dbHeader <- dashboardHeaderPlus( enable_rightsidebar = TRUE, rightSidebarIcon = "gears", fixed = T, title = tags$a(href='http://mycompanyishere.com', tags$img(src='logo.png')) )

问题 Is it possible to display different image as title of the shiny dashboard based on the tabPanel() that you use. I want different image for the tab 'Front' and different for the tab 'Data' . # app.R ## library(shiny) library(shinydashboard) library(shinydashboardPlus) library(DT) library(shinyWidgets) library(shinyjs) dbHeader <- dashboardHeaderPlus( enable_rightsidebar = TRUE, rightSidebarIcon = "gears", fixed = T, title = tags$a(href='http://mycompanyishere.com', tags$img(src='logo.png')) )

问题 I have a requirement to show 2 datatables in 2 different tabs in a shiny application. One is a simple datatable whereas the other uses the rowgroup extension of DT package. When I'm using tabs to display both the datatables, the rowgroup function doesnt seem to work. library(shiny) library(DT) library(shinyjs) ui <- fluidPage( dashboardBody( fluidRow( tabBox(width = "100%", tabPanel("Table 1", fluidRow( column(12, withSpinner(DTOutput("my_table2",height="600px"))) ) ), tabPanel("Table 2",

问题 I have a requirement to show 2 datatables in 2 different tabs in a shiny application. One is a simple datatable whereas the other uses the rowgroup extension of DT package. When I'm using tabs to display both the datatables, the rowgroup function doesnt seem to work. library(shiny) library(DT) library(shinyjs) ui <- fluidPage( dashboardBody( fluidRow( tabBox(width = "100%", tabPanel("Table 1", fluidRow( column(12, withSpinner(DTOutput("my_table2",height="600px"))) ) ), tabPanel("Table 2",

问题 I am new to R Shinyapps, hence, my question may sound a bit stupid. Please accept my apologies for this. I am struggling to get the data into a table according to the required column format. Currently, the table looks like below: So I have 11 columns in the table, I want the columns to formatted as below: "Col-2 to Col-7" all having a 1 digit decimal place. "Col-8 to Col-10" all having 0 digit decimal place (no decimal). "Col-11" having 2 digit decimal place. Any suggestions on how to do this

问题 I am new to R Shinyapps, hence, my question may sound a bit stupid. Please accept my apologies for this. I am struggling to get the data into a table according to the required column format. Currently, the table looks like below: So I have 11 columns in the table, I want the columns to formatted as below: "Col-2 to Col-7" all having a 1 digit decimal place. "Col-8 to Col-10" all having 0 digit decimal place (no decimal). "Col-11" having 2 digit decimal place. Any suggestions on how to do this

问题 I have a shiny dashboard below and I would like to know if there is a way to keep left and right sidebar hidden by default when a specific tab is selected. In this case the tab 'Front' . I did it with shinyJs() .Is there a way to also hide the 'gear' icons and the ability to open the right sidebar at all from the "Front" ? More specifically when the user is in the Fron t tab the right sidebar display which is enabled when he clicks on the gear icon in the top right corner should not be

问题 I have exctracted below mentioned dataframe in R using SQL query. Query<-paste0("select ID, Date, Value, Result From Table1 where date(date)>='2018-07-01' and date(date)<='2018-08-31');") Dev1<-dbgetquery(database,Query) Dev1: ID Date Value Result KK-112 2018-07-01 15:37:45 ACR Pending KK-113 2018-07-05 18:14:25 ACR Pass KK-114 2018-07-07 13:21:55 ARR Accepted KK-115 2018-07-12 07:47:05 ARR Rejected KK-116 2018-07-04 11:31:12 RTR Duplicate KK-117 2018-07-07 03:27:15 ACR Pending KK-118 2018-07

问题 In my flexdashboard I used "plotly" library to plot the graph. when the data is refreshing at that time the bar size get reduced. At that time when I clicked on "autoscale" option then it is working fine. My question is can we enable autoscale automatically by any option in plotly.r code ? 回答1: Try setting autorange = TRUE for both the x- and y-axis in the layout option. This solved the issue for me. Example: plot_ly(x, y, type = "bar") %>% layout(xaxis = list(autorange = TRUE), yaxis = list

问题 The following code shows 2 ggplot2 -plots in a shinydashboard . The plot backgrounds should always be transparent , even after resizing . The plots show correctly when starting the app, but as soon as the screen is resized, or the siderbar closed, the background changes to white again. Why is that and how can I prevent that? When closing the sidebar, the background changes to white and after reopening the sidebar, the plots switch to transparent again. But when resizing the window, its not