Shiny

问题 I am working an a Shiny app where I want to allow the user to pick from a longer list of genes (~1800) and then have corresponding graphs for the selected gene displayed. My problem is that I cannot get Shiny to display the whole list of genes available to select from in the drop-down menu of the selectInput box, it seems that only the first 1000 or so get displayed. Then I found a promising solution using server-side selectize, where all the available options get displayed when the user

问题 I am working an a Shiny app where I want to allow the user to pick from a longer list of genes (~1800) and then have corresponding graphs for the selected gene displayed. My problem is that I cannot get Shiny to display the whole list of genes available to select from in the drop-down menu of the selectInput box, it seems that only the first 1000 or so get displayed. Then I found a promising solution using server-side selectize, where all the available options get displayed when the user

问题 I test my app on my laptop, and then deploy it to shinyapps server. Before deploying, I need to remove the statement setting the path, e.g., setwd('/Users/MrY/OneDrive/Data') Is there a way the code can find out if it's running locally or on server, so that it will be like: if (isLocal()) { setwd('/Users/MrY/OneDrive/Data') } A trivial sample code (it will fail on server if setwd isn't removed): server.R library(shiny) setwd('/Users/Yuji/OneDrive/Data/TownState') data = 'data1.csv' # to test,

问题 I test my app on my laptop, and then deploy it to shinyapps server. Before deploying, I need to remove the statement setting the path, e.g., setwd('/Users/MrY/OneDrive/Data') Is there a way the code can find out if it's running locally or on server, so that it will be like: if (isLocal()) { setwd('/Users/MrY/OneDrive/Data') } A trivial sample code (it will fail on server if setwd isn't removed): server.R library(shiny) setwd('/Users/Yuji/OneDrive/Data/TownState') data = 'data1.csv' # to test,

问题 I test my app on my laptop, and then deploy it to shinyapps server. Before deploying, I need to remove the statement setting the path, e.g., setwd('/Users/MrY/OneDrive/Data') Is there a way the code can find out if it's running locally or on server, so that it will be like: if (isLocal()) { setwd('/Users/MrY/OneDrive/Data') } A trivial sample code (it will fail on server if setwd isn't removed): server.R library(shiny) setwd('/Users/Yuji/OneDrive/Data/TownState') data = 'data1.csv' # to test,

问题 I test my app on my laptop, and then deploy it to shinyapps server. Before deploying, I need to remove the statement setting the path, e.g., setwd('/Users/MrY/OneDrive/Data') Is there a way the code can find out if it's running locally or on server, so that it will be like: if (isLocal()) { setwd('/Users/MrY/OneDrive/Data') } A trivial sample code (it will fail on server if setwd isn't removed): server.R library(shiny) setwd('/Users/Yuji/OneDrive/Data/TownState') data = 'data1.csv' # to test,

问题 I cannot get the scope to change the background color of the shiny dashboard's body. I do not want to use outside CSS because it is not supported in the Shiny server which I'm hosting. Whatever I do I'm unable to find the HTML tag for the dashboard's background so I could change it. The background color is always #ECF0F5 whatever I do. Here is a reproducible application. library(shinydashboard) library(shiny) library(DT) library(shinyWidgets) library(dplyr) ui=shinyUI( dashboardPage(

问题 I cannot get the scope to change the background color of the shiny dashboard's body. I do not want to use outside CSS because it is not supported in the Shiny server which I'm hosting. Whatever I do I'm unable to find the HTML tag for the dashboard's background so I could change it. The background color is always #ECF0F5 whatever I do. Here is a reproducible application. library(shinydashboard) library(shiny) library(DT) library(shinyWidgets) library(dplyr) ui=shinyUI( dashboardPage(

问题 I want to display a simple crosstab in my Shiny app, but the renderTable function seems to reformat the table. How do I construct the table in renderTable , or is there another way to display my original table? purchase_by_sex = table(sales$purch_freq, sales$sex) This gets me the desired output in the console; Female Male Once a Week 3 9 Once a Month 7 11 Every 2-3 Months 6 8 < Every 3 Months 5 2 Never 20 15 Don't Know 6 8 but gets reformatted in Shiny; Var1 Var2 Freq Once a Week Female 3

问题 I want to display a simple crosstab in my Shiny app, but the renderTable function seems to reformat the table. How do I construct the table in renderTable , or is there another way to display my original table? purchase_by_sex = table(sales$purch_freq, sales$sex) This gets me the desired output in the console; Female Male Once a Week 3 9 Once a Month 7 11 Every 2-3 Months 6 8 < Every 3 Months 5 2 Never 20 15 Don't Know 6 8 but gets reformatted in Shiny; Var1 Var2 Freq Once a Week Female 3