shinyapps

问题 with some CSS code found in different old posts on Stackoverflow I managed to change the placeholder colour of every selectizeInput and selectInput widget of my shinyapp, but it seems that this code doesn't work for the textInput widgets. Below you can find a basic reproducible example: library(shiny) ui <- fluidPage( tags$style(HTML("::placeholder { /* Chrome, Firefox, Opera, Safari 10.1+ */ color: red; opacity: 1; /* Firefox */} :-ms-input-placeholder { /* Internet Explorer 10-11 */ color:

问题 Hi I have a R shiny app displaying an image. I would like to draw a bullets/circles on an image based on image coordinates. The image coordinates are being read from a data frame where I would like to iterate over every row, plot and then remove the coordinates drawn for every iteration. I have something like this now #UI UI <- function(id) { fluidPage( useShinyjs(), fluidRow( column(width=12, box(title='Select', width = NULL, closable = TRUE, actionButton("draw", "draw")) )), fluidRow(width

问题 In the given R shiny script below, I am trying to use a conditional panel with Picker Input shiny widget. There are three options in pickerInput, upon selection of "times" option, I wish to create new pickerInputs using a conditional panel, the following is possible using selectInput, but I need the same for Picker Input. Thanks and please help. library(shiny) library(shinydashboard) ui <- dashboardPage( dashboardHeader(title = "Picket",titleWidth = 290), dashboardSidebar(width = 0),

问题 I'm using selectizeInput to have multiple selections for an input. I have also added a "Select All or None" option that automatically selects all options or nonw (there are A LOT of options). However, my issue is that when it selects all, there are so many options that it shows all of them in the selectizeInput box and it makes my page super long and you have to scroll to the bottom to see anything else in my app. Wondering if there's an option that allows you to have a max number of items

问题 When I published my app to shinyapps.io, I came across the following issues: PhantomJS file(con, "rb"): cannot open the connection The full log in the output pdf file: PhantomJS not found. You can install it with webshot::install phantomjs(). If it is installed, please make sure the phantomjs executable can be found via the PATH variable. Warning in normalizePath(f2): path[1]="./webshot6c3d201217.pdf": No such file or directory Warning in file(con, "rb"): cannot open file ’./webshot6c3d201217

问题 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({

问题 Let say I have below Shiny app - library(shinyWidgets); library("shiny") ui <- fluidPage( multiInput( inputId = "id", label = "Fruits :", choices = c("Banana", "Blueberry", "Cherry", "Coconut", "Grapefruit", "Kiwi", "Lemon", "Lime", "Mango", "Orange", "Papaya"), selected = "Banana", width = "400px", options = list( enable_search = FALSE, non_selected_header = "Choose between:", selected_header = "You have selected:" ) ), verbatimTextOutput(outputId = "res") ) server <- function(input, output,

问题 I am trying to read a data set using the browse option to upload data from pc. After that, I want to display file content to be automatically filled by using first column entry. library(shiny) library(shinydashboard) ui<-(fluidPage( titlePanel("Auto Fill"), sidebarPanel( autoFillDF<- fileInput('file1', 'Choose xlsx file', accept = c(".xlsx")), # actionButton("go", "update"), selectizeInput("p1", choices = autoFillDF$WorklistNo, selected = NULL, label = 'WorklistNo'), selectizeInput("p2",

问题 The R shiny script below creates three selectInputs such that the values of each selectInput depend upon the input value of the previous selectInput. E.g. in the data in the script, "value" column values depend on "Candy" column and "Candy" column values depend on the "Brand". The issue is that, whether I select "Mars" or "Netle" value in the "Brand" column, The corresponding "Candy" value "100Grand" is same for both, hence I do not see a change in the value column as the selectInput is

问题 I am trying to use plotOutput in R shiny in multiple sub-menu items. However, I believe it is not possible for plotOutput to be used at multiple places with same id. Please help me if it is possible somehow. attaching the snapshot for reference. library(shiny) library(shinydashboard) ui <- dashboardPage( dashboardHeader(), dashboardSidebar( sidebarMenu( id = "tabs", menuItem("Charts", icon = icon("bar-chart-o"), menuSubItem("Sub-item 1", tabName = "subitem1"), menuSubItem("Sub-item 2",