小编Vas*_*sim的帖子

整个代码/文件可以在这个答案中找到

UI.R file
library(shiny)
library(shinydashboard)
shinyUI( 
  dashboardPage(
    dashboardHeader(disable = TRUE), #title=textOutput("title")),
    dashboardSidebar(uiOutput("side")),
    dashboardBody(
          uiOutput("page")
    )))

但是，我想在我的仪表板中禁用标题，在此处的帮助下，我设法禁用了但随后在我的仪表板中添加了一些空白。（见图片，橙色高亮框）。

我怎样才能摆脱这个？这不仅在登录页面上，即使登录后问题仍然存在。

library(shiny)
library(shinydashboard)

ui <- dashboardPage(
  dashboardHeader(),
  dashboardSidebar(),
  dashboardBody(
    wellPanel(tags$div(id="pane",
    fluidRow(
      column(width = 6,valueBox("test","test1"),
             valueBox("test","test2"))),
    fluidRow(
      column(width = 6,valueBox("test","test3"),
             valueBox("test","test4")

             ))), 
    tags$style(type="text/css","#pane{font-size:20px;}"))

    ))
# )




server <- function(input, output) {}

shinyApp(ui, server)

结果

但是，我只需要突出显示的部分；即井板宽度应按照盒子的宽度

这只是一个例子，除了不同的井板之外，我还将添加四个盒子。

library(shiny)

