Skip to main content

Webscraping with RStudio

I'm trying to webscrap a website (actually I'm downloading a .xlsx file) with R, but I got stuck since I don't know too much about both R and HTML.

I found the code below here, but it is not doing all the job. On the website I need to select (on a dropdown menu) the department and the checklist type, and then click on a download button (which opens the "download url" from the code bellow). The problem is the website allows me to download data from one department at a time.

So I would like to find a way to do this with R, and download the files from all the departments just changing the ID (from both department and checklist).

install.packages("rvest")
library(rvest)

url <- "https://website.com/auth/login?redirectUrl="
download_url <- "https://website.com/departments/file.xlsx"
session <- html_session(url)
form <- html_form(session)[[1]]

filled_form <- set_values(form,
                          email = "myusername", # "email" is an element from website HTML code
                          password = "mypassword") # "mypassword" is an element from website HTML code

## Save main page url
main_page <- submit_form(session, filled_form)

#after login and submit_form do this:
download <- jump_to(main_page, download_url)

# write file to current working directory
writeBin(download$response$content, basename(download_url))

The area ID has the format in the HTML code bellow. I guess the JS function gets this setIdPlantaAtual(123) value and filter the database when I select the download button. The other filter seems to be based on the setModuloAtual parameter (equivalent to checklist type).

// Department HTML code

<h5><a onclick="setIdPlantaAtual(123)" href="javascript:;">Department ABC <span class="badge badge-success">selecionar</span></a></h5>

// Checklist HTML code

<li class="new" onclick="setModuloAtual('Checklist1')" style="cursor:pointer;">

Bellow are the two functions I found on the website code.

        function setIdPlantaAtual(_idplantaatual) {
            $.blockUI({
                message: '<h1> Wait...</h1>'
            });
            $.post(baseUrl + '/index/idplantaatual', {
                id: _idplantaatual
            }, function(res) {
                if (res == 'OK') {
                    location.reload();
                } else {
                    $.unblockUI();
                }
            });

        }

        function setModuloAtual(modulo) {
            if (modulo == "Tratativas de NCs") {
                modulo = "Tratativas de NC\'s";
            } 
           
            $.post(baseUrl + '/index/moduloatual', {
                modulo: modulo
            }, function(res) {
                console.log('aaa',res)
                if (res == 'OK') {
                    // location.reload();
                    window.location.replace(baseUrl);
                } else if (res.split('$%$').length > 0) {
                    var new_modulo = res.split('$%$')[1];
                    if (new_modulo != undefined) {
                        window.location.replace(baseUrl + '/' + new_modulo);
                    } else {
                        window.location.replace(baseUrl + '/');
                    }
                } else {
                    console.log(res);
                }
            });
        }

I think the same approach from my first attempt would work to merge the department ID (setIdPlantaAtual()) and the checklist ID (setModuloAtual()) into the download url, but I don't know how to do that.

I appreciate any help!

Via Active questions tagged javascript - Stack Overflow https://ift.tt/Wiv3CQa

Labels

Labels:

Comments

Post a Comment

Popular posts from this blog

ValueError: X has 10 features, but LinearRegression is expecting 1 features as input

So, I am trying to predict the model but its throwing error like it has 10 features but it expacts only 1. So I am confused can anyone help me with it? more importantly its not working for me when my friend runs it. It works perfectly fine dose anyone know the reason about it? cv = KFold(n_splits = 10) all_loss = [] for i in range(9): # 1st for loop over polynomial orders poly_order = i X_train = make_polynomial(x, poly_order) loss_at_order = [] # initiate a set to collect loss for CV for train_index, test_index in cv.split(X_train): print('TRAIN:', train_index, 'TEST:', test_index) X_train_cv, X_test_cv = X_train[train_index], X_test[test_index] t_train_cv, t_test_cv = t[train_index], t[test_index] reg.fit(X_train_cv, t_train_cv) loss_at_order.append(np.mean((t_test_cv - reg.predict(X_test_cv))**2)) # collect loss at fold all_loss.append(np.mean(loss_at_order)) # collect loss at order plt.plot(np.log(al...
Post a Comment
Read more

Sorting large arrays of big numeric stings

I was solving bigSorting() problem from hackerrank: Consider an array of numeric strings where each string is a positive number with anywhere from to digits. Sort the array's elements in non-decreasing, or ascending order of their integer values and return the sorted array. I know it works as follows: def bigSorting(unsorted): return sorted(unsorted, key=int) But I didnt guess this approach earlier. Initially I tried below: def bigSorting(unsorted): int_unsorted = [int(i) for i in unsorted] int_sorted = sorted(int_unsorted) return [str(i) for i in int_sorted] However, for some of the test cases, it was showing time limit exceeded. Why is it so? PS: I dont know exactly what those test cases were as hacker rank does not reveal all test cases. source https://stackoverflow.com/questions/73007397/sorting-large-arrays-of-big-numeric-stings
Post a Comment
Read more

How to load Javascript with imported modules?

I am trying to import modules from tensorflowjs, and below is my code. test.html <!DOCTYPE html> <html lang="en"> <head> <meta charset="UTF-8"> <title>Document</title </head> <body> <script src="https://cdn.jsdelivr.net/npm/@tensorflow/tfjs@2.0.0/dist/tf.min.js"></script> <script type="module" src="./test.js"></script> </body> </html> test.js import * as tf from "./node_modules/@tensorflow/tfjs"; import {loadGraphModel} from "./node_modules/@tensorflow/tfjs-converter"; const MODEL_URL = './model.json'; const model = await loadGraphModel(MODEL_URL); const cat = document.getElementById('cat'); model.execute(tf.browser.fromPixels(cat)); Besides, I run the server using python -m http.server in my command prompt(Windows 10), and this is the error prompt in the console log of my browser: Failed to loa...
Post a Comment
Read more