小编Bat*_*hek的帖子

通常,闪亮的应用程序通过R-Studio内置的浏览器打开.是否可以直接在网络浏览器中打开应用程序,例如谷歌浏览器,而无需通过R-Studio.

我尝试在躲闪的条形图中添加位置geom_text中的文本 但是它不适用于我的简单数据

data=data.frame(s=c(10,13,17,8),
                pr=c("a","b","a","b"),
                m=c(rep(as.Date('01.01.2015','%d.%m.%Y'),2), rep(as.Date('01.02.2015','%d.%m.%Y'),2)))

和ggplot

ggplot(data = data 
       ,aes(x = m, y = s,fill=pr ,ymax = max(s)*1.1))+
  geom_bar(position = "dodge",stat="identity")+
  geom_text(aes(y=s/2,label=paste(round(s,3),"%")),position = position_dodge(width=1))+
  scale_x_date(labels = date_format("%m/%y"),breaks = date_breaks("months"))

我明白了

如何在正确的位置添加文本(在每个栏的中间)？谢谢!

我希望在闪亮的仪表板中有不同的页面.首先,我创建了一个登录页面,为用户和管理员提供身份验证.之后,如果管理员登录系统想要查看用户无法访问它们的一些选项.问题:当我以用户或管理员身份登录时,我可以在后台看到主要的ui.r页面如何解决此问题,只能看到admin.R或user.R？当用户登录仪表板时显示,当管理员登录时,仪表板和小部件显示.所以我决定在R中创建4个页面如下:ui.R

library(shiny)
library(shinydashboard)
shinyUI( 
  dashboardPage(
    dashboardHeader(title = "Navigational Support System"),
    dashboardSidebar(),
    dashboardBody(
      box(
        uiOutput("page")
      )
    )
  )
)

server.R

library(shiny)
library(shinydashboard)
source("user.R")
source("admin.R")
############################################################################################################
#Login USER and ADMIN TO the System
my_username <- c("test","admin")
my_password <- c("test","123")
get_role=function(user){
  if(user=="test") {
    return("TEST")
  }else{
    return("ADMIN")
  }
}

get_ui=function(role){
  if(role=="TEST"){
    return(list_field_user)
  }else{
    return(list_field_admin)
  }
}


