Shiny

问题 I have the shiny app below in which I want to apply css formating only on specific tabItem of the shiny dashboard but it is applied on both. How can I specify it to be applied only on 1st? library(shiny) library(shinydashboard) ui <- dashboardPage( dashboardHeader(), dashboardSidebar(menuItem("Welcome", tabName = "tab1", icon = icon("house")), menuItem("Information", tabName = "tab2", icon = icon("table"))), dashboardBody( tabItems( tabItem("tab1", tags$head(tags$style(HTML(' body{ font-size:

问题 I have the shiny app below. When the app is launched for 1st time it displays an actionbutton Get Started in the main body and 3 actionbuttons in the header. The user can press whichever of these 3 header buttons he wishes before pressing the Get Started button. Its ok that he cannot see the Get Started button again If he press Consent he will be moved in the Consent tabItem. Then he can write a name press Run Project and see the plot in the Results tabItem. If he press Run Project before

问题 I have this code for "global" query for passing multiple arguments (countries) to show multiple plot via updateSelectInput my project http://webcovid19.online Problem is that parameter passing is working only for 1 argument like this http://webcovid19.online/?global=Slovakia, with more arguments like below http://webcovid19.online/?global=Slovakia,Czechia looks that passing arguments not working, got this error. "Aesthetics must be either length 1 or the same as the data (1): x, y, colour,

问题 I have an app that uses knitr::knit2html which works well (except for some glitches where upon clicking, the code is executed later). I would like to use the rmarkdown::render function instead of knitr::knit2html Code library(shinyAce) library(shinyjs) library(shiny) codeUI <- function(id) { ns <- NS(id) tagList(htmlOutput(ns("output"))) } codeSE <- function(id, active_id, code, env) { moduleServer(id, function(input, output, session) { output$output <- renderUI({ req(id == active_id(),

问题 I'm looking for a straight forward way to change the formatting of numbers into K,M in shiny dataTables. Preferably with something like formatCurrency . I don't want to write k, m functions to convert number into string in order to do the formatting as it makes it difficult to sort rows by value. 回答1: There's no built-in way to do this, but it's not too bad to write your own format function in JavaScript that doesn't break row sorting. See Column Rendering in the DT docs for how to do this:

问题 I'm looking for a straight forward way to change the formatting of numbers into K,M in shiny dataTables. Preferably with something like formatCurrency . I don't want to write k, m functions to convert number into string in order to do the formatting as it makes it difficult to sort rows by value. 回答1: There's no built-in way to do this, but it's not too bad to write your own format function in JavaScript that doesn't break row sorting. See Column Rendering in the DT docs for how to do this:

问题 When using editable DataTable (package DT) where input is chosen by SelectInput the edits made isn't saved where it should be. Choosing a specific variable shows for example rows 50-60 from datatable in first rows. Editing them saves the edits on the first rows instead of in rows 50-60. In example below you can choose variable versicolor and delete setosa. Then edit Petal.Length to random number. Edit should be saved in row 51 but instead it is saved in row 1. I am thinking about a workaround

问题 How do I call a shiny module from within a shiny module with passing selections from the first module? As an example I wrote a app to show the Star Wars subjects from dplyr in a DT::data table (module StarWars ). The related films from the same data set should be shown in another DT::data table in another sub tab (module Films). I pass the table selected subject in a reactive value sw_rows_selected_rct from module StarWars to module Films but browser() statement in module Films is not passed.

问题 Is there any way to write add a newline character in a Shiny Progress bar message? \n or <br> does not seem to work. I am trying to convert one of my old codes into a shiny app. The code basically calls a number of functions one after another, all of which take some time to execute. From the app, I would like to know which functions have already executed and the amount of time each of them took. I am trying to achieve this using the progress bar feature. Do let me know if there are better

问题 Is there any way to write add a newline character in a Shiny Progress bar message? \n or <br> does not seem to work. I am trying to convert one of my old codes into a shiny app. The code basically calls a number of functions one after another, all of which take some time to execute. From the app, I would like to know which functions have already executed and the amount of time each of them took. I am trying to achieve this using the progress bar feature. Do let me know if there are better