# Define UI for application that draws a histogram
ui <- fluidPage(

  includeCSS(path = "AdminLTE.css"), #added 
  includeCSS(path = "shinydashboard.css"), #added

   # Application title
   titlePanel("Old Faithful Geyser Data"),

   # Sidebar with a slider input for number of bins 
   sidebarLayout(
      sidebarPanel(
         sliderInput("bins",
                     "Number of bins:",
                     min = 1,
                     max = 50,
                     value = 30)
      ),

      # Show a plot of the generated distribution
      mainPanel(
         box(plotOutput("distPlot"), solidHeader = T, collapsible = T, title = "collapsible box not collapsing", status = "primary")
      ) …

    library(shiny)
    library(shinydashboard)
    filetime <- format(file.mtime("mydata.csv"), format = "%a %e-%b-%Y %r IST")

    ui <- dashboardPage(
      dashboardHeader(title = "Recruitment"),
      dashboardSidebar(),
      dashboardBody(
        shinyUI(fluidPage(
         box(verbatimTextOutput("final_text"), status = "primary", solidHeader = TRUE, collapsible = TRUE, width = 12, title = "Collapsable text")
    ))))

    server <- shinyServer(function(input, output, session) {
      output$final_text <- renderText({
        HTML(paste("<center>","Last updated at", filetime, "</center>")) #"<font size=\"2\">",
      })
    }

在上面的代码中，它们Last updated at and filetime没有居中对齐，经过进一步研究，我发现该center标签在 HTML5 上不起作用，不确定这是否导致了问题。

作为解决方法，我添加了一个div and class通过 css 居中对齐文本的方法，这是我的第二次尝试。

#Next to fluidPage
tags$style(HTML(".man_made_class{color:#f2f205; text-align: center;}")), …

我的数据集

我的要求

基本上,我需要一个简单的三角形图表,其中高度是No column和Group Name in框中的值.宽度可以是任何尺寸.如果我们可以为不同的套装提供不同的颜色,那就太棒了.

我是新来的R,并试图polygon,lapply,geom_polygon,triangle,pascal triangle,ade4,pyramid和其他人,但没有成功.

此外,在R Studio中,这应该是视觉效果,而不是观看者视觉效果.

我的尝试:

library(shiny) 

ui <- fluidPage(   
navbarPage("Sales Dashboard", id ="sales_tab",
  tabPanel("Panel_1", "Test Panel", value = "Test_panel"),
  tabPanel("Open Sales Gsheet", "Open Sales Gsheet", value = open_ghseet_tab")
))

server <- function(input, output, session) {
  observeEvent(input$sales_tab,{
  if(input$sales_tab == "open_ghseet_tab") {
  a("test", href="http://google.com", target="_blank")
  }
})   
}

shinyApp(ui = ui, server = server)

我的问题:

当我点击tabPanel "Open Sales Gsheet"哪个有值"open_gsheet_tab".我想要的只是打开一个网址,例如google.com

我不想使用actionbutton,它需要tabPanel基于.

library(DT)
seq_dates <- data.frame(dates = as.Date("2017-01-01") + 1:6 * 100)
datatable(seq_dates) %>% formatDate(1, "toDateString")

我在查看器窗格中得到一个数据表，该数据表以以下格式“日期：2017年5月22日”显示日期。

问-如何将日期栏的格式设置为“ MM-YY”

如果我做，

dplyr::mutate(seq_dates, dates = format(dates, format = "%b-%Y")) %>%
  datatable()

我得到了所需的日期格式，但是在第二种情况下，列排序不起作用（排序是按字母而不是日期进行的。）

PS-我正在闪亮地实现这一点。

背景:我已经在Google应用程序脚本的HTML服务中准备了一个表单,我使用Code.gs中的DoGet函数调用该表单.

my doget function
function doGet() {
  return HtmlService.createTemplateFromFile('HTMLUI').evaluate();
}

一旦发布,它将呈现一个简单的浏览器表单,其中包含一些标签,输入框,提交,重置和查找按钮.用户将输入信息点击提交,数据将存储在电子表格(背景)中. - 工作正常,直到这里.

现在,当用户点击查找按钮时 - 需要填充弹出窗口类型,在此弹出窗口中,用户可以输入信息(来自下拉列表),所选条目将填入输入框中,可以修改并再次提交.

题:

在浏览器上如何在GAS中使用POP up kind窗口.

我在HTML服务中的查找按钮如下:

<div><input type="button" onclick="createPopup()" value="Find"></div>

最后调用javascript:

<script type="text/javascript">
        function createPopup() {
        google.script.run.popup(document.forms[0]);
    }
</script>

CreatePopup()javascript代码:

function popup(form){
Logger.log("I am first called");
//Mycode should probably go here I think...  
Logger.log("I am last called");
}

查看日志时,它显示"我第一次被呼叫"和"我最后被呼叫".

我的研究:我发现Spreadsheet.toast(类似的东西)适用于电子表格,但我如何在浏览器上获得小窗口..

我尝试使用以下这里自动完成功能在HTML文本服务.

我成功地能够这样做,但我想更改可用的标签.标签应来自电子表格.我试过以下......请帮忙.

<script>
var ss = SpreadsheetApp.openById("0Avt7ejriwlxudGZfV2xJUGJZLXktm2RhQU1uRUgtaXc");
   var s = ss.getSheetByName("Database");
   var lastrow = s.getLastRow();
   var list = s.getRange(2,3, lastrow).getValues();
   for( var i = 0; i < list.length; i++)  {

  }

    $(function() {
    var availableTags = [list[i][0]];
    $( "#tags" ).autocomplete({
    source: availableTags
    });
    });
</script>

任何帮助我如何修改代码以正确链接availableTags.

在第6行的链接答案中,如何识别从URL中捕获的数量getElement("div")和getElements("div")[number]应该从中捕获的数量.

这是我要捕获表的URL.

我的R代码

data <- read.csv('filename.csv')
typof(data)
[1] "list"

str(data)
    'data frame' : 9 obs. of 10 variables
    $Name: Factor w/9 levels "Name 1", "Name 2",....
    $Column2: chr "","Text1","","Text2"
    $Column3: chr "Text2","Text3","","Text1"
    $Column4: chr "","","","Text1"
#and so on

需求:

我要的是$Column2,$Column3,$Column4,...等.无论有一个非空值,添加前缀(Here this is)和后缀(completed).所以考虑到上面data Column2,目前有价值的第二行"Text1"应该成为"Here this is Text1 completed."

同样在Column3: 1st, 2nd and 4th cell需要添加前缀和后缀值.

我不想使用循环,除非直到需要/必要.

我的尝试:

我曾尝试一些尝试,例如interaction,mget,append多几个,但似乎没有任何工作.

ui <- dashboardPage(
  dashboardHeader(title = "Sales"),
  dashboardSidebar(),
  dashboardBody(
    
    tags$style(HTML(".box-header{background:#d2d2d2; color:#d83000; text-align:center;}")),
    
  shinyUI(fluidPage(
    fluidRow(
     box(fluidRow(column(width = 12,
         valueBox(1000,"Total Sales", width = 2),
         valueBox(500,"Existing Sales", width = 2),
         valueBox(300,"New Sales", width = 2),
         valueBox(100,"Lost Sales", width = 2),
         valueBox(100,"Unclassified Sales", width = 2))),
         fluidRow(column(width=12, offset = 2,valueBox(250, "within existing sales", width = 2))),
         width = 12, title = tags$b("BUSINESS MODEL"), solidHeader = TRUE)
    )#,
    #box(title = "Title", height = 20, width = 8, solidHeader = TRUE)
  
))))

# Define server logic required …