shinyServer(function(input, output,session) {

  USER <- reactiveValues(Logged = FALSE,role=NULL)

  ui1 <- function(){
    tagList(
      div(id = "login",
          wellPanel(textInput("userName", "Username"),
                    passwordInput("passwd", "Password"),
                    br(),actionButton("Login", "Log in")))
      #tags$style(type="text/css", '#login{ width:750px; float:left;}')

    )}

  ui2 …

我有一个带有一个ID列和多个数字列的data.frame,数字列的数量可以不同.在这些数字列中,我想为列上方的所有值着色为绿色,列下方的所有值均为红色.下面的代码给出了我想要的结果,但它不是具有更多或更少数字列的数据框的通用代码.

library(DT)

data2 <- cbind(ID = "some ID",iris[,1:4])

    datatable(
      data2, rownames = FALSE, class = 'cell-border stripe',
      options = list(
        dom = 't', pageLength = -1, lengthMenu = list(c(-1), c('All'))
      )
) %>%
  formatStyle(colnames(data)[2], backgroundColor = styleInterval(mean(data[,2]), c("red","green"))) %>%
  formatStyle(colnames(data)[3], backgroundColor = styleInterval(mean(data[,3]), c("red","green"))) %>%
  formatStyle(colnames(data)[4], backgroundColor = styleInterval(mean(data[,4]), c("red","green"))) %>%
  formatStyle(colnames(data)[5], backgroundColor = styleInterval(mean(data[,5]), c("red","green")))

我想用下面的代码替换上面的代码,但这不起作用.当数字列的数量发生变化时,下面的代码也可以使用.

datatable(
  data2, rownames = FALSE, class = 'cell-border stripe',
  options = list(
    dom = 't', pageLength = -1, lengthMenu = list(c(-1), c('All'))
  ) …

我需要在一个句子中分割单词但在这里有一些问题

word.list1 <- c("rose","location","criminal","lotus","check","sing","single")

如果你看一下上面的代码,唱歌和单曲是我列表中的两个单词

现在我有一个句子

a <- "rosesinglelocationcriminalcheck"

以下代码将拆分单词

for (word in word.list) {
  a <- gsub(word, paste0(word, " "), a)     }

> a1

[1] "rose sing le location criminal check "

其实我需要输出如下

> a1

[1] "rose single location criminal check "

因为我的名单中有唱歌和单曲.代码实际上正在唱歌.有没有可以拆分的话

左边是我的圆环图当前的样子,右边是它的样子:

有没有办法用R爆炸圆环图？

这是我的代码:

ggplot(dat, aes(fill = goalGroups, ymax = ymax, ymin = ymin, xmax = 4.8, xmin = 3)) +
  geom_rect(color = "white") +
  coord_polar(theta="y", direction = -1) +
  xlim(c(0, 8)) +
  theme_bw() +
  theme(panel.grid=element_blank()) +
  theme(axis.text=element_blank()) +
  theme(axis.ticks=element_blank()) +
  theme(axis.title.x = element_blank()) +
  theme(axis.title.y = element_blank()) +
  theme(panel.border = element_blank())

我非常感谢任何帮助!

我想知道我们是否可以在R Shiny 示例中做到这一点

# using styleColorBar
datatable(df) %>% formatStyle(names(df),
  background = styleColorBar(range(df), 'lightblue'),
  backgroundSize = '98% 88%',
  backgroundRepeat = 'no-repeat',
  backgroundPosition = 'center')

但是对于正值和负值有两种颜色,而且如果我们可以这样做,则负值被视为条形长度的绝对值

Ty,祝你有个美好的一天!

有没有好的方法来保存在服务器端生成的 Shinyinput 的状态（不要重置）？

例子

ui=shinyUI(fluidPage(
  selectInput("select","",choices = c(1,2),multiple = T),
  uiOutput("din_ui")
  ))

server=function(input, output,session) {
  output$din_ui=renderUI({
    lapply(input$select,function(i){
      numericInput(inputId = paste0("num_",i),i,"")
    })
  })

}

shinyApp(ui,server)

如果我选择 1 in selectinsert some values into num_1than add 2 in selectthan num_1reset to start value.

我有一个R闪亮的代码,可以生成各种报告,文字云,情感分析和各种其他内容.现在我希望通过点击一个按钮,所有这些生成的报告都可以一次性下载并附加到ppt.所以,例如它应该看起来像:

幻灯片1:词云

幻灯片2:情绪分析

幻灯片3:报告1 ......等等

到现在为止,我可以单独下载所有这些报告,即我的Shiny UI中有不同的选项卡,每个报告都可以找到并点击"下载",然后由downloadHandler下载.

此外,只需点击一下,我就可以用一个pdf下载所有这些报告,即在一个页面中我有报告1,依此类推.

直到现在我已达到以下:

    #downloadReport is my action button
    #on click of this button I am expecting the ppt. to be downloaded
    observeEvent(input$downloadReport, {
    # Create a PowerPoint document
    doc = pptx( )

    # Slide 1 : Title slide
    #+++++++++++++++++++++++
    doc <- addSlide(doc, "Title Slide")
    doc <- addTitle(doc,"Create a PowerPoint document from R software")
    doc <- addSubtitle(doc, "R and ReporteRs package")


   # Slide 2 : Add Word Cloud
    #+++++++++++++++++++++++
    doc <- addSlide(doc, "Title …

我试图将renderText元素的形式放在textOutput标头旁边​​，但它始终将它们放在不同的行上。

h1('This is the number:'), textOutput(output$number)

这也不起作用：

p(h1('This is the number:'), textOutput(output$number))

任何人都可以解决吗？