小编SNT*_*SNT的帖子

我正在尝试使用bootstrap获取垂直选项卡菜单.我想获得选项卡的背景,以便它与右侧的选项卡内容区分开来.当我尝试使用背景颜色进行导航时,标签看起来与导航背景颜色不一致

<link href="https://maxcdn.bootstrapcdn.com/bootstrap/3.3.7/css/bootstrap.min.css" rel="stylesheet"/>
<div id="TABBEDLOCATEPANEL" ng-show="locate.toggleCheck()" class="container">
  <div id=locatePanel class="row">
    <div class="col-md-4 col-sm-3">
      <div class="tabs-left">
        <ul id=locateTabs class="nav form-tabs nav-pills nav-stacked">
	    	<li class="active" title="Locate By Address"><a data-toggle="pill" href="#locateTab1" target='_self'><img src="images/Address.png" height="30" width="30"></img></a></li>
	    	<li title="Locate By Existing Record"><a data-toggle="pill" href="#locateTab2" target='_self'><img src="images/entity.png" height="30" width="30"></img></a></li>
	    	<li title="Locate By Coordinate"><a data-toggle="pill" href="#locateTab3" target='_self'><img src="images/coordinator.png" height="30" width="30"></img></a></li>
	    	<li title="Geography" ng-show="locate.getJSON().geographyTab" ng-click="locate.showGeographyData();"><a data-toggle="pill" href="#locateTab4" target='_self'><img src="images/geography.png" height="30" width="30"></img></a></li>
	    	<li title="Results" id="ltab5" ng-show="locate.resultsTab"><a data-toggle="pill" href="#locateTab5" target='_self'><img src="images/Result.png" height="30" width="30"></img></a></li>
		</ul>
        <div class="tab-content">
        	<div id="locateTab1" class="tab-pane …

我正在尝试使用 r markdown 生成用于演示的 HTML 文档。现在，当我使用独立版本执行此操作时，似乎工作正常。但是当我在一个闪亮的应用程序中使用它时，它似乎不起作用。到目前为止我已经用过这个UI

includeHTML("mkslides.html")

并在服务器中使用它来呈现降价。

out <- render('mkslides.Rmd')

当我在加载闪亮的应用程序时看到控制台时，似乎会呈现降价。但我看到的只是 HTML 文件，没有所需的 css 和 js。我怎样才能解决这个问题？

我有一个反应数据框如下:

       Apr 2017   May 2017   Jun 2017   Jul 2017   Aug 2017   Sep 2017
zz    0.1937571  0.1840005  0.1807256  0.1959589  0.2039463  0.2016886
aa    0.3518203  0.3634578  0.3670747  0.3676495  0.3680581  0.3657724
bb   0.10651308 0.11548379 0.11572389 0.11272168 0.11361587 0.11503638
cc    0.2481513  0.2579199  0.2623222  0.2673914  0.2579430  0.2550686
dd   0.06641069 0.06741159 0.07305105 0.07373854 0.07043972 0.07304338

我想样式基于价值全表(与此类似,EG3).以下是我的代码:

brks <- reactive({
    quantile(intrc_pattern_re(), probs = seq(0, 1, 0.25), na.rm = TRUE)
})

