navbar of shiny app interferes with navbar of rmarkdown webpage

See also questions close to this topic

• Copying contents from a document into a new one with the same format

  Right now I have a document that's almost like a template that has bold, indention, header and I would like to be able to take the contents of that document and replace certain strings with what the user inputs in forms that I have set up. I have it working where it makes a new one and replaces the words with just a plain text document with no special formatting. Is there a way to do this with keeping all of the formatting? Anyway it needs to be done is cool, but I've been using mostly PHP and the code I have so far to do it is PHP.

  Here's what the code looks like that works with no formatting.

  <?php  
  session_start();
  
  
  $file = tempnam(sys_get_temp_dir(), 'TMP_');
  
  file_put_contents($file, file_get_contents("freewillben1.docx"));
  
    //replaces string in document with data 
  $fh = fopen($file, 'a') or die("can't open file");
  $placeholders = array('Fff', 'Mmm','Lll');
  $namevals = 
  array($_SESSION["fName"],$_SESSION["mInitial"],$_SESSION["lName"]);
  $path_to_file = 'freewillben1.docx';
  $file_contents = file_get_contents($path_to_file);
  $file_contents = str_replace($placeholders,$namevals,$file_contents);
  file_put_contents($file,$file_contents);
  fclose($fh);
  
  
  if(!file_exists($file)) die("I'm sorry, the file doesn't seem to exist.");
  
  $type = filetype($file);
  // Get a date and timestamp
  $today = date("F j, Y, g:i a");
  $time = time();
  // Send file headers
  header("Content-type: application/vnd.openxmlformats- 
  officedocument.wordprocessingml.document");
  header("Content-Disposition: attachment; filename=yourwill.docx");
  header("Content-Transfer-Encoding: binary"); 
  header('Pragma: no-cache'); 
  header('Expires: 0');
  // Send the file contents.
  set_time_limit(0); 
  readfile($file);
  ?>
  
• Add a link within a link HTML

        <div class="portfolio-item">
          <div class="hover-bg"> <a href="img/portfolio/10-large.jpg" title="Hello" data-lightbox-gallery="gallery1">
            <div class="hover-text">
              <h4>Sponsor 1</h4>
            </div>
            <img src="img/portfolio/10-small.jpg" class="img-responsive" alt="A"> </a> </div>
        </div>
  

  We scrolling down the page there's a group of 3 by 3 images. This is just one of them. When you hover over the image it fades to a tint of blue and reveling the text "Sponsor 1" and alt text "A". When you click on it, it switches to a bigger image in a preview slide show mode and you can switch images with the arrows. The problem is there's some text that appears when it goes into this mode at the bottom "Hello" that I want to be a link that goes to the sponsors website (for example google.ca). It doesn't want to work like we all want it to. When I add something, some of the code can't be read. How can this be done correctly? Please help, thank you in advice
• Submit Button With Error Message and then redirect location

  I wanted to have an error message for the button and then redirect to the url. I'm not sure on how to do that. I wanted to put it into JQuery. I'm new to JQuery. It's like the user have to upload a file then click on Submit. "The submit button will redirect user to the url from the QRCode which will be displayed on the text.

  Submit Button:

     <div id="form1">
     <input type=text placeholder="Tracking Code" class=qrcode-text id="url">
     <label class=qrcodeBtn>
         <input type=file accept="image/*" capture="environment"  onchange="openCamera(this);">
  </label>
  <input type=button value="Submit" onclick = "windowLocate()" class="btnQRCode" id="submitButton">
  

  Javascript for Redirect:

        function windowLocate() {
          var url = document.getElementById("url").value;
          document.write("Redirecting to the url in few seconds...");
          setTimeout(function () { window.location = url; }, 3000);
        }
  
• subsetting data based with the condition of the current and previous entity in r

  I have data with the status column. I want to subset my data to the condition of 'f' status, and previous condition of 'f' status. to simplify:

  df
  id  status  time
  1    n       1
  1    n       2
  1    f       3
  1    n       4
  2    f       1
  2    n       2
  3    n       1
  3    n       2
  3    f       3
  3    f       4
  

  my result should be:

  id  status  time
  1    n       2
  1    f       3
  2    f       1
  3    n       2
  3    f       3
  3    f       4
  

  How can I do this in R?
• Contour and Perspective Plot Error for Kernel Density Estimation

  So I would like to do a kernel density estimation and output both a contour and perspective plot. I am extremely close to figuring out the contour plot but I have hit an error when I run the code below. Additionally, the code I find online does not seem to work for my dataset in regard to a perspective plot for this same data. I am doing this with a bandwidth of .5,.5 .

  countourist<- ggplot(df, aes(x = X, y = Y)) +
    geom_point() +
    xlim(-5, 5) +
    ylim(-5, 5)
  
  countourist + stat_density_2d(aes(fill = stat(level)),
                                countour = TRUE, h = .5,.5, 
                                geom = "polygon")
  

  Sample Data:

  structure(list(X = c(-0.0962590773067708, -1.18915207404317, 
  0.706207022991542, 0.354207143877577, -0.81518898552579, 0.275541521081109, 
  0.497855536939137, 0.645414156351502, -0.0122766542233017, 0.40578545233698, 
  0.189360054285873, 0.253754051773016, -0.88127350804621, 0.485445084008632, 
  0.276018362443043, 0.0145802591922327, -0.181071537886075, 0.121463173714344, 
  -0.152709201805671, -0.338877208521439, -1.46948728986613, -2.02398725046067, 
  -0.624336281672069, -1.62555577656191, -0.67130590447829, -0.0335257471517457, 
  0.198179809536955, -0.63029273337944, -0.694460643800555, -0.411059118662514, 
  0.221464974231996, 0.430316124954996, -1.6217665981342, -0.881526856414648, 
  -1.3192875841495, 0.404600053659747, 1.12817344490934, 0.024248421312024, 
  -0.399749792485403, 0.0857939068657727, -0.217844669409035, 0.101279872558566, 
  0.291323502766035, -1.42132579845577, 1.2753388274467, -1.33076195534297, 
  -1.46502902788164, -0.73855874296236, -1.0322620171297, 0.113170727116302
  ), Y = c(0.0632600046556984, -1.78280440755007, 2.82492518636035, 
  1.68999775891935, -1.40182480306009, -0.0162214629216463, 1.00914182163537, 
  0.258321598714745, 0.249412178294172, 0.505938493454907, 0.88745904296611, 
  0.545487039522648, 0.205393499236483, 1.43415169211384, -0.0293576589272771, 
  0.373169713548136, 0.462176118409707, -1.11661047785449, 0.0361289986559508, 
  0.219314070361257, -1.72970101801671, -1.13555829290375, -0.257332488904325, 
  -1.00336683254877, -2.24667782853137, 0.718672747346788, 0.381256786447137, 
  -0.0897024758439116, 0.533411392798842, 0.712575478035058, 1.6809613554424, 
  0.504565244422453, -0.0852144876427054, 0.229922323383187, 0.0269379632874171, 
  0.644533564497338, 1.49725854460476, 0.382307653466023, -0.41280923134344, 
  -0.666316793613442, 0.410058708890068, -0.354068636380733, 1.55419054704138, 
  -1.0573192227978, 1.48806834104077, -1.57278080268752, -0.863516432481153, 
  -0.908568905792217, -1.30139200592853, 0.896154050079126)), row.names = c(NA, 
  -50L), class = c("tbl_df", "tbl", "data.frame"))
  
• Change font size in ggpairs() - R

  I am trying to change the font size in the ggpairs output as it is too big and makes the matrix unreadable

  ggpairs(MyData,
   lower = list(continuous = wrap("points",size = 6)),
   upper = list(combo = wrap("box", size = 3)))
  

  I added the “size” after reading here (second answer) How to change correlation text size in ggpairs()

  I see no changes
• How to autoplay audiomack iframe

  With soundcloud you can add the parameter auto_play=true in the iframe src attribute to autoplay the audio file.

  https://w.soundcloud.com/player/?visual=true&url=http%3A%2F%2Fapi.soundcloud.com%2Ftracks%2F494237829&show_artwork=true&auto_play=true
  

  I'd like to do the same with an audiomack iframe. I have so far created the following iframe (see below) but have had no luck finding anything that works to allow this to autoplay. Is it possible? After hours of searching I can't seem to find anything helpful regarding this. Any guidance would be greatly appreciated!

  <iframe frameborder="0" allowfullscreen="" src="https://audiomack.com/embed/album/shy-glizzy/fully-loaded"></iframe>
  
• How do live chats pass cross-origin error?

  How do live chats pass cross-origin error? For example I want to add script that print an iframe on client website(with different domain ) ? How can I pass origin error below? Is there a PHP specific solution?

  Uncaught DOMException: Blocked a frame with origin "https://xxx" from accessing a cross-origin frame.
      at toggleClass (https://xxx:268:24)
      at HTMLElement.onclick (https://xxx:190:67)
  
• Unable to drag or edit IText object fabricjs inside Iframe

  I got an iframe inside HTML and a canvas inside the iframe.

  When I add fabric.IText to the canvas, the text did appear on the canvas but cannot drag around or do any interaction.

  JS code

  function addText(canvas){
  
    var iText = new fabric.IText('Click twice to edit text', {
      fontSize: 35,
      textAlign: 'left',
      fill: '#000',
    });
  
    canvas.add(iText);
    canvas.centerObject(iText);
  
    canvas.renderAll();
  }
  
  function loaded() {
      var iframe = document.getElementById('theiframe');
  
      var iframediv = iframe.contentWindow.document;
  
      iframediv.body.innerHTML += '<canvas id="thecanvas"></canvas>';
  
      var c = iframediv.getElementById('thecanvas');
  
      var canvas =  new fabric.Canvas(c);
      canvas.setDimensions({width:500, height:304});
  
      addText(canvas);
  }
  

  HTML code

  <div>
      <iframe id='theiframe' style='width:500px; height:304px'  onload='loaded();'>
      </iframe>
  </div>
  

  Here is the jsfiddle

  There is an existing issue on GitHub but unfortunately, it was closed without any solution. Does fabric.js support canvas inside iframe? #4805

  Note: I am using fabricJs in chrome extension, which is loaded as content script inside iframe srcdoc. Also I am using latest version of fabricjs 2.4.1
• Adding CSS to and HTML Widget on a Flexdashboard

  RStudio allows you to add CSS file's to a yaml header. Which is great if I wanted to change some of the many cool "static" components of a flexdashboard where the HTML class and id stay the same. However when working with HTML Widgets (C3 and rhandsontable currently) a random id from what I can tell is created when you compile your flexdashboard. I can use the inspect element or view source and add in the CSS I would like on my HTML Widgets. Is there anyway I can compile my flexdashboard with the CSS I want already there? How can I target the widgets I want to attach the CSS to? I would like to compile a number of reports that look the same, except with different data. SO compiling with the CSS would be much more efficient.

  Example R flexdashboard widget code

  ### Value
  
  ```{r}
  
  data.frame(R= 1000,
         C = 750,
         S = 250,
         D = 250) %>% 
  c3() %>% 
  c3_pie()
  
  data.frame(R= 1000,
         C = 750,
         S = 250,
         D = 250) %>% 
  c3() %>% 
  c3_pie()
  ```
  

  Example via inspect element div CSS

  <div class = "c3 html-widget html-widget static bound" id = "htmlwidget-abcdghag0980" style = "width:576px; height:460px;  position: relative; max-height: 11.6px">
  

  Desired CSS added via inspect element

  <div class = "c3 html-widget html-widget static bound" id = "htmlwidget-abcdghag0980" style = "width:576px; height:460px;  position: absolute; right:400px; max-height: 11.6px">
  

  I'm adding very little CSS just trying to add more graphs to a smaller area by making the position absolute and pushing it to the right 400px. Everything I can read through RStudio/Here has not been very helpful.
• Accessing HTML radio button value within RShiny

  I'm having trouble accessing the value from my HTML radio buttons within my Shiny app, and I'd really appreciate some help.

  Here's my HTML code:

  <!DOCTYPE html>
  
  <head>
    <script src="shared/jquery.js" type="text/javascript"></script>
    <script src="shared/shiny.js" type="text/javascript"></script>
    <link rel="stylesheet" type="text/css" href="shared/shiny.css"/>
    <link rel="stylesheet" href="nostylist.css"/>
  </head>
  
  <body>
  
    <h1>HTML UI</h1>
  
    <table>
      <tr>
        <th>Statement A</th>
        <th>Agree much more with statement A</th>
        <th>Agree somewhat more with statement A</th>
        <th>Agree somewhat more with statement B</th>
        <th>Agree much more with statement B</th>
        <th>Statement B</th>
      </tr>
  
      <form>
        <tr>
          <td>I am particular about the food that I eat</td>
          <td><input type="radio" name="row" value="1" checked></td>
          <td><input type="radio" name="row" value="2"></td>
          <td><input type="radio" name="row" value="3"></td>
          <td><input type="radio" name="row" value="4"></td>
          <td>I am not super-picky</td>
        </tr>
      </form>
    </table>
  
    <label>Number of observations:</label><br />
    <input type="number" name="n" value="500" min="1" max="1000" />
  
    <h3>Output:</h3>
    <pre id="summary" class="shiny-text-output"></pre>
  

  and here's my RShiny code:

  library(shiny)
  
  # Define server logic required to draw a histogram
  server <- function(input, output) {
  
     output$summary <- renderPrint(input$row)
  }
  
  # Run the application 
  shinyApp(ui = htmlTemplate("www/index.html"), server)
  

  At the moment, what's output is "NULL". However, when I change input$row to input$n, which is referencing my number input, the value from my number input gets output perfectly fine. Any ideas on how I can output the selected value of my radio buttons onto my RShiny app?

  Here's an image of what my Shiny app currently looks like: Shiny App
• Write CSV based on User Input

  I want to write CSV file based on selection of input box in rows. After multiple selection of input boxes, user can write CSV file once he clicks on "Write Data" button.

  library(shiny)
  library(DT)
  
  
  mymtcars = mtcars
  mymtcars$id = 1:nrow(mtcars)
  runApp(
    list(ui = pageWithSidebar(
      headerPanel('Examples of Table'),
      sidebarPanel(
        textInput("collection_txt",label="Foo")
      ,
         br(),
     p("Include actionButton to prevent write occuring before user finalises selection"),  
     actionButton("generateButton","Write Data")    
  ),
      mainPanel(
        DT::dataTableOutput("mytable")
      )
    )
    , server = function(input, output, session) {
  
        shinyInput <- function(FUN,id,num,...) {
        inputs <- character(num)
        for (i in seq_len(num)) {
          inputs[i] <- as.character(FUN(paste0(id,i),label=NULL,...))
        }
        inputs
      }
  
      rowSelect <- reactive({
  
        rows=names(input)[grepl(pattern = "srows_",names(input))]
        paste(unlist(lapply(rows,function(i){
          if(input[[i]]==T){
            return(substr(i,gregexpr(pattern = "_",i)[[1]]+1,nchar(i)))
          }
        })))
  
      })
  
      observe({
        updateTextInput(session, "collection_txt", value = rowSelect() ,label = "Foo:" )
        if(input$generateButton == 0){return()}
        input$generateButton
        mtt = mymtcars[rowSelect(),]
        mtt
  
      showNotification("Done!")
      write.csv(mtt, file = "sol_Deep.csv" , row.names=F)
      })
  
      output$mytable = DT::renderDataTable({
      DT::datatable(cbind(Flag=shinyInput(checkboxInput,"srows_",nrow(mymtcars),value=NULL,width=1), 
                      mymtcars),   extensions = 'Buttons', options = list(orderClasses = TRUE,
                                     pageLength = 5, lengthChange = FALSE, dom = 'Bfrtip',
                                     buttons = c('copy', 'csv', 'excel'),
                                     drawCallback= JS(
                                       'function(settings) {
                                       Shiny.bindAll(this.api().table().node());}')
                                    ),escape=F)
  
        }
    )
  
      })
  )
  

  The code is returning NAs. How can i fix it?
• Knit, using group_by() on a frame with a timestamp-column

  I have a data frame with case IDs and timestamps.

  str(Frame$Timestamp) 
  POSIXct[1:3320], format: "2018-01-02 09:10:14" "2018-01-02 09:10:14" "2018-01-02 09:35:30" "2018-01-02 10:30:43" "2018-01-02 17:10:09" ...
  

  In the console I can execute group_by(Frame, CaseID) without problems.

  When I knit a .Rmd-notebook with the same command I receive the following error:

  Error in grouped_df_impl(data, unname(vars), drop) : 
  Column 'Timestamp'is of unsupported POSIXlt/POSIXt calls:
  <Anonymous> ... group_by.data.frame -> grouped_df -> grouped_df_impl Execution halted.
  

  What can I do to make it possible to use group_by() in that case?

  Ben
• Convert rmd to pdf without installing tex

  Using rmarkdown package and calling render("input.Rmd", "pdf_document") to convert rmd to pdf requires installing (via .exe) a 'tex' program.

  Unfortunately work doesn't allow to install/run exe so I am seeking alternatives to converting rmd to pdf without this dependency. I know that I can go rmd > html > pdf however hoping there is a cleaner option.
• Looping through a list of ggplots and giving each a figure caption using Knitr

  Creating parameterized reports and for one part I am going to generate a series of ggplots for each permutation possible. Each of these are programmatically named and I want use the names to give each their own figure caption. I want to pull the names from the list and pass them to fig.cap dynamically.

  Yihui and others have said (https://groups.google.com/forum/#!topic/knitr/MJVLiVyGCro), that to have multiple figures in a chunk and give them a figure caption, you need to have echo=TRUE because inline figures and pandoc stuff.

  I don't want to show code and the number of figures may be variable so I don't want to hard code things. Interestingly, using a list of ggplots also does not work even if echo=TRUE. I have to individually call each ggplot.

  Is there a way to do this? my MCVE is below. You can switch between the list and the individual plots to see the figures disappear or show up.

  ---
  output: 
    pdf_document:
      fig_caption: true
  ---
  
  
  
  ```{r, echo=FALSE}
  suppressPackageStartupMessages(library(knitr))
  suppressPackageStartupMessages(library(ggplot2))
  library(markdown)
  library(rmarkdown)
  opts_chunk$set(tidy.opts=list(width.cutoff=40),tidy=TRUE, warnings=FALSE, messages=FALSE, comment = NA, error = FALSE, results = FALSE, echo=FALSE)
  
  ```
  
  ```{r}
  ## Plot 1
  listOfPlots <- list(ggplot(data = diamonds) +
    geom_point(aes(carat, price)),
  
  ## Plot 2
  ggplot(data = diamonds) +
    geom_point(aes(carat, depth))
  )
  
  names(listOfPlots) <- c("This is caption 1", "This is caption 2")
  ```
  
  
  ```{r, fig.cap = c("This is caption 1", "This is caption 2"), echo=TRUE}
  
  listOfPlots
  
  # listOfPlots$`This is caption 1`
  # listOfPlots$`This is caption 2`
  ```