Shiny

问题 I d like to install cmake on gitbash (Windows 10) , because I need it o run shiny-server. https://github.com/rstudio/shiny-server/wiki/Building-Shiny-Server-from-Source#what-if-a-sufficiently-recent-version-of-cmake-isnt-available When I run ./configure , it gives me the following error *CMake 3.15.2, Copyright 2000-2019 Kitware, Inc. and Contributors C compiler on this system is: tcc C++ compiler on this system is: C:\MinGW\bin\g++.exe C:\MinGW\bin\g++.exe Makefile processor on this system

问题 I am currently developing a dashboard in R. The dashboard should be authenticated based on the LDAP credentials of the user. Based on the LDAP credentials, the data should be displayed. But I tried using the normal authentication. It works well. Is there any way of implementing conditional access to the dashboard using LDAP? Thanks in advance. 回答1: The commercial versions of Shiny Server support LDAP authentication, see this. Furthermore the open source solution shinyproxy provides LDAP

问题 I am creating a Shiny application and I want to download my results in a zip archive. Before, it was working for me because I was using Rx34 bits. Unfortunately, it is not working since I have used Rx64bits. I found some example which isn’t working for me: library(shiny) ui <- shinyUI(fluidPage( titlePanel("Old Faithful Geyser Data"), sidebarLayout( sidebarPanel( downloadButton("downloadData", "Download") ), mainPanel( DT::dataTableOutput('myTable1') ) ) )) server <- shinyServer(function

问题 In the following modularized shiny app the insertBtn_outer button works okay, but I am struggling to get the insertBtn_inner button to work. Many thanks for any insights that could help to resolve my issue. library(shiny) innerUI <- function(id){ ns <- NS(id) actionButton(ns('insertBtn_inner'), 'Insert') } inner <- function(input,output,session){ observeEvent(input$insertBtn_inner, { showModal(modalDialog( title = 'Debug message', paste0('The inner button works'), easyClose = TRUE, footer =

问题 Assume we have a shiny app that utilizes several selectizeInput controls with ( multiple = TRUE ). I would like to have a reactive table that filters for those selected choices, but also does not filter when "nothing" is selected. I know I could create an "All" bucket/choice, but I would prefer to just leave this blank. I am able to do this with a simple is.null pattern of if (!is.null(input$something) column %in% input$something else TRUE , but this is not very DRY once I have more inputs.

问题 I am looking to build a shiny app that dynamically creates modules (via callmodule) that returns a simple form. I have 2 loose ends on it that I would appreciate some guidance on please. Firstly, when multiple forms are brought to the user (via a button click), the values on previously rendered forms revert to the default. How do I stop this behaviour so that values stay on the users selection? And 2, how do I access and present ‘all’ the values from the selections into a single tibble that

问题 I have downloaded an example of using shiny and I want to add a simple technical indicator to it. My problem is that I cannot really see the second graph. Any help suggestion? I have read this : Plotting the same output in two tabPanels in shiny and R Shiny: How to assign the same plot to two different plotOutput I DO exactly the same or at least I think. So I need a small help on that, please library(shiny) ui <- shinyUI(fluidPage( titlePanel("Simple Stock Charting App"), sidebarLayout(

问题 I am looking to build a shiny app that dynamically creates modules (via callmodule) that returns a simple form. I have 2 loose ends on it that I would appreciate some guidance on please. Firstly, when multiple forms are brought to the user (via a button click), the values on previously rendered forms revert to the default. How do I stop this behaviour so that values stay on the users selection? And 2, how do I access and present ‘all’ the values from the selections into a single tibble that

问题 Is there a way to remove text field from fileInput in shiny? This is how it currently is: and this is how I want it to be: 回答1: One can define a custom input function, that takes the regular one and cuts away the pieces you don't want. library(shiny) fileInputOnlyButton <- function(..., label="") { temp <- fileInput(..., label=label) # Cut away the label temp$children[[1]] <- NULL # Cut away the input field (after label is cut, this is position 1 now) temp$children[[1]]$children[[2]] <- NULL

问题 Forgive the non-reproducible example. A theoretical solution will do just fine. I want to know how to subset a dataframe stored in a reactive expression for one particular column, to be be assigned a unique output_id, and ultimately displayed in the UI . This is analogous to accessing a column of a dataframe like so: df$column_name I store a dataframe as a reactive expression called data() , using eventReactive() which is linked with an actionButton() in the UI. Code in Environment: #