clrs <- reactive({
    round(seq(255, 40, length.out = length(brks()) + 1), 0) %>%
        paste0("rgb(255,", ., ",", ., …

我在一个闪亮的应用程序中有一个选择框,我试图使用outputOptions它,以便它将使用r-markdown生成我的报告中的所有选项卡.以下是代码:

observeEvent(input$tab, {
  if (input$tab == "fruits"){
    choices <- c(
      "Apples",
      "Oranges"
    )
  }
  else if (input$tab == "vegetables") {
    choices <- c(
      "potatoes",
      "squash"
    )
  }

  else {
    choices <- c(
      "berries",
      "onions"
    )
  }
  updatePickerInput(session,
                    inputId = "selected_metric",
                    choices = choices)
})

outputOptions(output, "selected_metric", suspendWhenHidden = FALSE)

以下是我得到的错误

.subset2(x,"impl")中的错误$ outputOptions(name,...):selected_metric不在输出对象列表中

我在一个闪亮的应用程序中有一个数据表，我在其中进行分页以仅显示 15 行。但是我可以添加一个选项，用户可以使用分页或显示所有按钮一次查看 15 行，该按钮将显示带有滚动条的所有记录。

library(shiny)
library(DT)
library(shinyWidgets)
library(shiny)


shinyApp(

  ui = navbarPage(
    title = 'DataTable',
    tabPanel('Display length',     DT::dataTableOutput('ex2'))
  ),

  server = function(input, output, session) {

    output$ex2 <- DT::renderDataTable(
      DT::datatable(
        iris, options = list(
          lengthMenu = list(c(5, 15, -1), c('5', '15', 'All')),
          pageLength = 15
        )
      )
    )

    }
    )

我只是想知道在我尝试访问Google Chrome中localhost上的网站时是否创建了Cookie.

我正在尝试使用d3.hierarchy和d3js v4获得一个旭日形图.我在 这里做了同样的例子.但是由于我作为对象数组得到的数据与示例中使用的数据不一样,所以我添加了一个小函数,以便数据与示例中的数据相同.以下是功能

const arrayToObject = (array) =>
    array.reduce((obj, item) => {
        obj[item.name] = item
        return obj
}, {})

这是小提琴的链接:https: //jsfiddle.net/snt1/mbszu1u5/8/

谢谢.

我有一张表在一个闪亮的应用程序中显示.我想根据值格式化表格并相应地对其进行着色.我已经看到了格式化区域着色,其中基于它定义断点的值的范围,然后生成应用于表格的颜色渐变.我想要做的是允许用户填充最小值和最大值,并根据它,表中的值将被着色.因此,如果值的范围为1-20,并且如果用户输入为5和15,则低于5且高于15的值不应对其应用任何颜色渐变.下面是我目前正在使用格式化区域格式的代码.

library(shiny)
library(shinyWidgets)
library(shinydashboard)
library(DT)

sidebar <- dashboardSidebar(
  sidebarMenu(id = "tab",
              menuItem("1", tabName = "1")
  )
)
body <-   ## Body content
  dashboardBody(box(width = 12,fluidRow(
    fluidRow(  column(
      width = 3,  textInput("text1", label = h5("Min"), value = "Enter min")),
      column(
        width = 3, textInput("text2", label = h5("Max"), value = "Enter max"))),
    DT::dataTableOutput("op")
  )))

ui <-   dashboardPage(dashboardHeader(title = "Scorecard"),
                      sidebar,
                      body)

# Define the server code
server <- function(input, output,session) {
  df <- data.frame(month = c("mazda 3", "mazda cx5", "mazda 6","mazda miata","honda …

这里有人在将鼠标悬停在地块或任何可以这样做的包装上时显示图像的示例吗？我已经尝试了一些东西，但它只会显示url而不会显示图像。我知道这段代码只是封装了URL。如何建立一个div以显示图像。

library(shiny)
library(shinydashboard)
library(DT)
library(dplyr)
library(plotly)

# Data ------------------------------------------------------------------
dt <- data.frame(fruits = c("apple","banana","oranges"),
  rank = c(11, 22, 33), 
  image_url = c(
    'https://images.unsplash.com/photo-1521671413015-ce2b0103c8c7?ixlib=rb-0.3.5&s=45547f67f01ffdcad0e33c8417b840a9&auto=format&fit=crop&w=667&q=80',             
    "https://images.unsplash.com/photo-1520699697851-3dc68aa3a474?ixlib=rb-0.3.5&ixid=eyJhcHBfaWQiOjEyMDd9&s=ef15aee8bcb3f5928e5b31347adb6173&auto=format&fit=crop&w=400&q=80",                        
    "https://images.unsplash.com/photo-1501925873391-c3cd73416c5b?ixlib=rb-0.3.5&ixid=eyJhcHBfaWQiOjEyMDd9&s=379e4a0fffc6d11cd5794806681d0211&auto=format&fit=crop&w=750&q=80"
))

# img_dt <- dt %>%
#   mutate(img = paste0("<a target='_blank' href='", image_url, "'><img src=\'", image_url, "' height='40'></img></a>")) %>%
#   mutate(link = paste0("<a href='", image_url,"' target='_blank'>","View photo","</a>")) 

# Dashboard ----------------------------------------------------------------
ui <- dashboardPage(
  dashboardHeader(title = "Test"),

  dashboardSidebar(),

  dashboardBody(
    tags$head(
      tags$style(
        HTML(
          "img.small-img {
          max-width: 75px;
          }")
      )
    ),

    plotlyOutput("hoverplot")
  )
)

server <- function(input, output) …

我正在尝试为移动网站获取手风琴菜单.它看起来如下.

下面是我用于菜单的css.

.accordion-anchor {
    float: left;
    width: 50%;
    padding: 0.8em;
    border-left: 1px solid #258ecd;
    color: white;
    text-decoration: none;
    font-size: 12px;
    line-height: 20px;
    display: block;
    padding: 0 15px;
    transition: all 0.15s;
    border-bottom: 1px solid #808080;
    background: black;
}

<a href="" ng-click="elementClicked($event)" id="Rough_Plumbing__Electrical_PS" class="accordion-anchor ng-binding"><input type="checkbox" ng-click="elementClicked($event)" class="accordion-checkbox ng-pristine ng-untouched ng-valid" id="CREATE_CC_LAYER" ng-model="ischecked">Rough Plumbing &amp; Electrical</a>

正如您所看到的那样,当文本未在两侧对齐时,它们会被破坏.我尝试了文本的自动换行,它似乎没有解决这个问题.

根据建议更改css之后,这就是现在的样子.