shinydashboard

问题 I have this app library(shinydashboard) library(dplyr) library(shiny) mtcars$cyl <- as.factor(mtcars$cyl) ui <- dashboardPage( dashboardHeader(title = "Simple Dashboard"), ## Sidebar content dashboardSidebar(sidebarMenu( menuItem("Widgets", tabName = "widgets", icon = icon("th")), menuSubItem("Sub-menu1", icon = icon("dashboard")), menuSubItem("Sub-menu2", icon = icon("dashboard")) )), ## Body content dashboardBody(tabItems( # First tab content tabItem(tabName = "widgets", fluidRow(DT:

问题 I have the following which changes the color of the primary status in shinydashboard to the custom blue I have stated. tags$style(HTML(".box.box-solid.box-primary>.box-header { color:#FFFFFF; background-color:#005CB9;} .box.box-solid.box-primary{ border-bottom-color:#005CB9; border-left-color:#005CB9; border-right-color:#005CB9; border-top-color:#005CB9; }")), However I need to change the color of an infobox as this uses color = instead of the status =. Does anyone know the tags I need to

问题 My logo is getting displayed locally on R shiny , but when i deploy my app to shinyapps.io (Check the app here), the logo shows a blank picture. Can someone please help me out? The blank logo My code library(dplyr) library(shiny) library(shinythemes) library(rpivotTable) #UI ui = fluidPage(img(src='capture5.png', height = 70, width = 120), img(src='capture6.png', height = 70, width = 120), fluidRow( rpivotTableOutput("pivot"))) #Server server = function(input, output, session) {reactive({

问题 I am writing this to seek some help in using plan(multiprocess) or plan(multicore) and killing long running processes in my shiny app. The app has multiple future events (long running processes) that run on clicking their corresponding actionButton. Below is an example app of future() command used within the server function in the app. And i have been using stopMulticoreFuture(fut) to kill the processes. library(shiny) library(shinydashboard) library(promises) plan(multicore) library(ipc)

问题 I have a functional shiny app that uses the shinydashboard package. A new feature requires user-specific behavior (e.g. use different data sets for different usernames). Therefore I intend to Display a login form Validate credentials and set a reactive value LoggedIn to true if successful Display the actual dashboardPage as soon as LoggedIn is set to TRUE My approach is based on this app, which decides which element to display in renderUI based on the reactive value. The following simplified

问题 Is it possible to embed the gauge from flexdashboard (picture below) in Shiny App ( shinydashboard or shiny )? The example code within a Shiny flexdashboard from the flexdashboard website: ```{r} renderGauge({ rate <- computeContactRate(input$region) gauge(rate, min = 0, max = 100, symbol = '%', gaugeSectors( success = c(80, 100), warning = c(40, 79), danger = c(0, 39) )) }) ``` Here is my failed attempt: library(shiny) library(shinydashboard) #library(flexdashboard) ui <-dashboardPage(

问题 Is it possible to embed the gauge from flexdashboard (picture below) in Shiny App ( shinydashboard or shiny )? The example code within a Shiny flexdashboard from the flexdashboard website: ```{r} renderGauge({ rate <- computeContactRate(input$region) gauge(rate, min = 0, max = 100, symbol = '%', gaugeSectors( success = c(80, 100), warning = c(40, 79), danger = c(0, 39) )) }) ``` Here is my failed attempt: library(shiny) library(shinydashboard) #library(flexdashboard) ui <-dashboardPage(

问题 I am trying to use the text input widget on a shiny app to filter rows in a data frame but I can’t get it working. Dataset df1<-data.frame (Name=c("Carlos","Pete","Carlos","Carlos","Carlos","Pete","Pete","Pete","Pete","Homer"),Sales=(as.integer(c("3","4","7","6","4","9","1","2","1","9")))) UI shinyUI(fluidPage( titlePanel("Sales trends"),titlePanel("People score"), sidebarLayout(sidebarPanel( textInput("text", label = h3("Text input"), value = "Enter text..."), numericInput("obs", "Number of

问题 I am trying to use the text input widget on a shiny app to filter rows in a data frame but I can’t get it working. Dataset df1<-data.frame (Name=c("Carlos","Pete","Carlos","Carlos","Carlos","Pete","Pete","Pete","Pete","Homer"),Sales=(as.integer(c("3","4","7","6","4","9","1","2","1","9")))) UI shinyUI(fluidPage( titlePanel("Sales trends"),titlePanel("People score"), sidebarLayout(sidebarPanel( textInput("text", label = h3("Text input"), value = "Enter text..."), numericInput("obs", "Number of

问题 I have a DT data table in R Shiny and I have enabled column filtering by setting filter="top" within renderDT() . I now want to extract the user-applied filters so I can save them in variables server-side and reapply them when -- for instance -- a database is updated, requiring an update of the table. Here's a MWE using Shiny Dashboard: library(shiny) # Shiny web app library(shinydashboard) # Dashboard framework for Shiny library(plotly) # Plotly interactive plots library(DT) ui <-